Hallo,
habe folgendes Problem :
Ich habe in einer ComboBox mehrere Werte (z.B. 1 2 3 usw).
Nun will ich, wenn ich einen dieser Werte auswähle in der nächsten ComboBox entsprechende Werte haben, also 1.1 1.2 oder 2.1 2.2 oder 3.1 3.2 usw usw
Habe es so versucht, geht aber nicht :
With ThisWorkbook.Sheets("Datenwerte")
Herkunft.RowSource = Range(.Cells(3, 7), .Cells(.Cells(Rows.Count, 7).End(xlUp).Row, 7)).Address(External:=True)
Herkunft.Value = .Cells(3, 7)
End With
If Herkunft.Value = xxxxxxx KEINE AHNUNG WAS HIER HINKOMMT Then
With ThisWorkbook.Sheets("Datenwerte")
Herkunft2.RowSource = Range(.Cells(3, 1), .Cells(.Cells(Rows.Count, 1).End(xlUp).Row, 1)).Address(External:=True)
Station.Value = .Cells(3, 1)
End With
End If
If Herkunft.Value = xxxxxxxx Then
With ThisWorkbook.Sheets("Datenwerte")
Herkunft2.RowSource = Range(.Cells(3, 6), .Cells(.Cells(Rows.Count, 6).End(xlUp).Row, 6)).Address(External:=True)
Zuhause.Value = .Cells(3, 6)
End With
End If
Danke und Gruß
Tho