ich fülle die ComboBox1 mit den Werten aus dem Sheet "Geräteauswahl" mit dem Bereich B2:"Letzte Stelle"
Was muss man ändern dass die Combobox aus dem Bereich B2:"Erste leere Stelle" gefüllt wird
Private Sub Hersteller_Change() ' Auswahl Hersteller Displaytausch
Select Case Hersteller.Value
Case Is = "Bosch"
loLetzte = Sheets("Geräteauswahl").Cells(Rows.Count, 2).End(xlUp).Row
ComboBox1.RowSource = Worksheets("Geräteauswahl").Range("B2:B" & loLetzte).Address(external:=True)
LG Sabbel