So sollte es funktionieren
08.03.2019 22:43:18
Beverly
Hi Heinz,
du darfst keine RowSource für die ComboBoxArtikelnummer eintragen sondern musst die Liste mittels AddItem füllen. Ergänze dazu das UserForm_Activate Ereignis (nach dem Füllen der ComboCoxLinie!) mit diesem Code:
Dim rngZelle As Range
Dim lngLetzte As Long
With Worksheets("Artikelliste")
lngLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 1)), _
.Cells(.Rows.Count, 1).End(xlUp).Row, .Rows.Count)
Me.ComboBoxArtikelnummer.Clear
For Each rngZelle In .Range(.Cells(2, 2), _
.Cells(lngLetzte, 2)).SpecialCells(xlCellTypeVisible)
Me.ComboBoxArtikelnummer.AddItem rngZelle.Value
Next rngZelle
End With
Ergänze außerdem die folgende Prozedur:
Private Sub ComboBoxLinie_AfterUpdate()
Dim rngZelle As Range
Dim lngLetzte As Long
With Worksheets("Artikelliste")
lngLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 1)), _
.Cells(.Rows.Count, 1).End(xlUp).Row, .Rows.Count)
Me.ComboBoxArtikelnummer.Clear
For Each rngZelle In .Range(.Cells(2, 2), _
.Cells(lngLetzte, 2)).SpecialCells(xlCellTypeVisible)
Me.ComboBoxArtikelnummer.AddItem rngZelle.Value
Next rngZelle
End With
End Sub