Herbers Excel-Forum - das Archiv
MsgBox über CommandButton öffnen...
Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Betrifft: MsgBox über CommandButton öffnen...
von: André
Geschrieben am: 01.01.2007 17:50:48
Hallo,
ich habe mir folgendes aus dem Netz gezogen:
<pre>
Private Sub CheckBox1_Click()
Dim sWord As String
If CheckBox1.Value = True Then
sWord = InputBox("Passwort:")
If sWord = "" Then Exit Sub
If sWord = "1234" Then
MsgBox "Passwort ist OK"
Unload Me
Else
MsgBox "Falsches Passwort"
End If
End If
End Sub</pre>~f~
Ich wollte das ganze jetzt über einen CommandButton, nur leider funktioniert folgendes nicht:
~f~<pre>
Private Sub CommandButton1_Click()
Dim sWord As String
If CommandButton1 = True Then
sWord = InputBox("Passwort:")
If sWord = "" Then Exit Sub
If sWord = "1234" Then
MsgBox "Passwort ist OK"
Else
MsgBox "Falsches Passwort"
End If
End If
End Sub</pre>
Was muss ich ändern?!
Betrifft: AW: MsgBox über CommandButton öffnen...
von: mumpel
Geschrieben am: 01.01.2007 18:03:35
Hallo!
Wenn Du die Codezeile "If CommandButton1 = True Then" löschst, dann sollte es funktionieren. Wenn Du die Prüfung benötigst, musst Du eine Checkbox einfügen und die Codezeile "If CommandButton1 = True Then" durch "If Checkbox1 = True Then"
Gruss Rene
Betrifft: AW: MsgBox über CommandButton öffnen...
von: mumpel
Geschrieben am: 01.01.2007 18:05:37
Hoppla, kleiner Fehler. Die neue Codezeile müsste lauten: If Checkbox1.Value = True Then
Gruss Rene
Betrifft: Danke
von: André
Geschrieben am: 01.01.2007 18:13:17
Besten Dank.