Range fehlerhaft
12.06.2005 12:41:46
Wolfgang
ich möchte das das Ergebnis vom Spezialfilter im Spalte B unterhalb der letzten Zeile (+3)eingetragen wird.
ich bekomme immer die Fehlermeldung Methode Range fehlerhaft.
Was habe ich falsch gemacht.
Sub Makro1()
Dim letzteZeile As Long
Dim SEG As Long
Worksheets("SEGEM").Activate
letzteZeile = Cells(Rows.Count, 2).End(xlUp).Row
SEG = Cells(letzteZeile + 3, 1)
Range("A5:A" & letzteZeile).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"A5:A" & letzteZeile), CopyToRange:=Range("B&SEG"), Unique:=True
End Sub
Gruß
Wolfgang
Anzeige