Hallo liebe Forum-Teilnehmer.
Ich habe den besagte Fehler (Absturz bzw. Beendigung des Makro ohne Fehlermeldung)gefunden - durch Stück für Stück löschen des Codes.
Grund für den Absturz:
Im Tabellenblatt hatte ich eine bedingte Formatierung, die sich auf den Autofilter bezog (über eine Formel) siehe Bild
Dazu hatte ich in einem allgemeinen Modul den Code (siehe unten) .. welcher auch einwandfrei funktionierte (wenn ein Filter gesetzt war, wurde das Feld gelb eingefärbt um es sofort sehen zu könne.
Public Function WennFilter2(Zelle As Range) As Boolean
Dim filternr As Long
'Dient zur Überprüfung ob ein Filter gesetzt ist, kann bei "Bedingter Formatierung" verwendet werden
Application.Volatile
filternr = 1 + Zelle.Column - ActiveSheet.AutoFilter.Range.Column
If ActiveSheet.AutoFilter.Filters(filternr).On Then
WennFilter2 = True
Else
WennFilter2 = False
End If
End Function
Offensichtlich stürzte der Code jedesmal ab, wenn Zeilen gelöscht wurden (aber auch schon bei Löschung von Inhalten über ein Makro)
Habe nun das Ganze anders gelöst - nun funktioniert wieder alles.
LG an ALLE
Andi Z.
|