VBA nicht korrekt
20.02.2018 16:00:25
Pascal
Findet ihr hier einen Fehler?
Objekt unterstützt diese Eigenschaft oder Methode nicht (Fehler 438)
'
Sheets("LBs").Select
ActiveSheet.AutoFilterMode = False
If Not ActiveSheet.AutoFilterMode = True Then
letzteSpalte = Sheets(1).Cells(1, 256).End(xlToLeft).Column
letzteZeile = Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row
ActiveSheet.Range("A1" & letzteSpalte).Select_
Selection.AutoFilter Field:=1, _
Criteria1:="", Operator:=xlAnd_
Selection.AutoFilter Field:=5, _
Criteria1:="=1*", Operator:=xlAnd
End If
Range("A2:K" & letzteZeile).Select
Selection.Copy
Sheets("Lieferdatum").Activate
Range("J2").Select
ActiveSheet.Paste
End Sub
Vielen Dank
LG Pascal