Laufzeitfehler 91
03.11.2014 22:19:07
Johannes
ich prüfe mit nachfolgendem Code ob ein spezielles Control vorhanden ist. Das funktioniert einwandfrei wenn der Code aus einem Modul heraus aufgerufen wird. Wenn der Code über UserForm_Initialize aufgerufen wird, dann erhalte ich den Laufzeitfehler 91 (Objektvariable oder With-Blockvariable nicht festgelegt). Ich wäre über einen Tip froh warum Excel hier so reagiert bzw. wie ich den Code anpassen müsste, dass er über das Modul und UserForm_Initialize fehlerfrei ausgeführt werden kann.
Danke für eure Hilfe.
Gruß Joni
Public Function CheckIfControlExists(ByVal sUserFormName As String, ByVal sControlName As _
String)
Dim compTMP As Object, ctrlTMP As Object
CheckIfControlExists = False
For Each compTMP In ActiveWorkbook.VBProject.VBComponents
If LCase(compTMP.Name) = LCase(sUserFormName) Then
For Each ctrlTMP In compTMP.Designer.Controls
If LCase(ctrlTMP.Name) = LCase(sControlName) Then
CheckIfControlExists = True
Exit For
End If
Next
End If
Next
End Function