Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
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
14.04.2003 07:49:46
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)
Und wenn nicht gefunden dann MsgBox.

Dieser Code gibt mir leider keine 100%igen Lösungen raus.
Wenn eine Zahl nicht gefunden wurde, gibt er mir den letzten Eintrag raus. Was ist dran falsch? Wie bekomme ich das denn besser hin?

Private Sub TextBox1_Change()
Dim varNam As Variant
varNam = Application.VLookup(CLng(TextBox1.Text), Worksheets(1).Range("A:B"), 2)
If Not IsError(varNam) Then
TextBox2.Text = varNam
End If
End Sub

Vielen Dank

Gruß Philipp


4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: TextBox
14.04.2003 09:10:57
Nike

Hi,
da muß das hier rein:
varNam = Application.VLookup(CLng(TextBox1.Text), Worksheets(1).Range("A:B"), 2, 0)

Bye

Nike

Re: TextBox
14.04.2003 09:23:04
TOM

Morgen Philipp

ich habe es so gelöst:

Gruss TOM

Re: TextBox
14.04.2003 10:37:53
Philipp

Super danke Tom, werde das mal ausprobieren.
Sonst melde ich mich einfach nochmal :-)

Philipp

Re: TextBox
14.04.2003 10:43:03
Philipp

Vielen Dank, test das nachher mal.

Gruß

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige