Workbook Open blockiert von bedingter Formatierung
bedingter
Ich habe eine kleine und echt simple Funktion selbst geschrieben (siehe ganz unten) und prüfe diese in einer bedingten Formatierung auf WAHR. Das funktioniert auch einwandfrei für das was es gut sein soll. Seitdem funktioniert aber das Workbook_open nicht mehr. Wenn ich den Inhalt der Funktion auskommentiere funktioniert zumindest das Workbook_open. (Und ja - das Workbook_open ist in "Diese Arbeitsmappe")
Hatte irgendwer schon mal das Problem? Ich suche schon seit gestern den Fehler.
Während dem Schreiben dieser Zeilen habe ich noch schnell das auto_open() probiert. So funktionierts zumindest schaut´s aus. Aber kann mir das irgendwer erklären?
Private Sub Workbook_Open() 'funktioniert nicht
MsgBox ("hallo") 'für Testzwecke - wird manchmal auch ausgeführt
Initialisieren 'Sub Aufruf wird nie ausgeführt
End Sub
MsgBox ("hallo")
Initialisieren
End Sub
Function Text_in_Bereich(ByVal Text As Range, ByVal Bereich As Range) As Boolean
For Each cell In Bereich
If Text.Value = Text.Value And Text.Value "" Then
Text_in_Bereich = True
Exit Function
End If
Next cell
Text_in_Bereich = False
End Function
mfG Dietmar