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

Abhängige Kombinationsfelder + Textboxen

Forumthread: Abhängige Kombinationsfelder + Textboxen

Abhängige Kombinationsfelder + Textboxen
29.06.2015 20:50:16
Markus

Liebes Forum,
folgendes Anliegen:
Ich habe zwei voneinander abhängige Kombinationsboxen (Code vorhanden). Nachdem man auch bei der ComboBox 2 seine Auswahl getroffen hat, will ich, dass sich die anschließenden 3 Textboxen automatisch mit den Werten aus der gleichen Zeile füllen.
Zum Beispiel:
A1: Automarke (ComboBox1) A2: Modell (ComboBox2) A3: Motor (Textbox1) A4: Ausstattung (Textbox 2) A5: Anzahl der Türen (Textbox 3) usw.
Da die Tabelle etwas größer wird, benötige ich bitte einen allgemeinen Code:
Mein aktueller Stand:
Privat


Sub TextBox1_Enter()
With Worksheets ("Tabelle1")
Textbox1.Value =.Range ("A3").Value
End With
End Sub
Vielen Dank für eure Hilfe.

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Abhängige Kombinationsfelder + Textboxen
01.07.2015 08:55:52
Kenny
Hallo,
so müsste es gehen.
Liebe Grüße!

Set wa = Worksheets("tabelle1")
For zeile = 1 To wa.UsedRange.Rows.Count
If wa.Cells(zeile, 1) = combobox1.Value Then
If wa.Cells(zeile, 2) = combobox2.Value Then
textbox1.Value = wa.Cells(zeile, 3)
textbox2.Value = wa.Cells(zeile, 4)
textbox3.Value = wa.Cells(zeile, 5)
End If
End If
Next

Anzeige
AW: Abhängige Kombinationsfelder + Textboxen
01.07.2015 08:58:43
Kenny
Ach das ganze muss bei Combobox2_Change() rein

Sub Combobox2_Change()
Set wa = Worksheets("tabelle1")
For zeile = 1 To wa.UsedRange.Rows.Count
If wa.Cells(zeile, 1) = combobox1.Value Then
If wa.Cells(zeile, 2) = combobox2.Value Then
textbox1.Value = wa.Cells(zeile, 3)
textbox2.Value = wa.Cells(zeile, 4)
textbox3.Value = wa.Cells(zeile, 5)
End If
End If
Next
End Sub

Anzeige
AW: Abhängige Kombinationsfelder + Textboxen
03.07.2015 17:41:26
Markus
Vielen Dank Kenny!

;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

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