AW: Filter
12.07.2003 11:32:11
andre
hallo michael,
eigentlich nicht, wenn man weiss, was gemeint ist:
Sub Makro1()
' Makro1 Makro
' Makro am 12.07.2003 von wanderer aufgezeichnet
For Each blaetter In Sheets()
' Daten übertragen ausser die vom Zielblatt
If blaetter.Name <> "Zielblatt" Then
blaetter.Activate
' letztezelle in Spalte A (1), wenn in A alle Zeilen oder zumindest die letzte
' im Datenbereich ausgefüllt ist
letztezelle = Cells(Rows.Count, 1).End(xlUp).Row
'Daten gefiltert unter den vorhandenen Daten eintragen und ausschneiden
Range("A1:D" & letztezelle).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
"A" & letztezelle + 1), Unique:=True
Range("A" & letztezelle + 1 & ":D" & 2 * letztezelle + 1).Cut
'Daten auf Zielblatt übertragen
Sheets("Zielblatt").Activate
letztezelle = Cells(Rows.Count, 1).End(xlUp).Row
Range("A" & letztezelle + 1).Select
ActiveSheet.Paste
End If
Next
End Sub
dieser teil ist das spezialfiltern:
Range("A1:D" & letztezelle).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
"A" & letztezelle + 1), Unique:=True
da kannst du mal über aufzeichnen ausprobieren, was alles mäglich ist bzw was welche auswirkungen hat.
gruß andre