UserForm und ComboBoxen

[Andyle]

Hallo an alle hier im Forum!

Mein Problem:

Habe ein UserForm (Auftragsnummer)
Darin befinden sich 2 ComboBoxen. (txtFremd und txtLkw)

txtFremd bezieht die Daten aus der Liste (=Fremd)
txtLkw bezieht die Daten aus der Liste (=LKW_Fremd)

Jetzt soll die ComboBox txtLkw nur Daten drin haben, wenn in ComboBox txtFremd "LKW Fremd" ausgewählt wird, ansonsten leer ist.

Danke für Eure nette Hilfe!

[RPP63]

Moin!
Z.B. so:

Code:

Sub fill_txtFremd()
txtFremd.List = Range("Fremd").Value
End Sub
Private Sub txtFremd_Change()
If txtFremd = "LKW fremd" Then
  txtLKW.List = Range("LKW_fremd").Value
Else
  txtLKW.Clear
End If
End Sub

Gruß Ralf

[Andyle]

So hab ich jetzt den Code:

Sub fill_txtFremd()
txtFremd.List = Range("Fremd").Value
End Sub

Private Sub txtFremd_Change()
If txtFremd = "LKW Fremd" Then
txtLkw.List = Range("LKW_Fremd").Value
Else
txtLkw.Clear
End If
End Sub

Laufzeitfehler!

[Andyle]

Hat sich erledigt!

Musste den RowSourse in txtLkw rausnehmen.

Danke für Deine Hilfe