Hallo liebes Forum,
ich erhalte eine Fehlermeldung: Fehler 1004 Die Methode Range für das Objekt
Worksheet ist fehlgeschlagen. Komisch ist nur, das der Code vorher schon geklappt hat. Der Fehler passiert bei rngData.AdvancedFilter .. ist markiert.
Hier der Auszug:
Set wkbData = ThisWorkbook
Set wksData = wkbData.Worksheets(suchblatt)
Set wksDataNew = ThisWorkbook.Worksheets(3)
With wksData
' Duplikate tmp1 und tmp2
If suchblatt = 2 Then
Set rngData = .Range(.Cells(2, 6), .Cells(5000, 6))
ElseIf suchblatt = 3 Then
Set rngData = .Range(.Cells(3, 11), .Cells(5000, 11))
Else:
Set rngData = .Range(.Cells(3, 22), .Cells(5000, 22))
End If
End With
If suchblatt 3 Then
rngData.AdvancedFilter Action:=xlFilterCopy, _ ----- F E H L E R
CopyToRange:=wksDataNew.Range(Cells(kopiere, 11), Cells(kopiere, 11)), Unique:=True
Else:
rngData.AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=wksDataNew.Range(Cells(kopiere, 10), Cells(kopiere, 10)), Unique:=True
End If
Kann mir jemand helfen? Dank und Gruss
ticonhh