Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
720to724
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
720to724
720to724
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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
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
Anzeige
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

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige