Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1848to1852
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
Inhaltsverzeichnis

TextBoxen befüllen

TextBoxen befüllen
14.10.2021 09:42:02
Frank
Hallo Zusammen und guten Morgen.
Ich möchte gern, wenn ich in einer ComboBox (ComboBox1) einen Wert auswähle, dieser Wert steht mehrfach (aber nur 17 mal) im Bereich Zeile 2 - 324 und Spalte 5. Nun soll in die TextBoxen 1 - 17 immer der dazugehörige Wert aus Spalte 4 eingetragen werden. Also der erste gefundene Wert in TextBox1, der zweite gefundene Wert in TextBox 2 usw.
Wie stelle ich das an?
Mein Versuch:
For lng = 2 To 324
For i = 1 To 17
If ComboBox1 = Sheets("Tabellen").Cells(lng, 5) Then
Me("TextBox" & i) = Sheets("Tabellen").Cells(lng, 4)
End If
Next i
Next lng
Schon jetzt Danke!
Gruß Frank H.

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: TextBoxen befüllen
14.10.2021 09:48:09
Rudi
Hallo,
so:

i = 0
For lng = 2 To 324
If Sheets("Tabellen").Cells(lng, 5) = ComboBox1 Then
i = i + 1
Me(Controls("TextBox" & i)) = Sheets("Tabellen").Cells(lng, 4)
End If
Next lng
Gruß
Rudi
AW: TextBoxen befüllen
14.10.2021 09:53:02
Frank
Hallo Rudi,
danke für die schnelle Antwort.
Leider meckert er bei der Zeile:
Me(Controls("TextBox" & i)) = Sheets("Tabellen").Cells(lng, 4)
Typenkonflikt.
Hast du 'ne Idee?
Gruß Frank H.
Korrektur
14.10.2021 09:49:46
Rudi
Me.Controls("TextBox" & i) = Sheets("Tabellen").Cells(lng, 4)
AW: Korrektur
14.10.2021 09:56:11
Frank
Nochmals Danke,
Kein Gemecker mehr im Editor. Aber die Textfelder bleiben nun leer.
Kannst du nochmal schauen?
Gruß Frank H.
Anzeige
AW: Korrektur
14.10.2021 10:33:14
Rudi
dann wird der Suchbegriff nicht gefunden oder Spalte 4 ist leer.
geh den Code mal mit F8 durch.
AW: Korrektur
14.10.2021 11:15:26
Frank
Hallo Rudi,
ganz herzlichen Dank. Jetzt funzt es. Spalte 5 musste in Spalte 6 geändert werden. Mein Fehler! Sorry. Naja nun passt es!
Also noch 'nen schönen Tag!
Liebe Grüße Frank H.

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige