Ich habe eine kleine Combobox mit Namen erstellt und möchte nun den Namen Passwörter zuweisen, die bei Aufruf der Box abgefragt werden. *schnief* Funktioniert aber überhaupt nicht.
Das Initialize geht, aber der 2. Teil mit Select case geht überhaupt nicht :-(
Ich danke jedem für eine gute Idee... D A N K E S C H Ö N
Das geht:
Private Sub UserForm_Initialize()
'*** Die passenden Passwörter****
ComboBox1.AddItem "Heike" 'rose
ComboBox1.AddItem "Suzi" 'maus
ComboBox1.AddItem "Otto" 'tulpe
End Sub
Da tut sich überhaupt nix, weils wahrscheinlich gar nicht gehen kann :-(
Private Sub CommandButton3_Click()
Dim heike As String
Dim suzi As String
Dim otto As String
With Sheets("Tabelle2")
Select Case ComboBox1.Value
Case heike
If TextBox1.Value = "heike" Then
.Cells(1, 1).Value = ComboBox1.Value
Else
MsgBox "falsches Passwort"
End If
Case suzi
If TextBox1.Value = "maus" Then
.Cells(1, 1).Value = ComboBox1.Value
Else
MsgBox "falsches Passwort"
End If
Case otto
If TextBox1.Value = "tulpe" Then
.Cells(1, 1).Value = ComboBox1.Value
Else
MsgBox "falsches Passwort"
End If
End Select
End With
End Sub