Herbers Excel-Forum - das Archiv

Userform Problem

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


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

Excel-Beispiele zum Thema "Userform Problem"
Diagramm in Userform XL-Dateien in UserForm listen
UserForm an Excel-Fenster anpassen Fundstellen in UserForm listen
Module und UserForms austauschen In einer Schleife auf Elemente einer UserForm zugreifen
Werte in eine ComboBox einer UserForm übernehmen Zellinhalt als Label-Aufschrift in UserForm
Alle CheckBoxes einer UserForm ansprechen Wenn kein Eintrag, UserForm nicht schließen