Guten Tag alle zusammen,
ich habe folgendes Problem:
Aus einer Datei mit 2 Reitern, möchte ich jeweils bestimmte Werte in einen Filter kopieren (funktioniert)
Sheets("Verzugsliste").Select
Range("A6").Select
Selection.Copy
Dim vntValue As Variant
vntValue = Selection.Value
Sheets("Verzüge_Auflistung").Select
Range("B1").Select
ActiveSheet.Range("$A$1:$G$100000").AutoFilter Field:=2, Criteria1:=vntValue
Und im Anschluss die ersten z.B. 12 Werte unter der Überschrift in Spalte G heraus kopieren in die Zellen K1-K12 des gleichen Reiters.
Leider weiß ich nicht, wie ich aus einem AutoFilter heraus nur eine bestimmte Anzahl an Werten kopieren kann.
Eine andere Alternative wäre ein sverweis der nicht nur den obersten Wert, sondern z.B. die obersten 12 Werte ausgibt.
Aber auch hier stoße ich an die Grenzen meines Wissens.
Vielen Dank im Voraus, sollte jemand weiterhelfen können.
Mit freundlichen Grüßen,
T. Dudek
|