Automatischer Autofilter mit VBA
Hermann
aus einem älteren Beitrag von Christoph M habe ich folg. Makro übernommen und etwas abgeändert
zum Kopieren von Zeilen von Blatt "2010" zu Blatt "Test". Im Makro sollen dann im Blatt "Test"
weitere Auswertungen erfolgen, die im Makro mit ... gekennzeichnet sind
Sub Test()
Dim i%, k%
With Sheets("2010")
For i = 1 To .Cells(Rows.Count, 1).End(xlUp).Row
If .Cells(i, 7) = "Name" Then
k = k + 1
.Rows(i).Copy Sheets("Test").Cells(k, 1)
End If
Next i
End With
End SubIch habe nun das Problem, das die Auswertung über alle Einträge von in Blatt "2010" Spalte 7 laufen soll, also sprich der Parameter "Name" als Variable zu definieren ist. Die Anzahl der verschiedenen Einträge in Spalte 7 kann varieren.
Ich denke irgendwie müßte man den Autofilter in VBA anwenden können, und alle Einträge nach und nach selektieren können, habe aber keine Idee wie.
Schon mal vielen Dank im voraus für Eure Hilfe
Gruß
Hermann
Anzeige