Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 17:40:39
16.10.2025 17:25:38
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
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige