Private Sub cmdOK_Click()
If txtPasswort.Text = "1290" Then
Dim objCtr As Control
Dim intRow As Integer
intRow = Cells(Rows.Count, 1).End(xlUp).Row + 0
For Each objCtr In Controls
If TypeName(objCtr) = "TextBox" Then
Cells(intRow, 1) = objCtr.Text
intRow = intRow + 1
End If
Next objCtr
Unload Me
Else
MsgBox "Passwort falsch!"
txtPasswort.Text = ""
txtPasswort.SetFocus
End If
End Sub
Ich hatte heute morgen schonmal gepostet und bereits Hilfe
bekommen. Jetzt bin ich etwas weiter gekommen und habe
mich an den nächsten Problem festgebissen! Ich möchte
das die Zeile ---If txtPasswort.Text = "1290" Then---so
abgeändert wird - das statt "1290" die Box in meiner Tabelle1!G:G
nachschaut ob dort das Passwort zu finden ist.
Wäre schön wenn mir jemand weiterhelfen kann !
gruss Gerd