Ich habe ein Makro mit dem ich Zellen durchsuche und farblich markiere.
Bei jeder neuen suche wird die Farbe entfernt und je nach Eingabe neu gesetzt.
Nun möchte ich das die Farbe beim schließen der Datei wieder verschwindet.
Das Makro "Sub suche_löschen" funktioniert einwandfrei nur passiert bei schließen rein gar nichts.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
suche_löschen
End Sub
Sub suche_löschen()
BlattschutzAusMakro
Range("A6:A1000" & lngLRow).Interior.ColorIndex = xlNone
Blattschutz
End Sub