Herbers Excel-Forum - das Archiv

MsgBox über CommandButton öffnen...

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

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?!
Bild

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
Bild

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
Bild

Betrifft: Danke
von: André
Geschrieben am: 01.01.2007 18:13:17
Besten Dank.
 Bild
Excel-Beispiele zum Thema "MsgBox über CommandButton öffnen..."
MsgBox mit Werten aus geschlossener Arbeitsmappe Überprüfung auf Übereinstimmung und Anzeige in MsgBox
Internetdaten abrufen und in MsgBox anzeigen Textdatei auslesen und in MsgBox anzeigen
Auf UserForm-CommandButton-Klick eine Internetseite aufrufen CommandButtons in verschiedenen Tabellen mit einem Makro
CommandButtons sollen auf Schaltflächen-Klick deaktiviert werden