Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
244to248
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
244to248
244to248
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

TextBox

TextBox
12.04.2003 11:45:25
Philipp
Hallo zusammen,
habe leider ein kleines Excel-Problem :-(

In Tabelle1 hab ich in Spalte A Rechnungsnummern z.B 1234
in Spalte B Namen z.B Schmidt

Jetzt hab ich ein Userform erstellt mit 2 TextBoxen
TextBox1= Nr.
TextBox2= Name

Jetzt möchte ich gerne ein TextBox1 ne Nr eingeben zb 1234
jetzt soll autmatisch der Name in Textbox 2 erscheinen (Schmidt)
Aber nur wenn der die Nr. 100%ig übereinstimmt, und wenn nicht dann MsgBox.

Hab alles ausprobiert, bekomme das leider nicht hin :-(
Ich hoffe ihr könnt mir helfen.

Vielen Dank im Vorraus

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: TextBox
12.04.2003 13:29:33
Willie

Versuch es mal so

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

Dim i As Integer
Dim iMax As Integer
Sheets("Tabelle1").Select
iMax = ActiveSheet.UsedRange.Rows.Count
For i = 1 To iMax
If Cells(i, 1).Value = TextBox1.Value Then
TextBox2.Value = Cells(i, 2).Value
End If

Next i
If iMax = i then
msgbox "Nummer ist nicht vorhanden!", vbinformation, "Eingabe wiederholen"
End Sub

Gruß

Willie

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige