Unload UserForm
11.07.2003 13:06:44
Lutz
bei Click auf eine Zelle (A2) wird der Inhalt einer anderen Zelle (A1) überprüft und entsprechend dieses Zellinhaltes Werte aus einer Tabelle in eine ListBox einer Userform eingelesen.
Wenn der User in A1 einen Wert stehen hat, der in der Auswertetabelle nicht vorkommt, soll eine MsgBox erscheinen und danach die Userform geschlossen werden.
MsgBox funktioniert auch, aber bei Unload Me meckert er...(Objekt oder With-Variable nicht festgelegt)
Private Sub UserForm_Initialize()
If xy1 = 0 Then
MsgBox "Die eingegebene Projektart ( 7.-9. Stelle ) existiert nicht." & vbCr & "Bitte überprüfen !"
ActiveCell.Offset(0, -1).Select
Unload Me
Exit Sub
End If
End Sub
Kann jemand helfen ?
Grüße
Lutz