|
Guten Morgen Ulrich,
ich habe jetzt erst mal die Zeile
MsgBox "Addin aktiv (open)"
gelöscht.
Die beiden MsgBox "Tabelle 1 falsch" kommen dann aber immer noch.
Jetzt habe ich versucht das Makro mExcelApp_WorkbookOpen folgendermaßen umzuschreiben.
Private Sub mExcelApp_WorkbookOpen(ByVal Wb As Workbook)
Sub filterShowAll()
With ActiveSheet
If .AutoFilterMode Then
For Each af In .AutoFilter.Filters
If af.On Then
.ShowAllData
Exit For
End If
Next
End If
End With
End Sub
Leider kommt beim nächsten Excelstart folgender Fehler.
Fehler beim Kompilieren: End Sub Erwartet
Diese Zeile wird dann gelb markiert.
Private Sub mExcelApp_WorkbookOpen(ByVal Wb As Workbook)
Könntest du mir bitte helfen.
Danke!
Jörg
|