Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Wenn Name vorhanden Daten in TextBoxen eintragen

Wenn Name vorhanden Daten in TextBoxen eintragen
23.01.2006 11:46:04
Josef
Hallo!
In einer Userform wird in die Textbox1 der Benutzername des jeweiligen Users eingetragen.
In der Tabelle 2 sind jetzt alle vorhandenen User angeführt:
Spalte A = Josef (Benutzername)
Spalte B = 1
Spalte C = 7400
Spalte D = 08
Wenn jetzt in der Textbox1 der Name Josef eingetragen ist, dann sollten die dazugehörigen Daten folgendermaßen eingetragen werden:
Textbox2 = 1
Textbox3 = 7400
Textbox4 = 08
Wie würde hier bitte der VBA Code aussehen ?
Danke
Josef
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wenn Name vorhanden Daten in TextBoxen eintragen
ransi
hallo
das ginge auch mit sverweis()


Private Sub TextBox1_Change()
Dim gefunden As Range
Set gefunden = Range("A:A").Find(TextBox1)
TextBox2 = gefunden.Offset(0, 1)
TextBox3 = gefunden.Offset(0, 2)
TextBox4 = gefunden.Offset(0, 3)
End Sub


ransi
Anzeige
AW: Wenn Name vorhanden Daten in TextBoxen eintragen
23.01.2006 13:06:05
Josef
Hallo Ransi!
Würde bestens funktionieren. Ich müßte jedoch die Tabelle2 direkt ansprechen, weil diese im Hintergrund nicht sichtbar läuft.
Josef
AW: Wenn Name vorhanden Daten in TextBoxen eintragen
23.01.2006 13:16:27
Josef
Hallo Ransi!
In der Zeile Set gefunden bekomme ich nur eine rote Zeile.
Hier liege anscheinend komplett falsch.

Private Sub TextBox19_Change()
Dim gefunden As Range
Set gefunden = Workbooks"Barcode.xla".Sheets("Tabelle2").("A:A").Find(TextBox19)
TextBox4 = gefunden.Offset(0, 1)
TextBox15 = gefunden.Offset(0, 2)
TextBox16 = gefunden.Offset(0, 3)
End Sub

Josef
Anzeige
AW: Wenn Name vorhanden Daten in TextBoxen eintragen
ransi
hallo
"Hier liege anscheinend komplett falsch."
Nö.
Hast nur () vergessen.
Workbooks("Barcode.xla").Sheets("Tabelle2").("A:A").Find(TextBox19)
müsste gehn.
ransi
AW: Wenn Name vorhanden Daten in TextBoxen eintragen
23.01.2006 14:50:27
Josef
Hallo Ransi!
Paßt jetzt alles. Vielen Dank für Deine Hilfe.
Josef
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige