Hallo,
ich habe ein Makro in meine Excel Tabelle eingebaut mit welchem ich über alle Datenblätter Filtern lassen kann.
Jedoch kommt nach Ausführen des Makros ein Fehler:
Laufzeitfehler 1004
Die Autofilter-Methode des Range Objektes konnte nicht ausgeführt werden.
Aber gefiltert wurde ordnungsgemäß. (es ist also nur Kosmetik, dass ich nach Ausführung keinen Fehler eingeblendet haben möchte)
Kann mir dabei jemand helfen?
Hier ist der Code:
Sub Filter_ueber_alle_Tabellenblaetter()
'Variable deklarieren
Dim Filterkriterum As String, Wiederholungen As Integer
'Eingabe aus der Inputbox in die Variable "Filterkriterum" speichern
Filterkriterum = InputBox("Bitte geben Sie den zu filterneden Begriff ein.", "Eingabe")
'Wenn kein Begriff in die Inputbox eingegeben wurde, dann das Makro beenden
If Filterkriterum = "" Then Exit Sub
'For/ Next Schleife zum Aktivieren des Autofilters und zum Filtern des
'Begriffes aus variable "Filterkriterum"
For Wiederholungen = 1 To Worksheets.Count
'In dem durch die Schleife angesprochenen Blatt den Autofilter einschalten
'und als Filterkriterium den gespeicherten Wert aus Variable "Filterkriterum"
'einsetzen
Worksheets(Wiederholungen).Range("A1").AutoFilter _
Field:=1, Criteria1:=Filterkriterum
'Nächsten Schleifendurchlauf starten
Next Wiederholungen
End Sub
|