Userform Problem

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
UserForm TextBox MsgBox


Excel-Version: Excel 2000
nach unten

Betrifft: Userform Problem
von: Gerd
Geschrieben am: 07.05.2002 - 13:41:32

Habe bei der unten aufgeführten UserForm Probleme


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

nach oben   nach unten

Re: Userform Problem
von: Hajo
Geschrieben am: 07.05.2002 - 13:48:43

Hallo Gerd

das sieht ja so aus als wenn Du Dich mit VBA auskennste folgender Ansatz
https://www.herber.de/forum/messages/119098.html

Gruß Hajo

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Userform Problem"