Problem mit Makro
05.09.2021 22:46:54
Kairo
Ich habe die Funktion über folgenden Code, dass alle gesetzten Filter in der Datei beim Speichern zurückgesetzt werden.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Call FilterEliminieren
End Sub
Dabei ist das Makro FilterEliminieren wie folgt ausgeführt.
'Filter löschen
Sub FilterEliminieren(control As IRibbonControl)
On Error Resume Next
Sheets(1).ShowAllData
End Sub
Wenn ich die Schaltfläche nun ausführe kommt es zu folgender Fehlermeldung:
Fehler beim Kompilieren: Argument ist nicht optional.
Woran kann das liegen? Ich bin kein Profi aber möchte natürlich gern aus meinen Fehlern lernen. Danke schon mal für eure Hilfe.
Viele Grüße Kai