Hallo Zusammen,
ich würde mich sehr über Eure Hilfe freuen.
Ich Sortiere das Tabellenblatt nach Spalte E absteigend, filtere nach dem Monat und möchte anschließend die Top 5 in ein anderes Tabellenblatt kopieren.
]A B C D E F G H
KST KST TLE_NR Menge MAT_Kost Konto Monat Jahr
4223 4223 0BH141042E 640 1679,1 46000000 4 2013
4223 4223 0BH141050H 305 1278,16 46000000 1 2013
4223 4223 0BH141187E 400 997,04 46000000 5 2013
4223 4223 6E0131902A 370 881,53 46000000 4 2013
4223 4223 0BH141056E 650 864,76 46000000 4 2013
4737 4223 0BH141070C 125 623,14 46000000 1 2013
4223 4223 02E325437B 525 592,68 46000000 1 2013
Ich habe die folgenden MAkros, die ich nacheinander ablaufen lasse:
Sub Daten_absteigend_nach_Mat_Kosten_sortieren()
Range("A:H").Sort Key1:=Range("E" & "1"), Order1:=xlDescending, Header:=xlGuess, MatchCase:=False, Orientation:=xlTopToBottom
Range("G1").AutoFilter Field:=7, Criteria1:=Tabelle3.Range("G8").Value, Operator:=xlAnd
End Sub
Sub Top_5_ausgeben()
Tabelle5.Range("C:E").SpecialCells(xlCellTypeVisible).Range("A2:C6").Copy Destination:=Tabelle13.Range("A4")
Application.CutCopyMode = False
End Sub
Das Makro kopiert mir die ersten 5 unsichtbaren Zeilen.
Wie bekomme ich es hin, dass mir die ersten 5 angezeigten Zeilen (nach Sortierung, Fulter) kopiert werden.
Vielen, Vielen Dank.
LG,
NINA[/url]
|