alle Werte im AutoFilter nacheinander aktivieren
16.12.2006 21:59:18
werner
Da das Archiv überwiegend Infos über das ertse Filterkriterium hatte jetzt folgende Frage
Für mich ein großes Problem. Habe in einer Tabelle die Spalte J ab Zeile 8 als AutoFilter gesetzt. Möchte nun, das der AutoFilter Wert1 aktiviert, die zugehörigen Werte in ein anderes Tabellenblatt kopiert, dannach Wert2 aus Spalte J nimmt und diese Werte auch kopiert. Dies soll so lange durchgeführt werden, bis alle Werte des AutoFilters durchgearbeitet wurden.
Bisher wähle ich jedes Kriterium an und starte folgendes Makro:
Private Sub CommandButton6_Click()
With Sheets("Liste")
.Range("B5:L" & .Range("B65536").End(xlUp).Row).Copy Destination:= _
Sheets("Wochenliste").Range("B65536").End(xlUp).Offset(2, 0)
End With
End Sub
Es werden also auch ein paar Zeilen vor dem Autofilter mitkopiert (Überschriften usw.),das ist gewünscht und klappt
Ich weiß nur nicht, wie ich ein Makro gestalte, das nacheinander die Werte des Autofilters aktiviert.
Bitte um Hilfe, komme sonst nicht weiter
Dank im Voraus
Gruß Werner