Ich habe in einer Datei mittels VBA einen Spezialfilter im Einsatz, der immer funktioniert hat. Seit neuestem bekomme ich die Fehlermeldung
Laufzeitfehler 1004: Anwendungs- oder objektdefinierter Fehler
Beim Debuggen des Codes wird folgende Codezeile gelb angezeigt:
Sheets("Datenpool").Range("Datenpool[#All]").AdvancedFilter Action _
:=xlFilterCopy, CriteriaRange:=Sheets("Anleitung").Range("Criteria"), CopyToRange:=Sheets("Ergebnis").Range( _
"Extract"), Unique:=False
Ich weiß leider nicht mehr weiter.
Hier ist der ganze Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.CutCopyMode = False
Sheets("Datenpool").Range("Datenpool[#All]").AdvancedFilter Action _
:=xlFilterCopy, CriteriaRange:=Sheets("Anleitung").Range("Criteria"), CopyToRange:=Sheets("Ergebnis").Range( _
"Extract"), Unique:=False
Anzahl = ActiveWorkbook.Sheets("Ergebnis").Range("Datensätze")
If Anzahl > 1 Then
MsgBox "Achtung: Es wurden mehrere Datensätze gefunden!", vbOKOnly, "Datensätze"
Else
If Anzahl = 0 Then
Exit Sub
Else
Exit Sub
End If
End If
'Sheets("Ergebnis").Activate
End Sub
Vielen Dank für Eure Bemühungen!Erich