Abhängige Kombinationsfelder + Textboxen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
TextBox
Bild

Betrifft: Abhängige Kombinationsfelder + Textboxen
von: Markus
Geschrieben am: 29.06.2015 20:50:16

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.

Bild

Betrifft: AW: Abhängige Kombinationsfelder + Textboxen
von: Kenny
Geschrieben am: 01.07.2015 08:55:52
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


Bild

Betrifft: AW: Abhängige Kombinationsfelder + Textboxen
von: Kenny
Geschrieben am: 01.07.2015 08:58:43
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


Bild

Betrifft: AW: Abhängige Kombinationsfelder + Textboxen
von: Markus
Geschrieben am: 03.07.2015 17:41:26
Vielen Dank Kenny!

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Abhängige Kombinationsfelder + Textboxen"