mit nachstehendem Code filtere ich die Spalten A und B mit Wert aus Label1.
In der Combobox1 werden dann die gefilterten Werte angezeigt.
Was ich jedoch nicht möchte, es wird als oberste Zeile beim Öffnen der Combobox
eine leere Zeile angezeigt.
Wie kann ich bitte die leere Zeile verhindern?
Private Sub CommandButton1_Click()
Dim letzte As Long
Dim Wert As String
'Wert = "Zweck"
Wert = UserForm2.Label1
With Sheets("Tabelle2")
letzte = .Cells(.Rows.Count, 1).End(xlUp).Row
' Range("A1:B8").Select
Range("A1:B" & letzte).Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$B" & letzte).AutoFilter Field:=2, Criteria1:=Wert
With ComboBox1
.Clear
.ColumnCount = 2 'zweite Spalte in Listbox einrichten
' .ColumnWidths = CStr(.Width) & ";0" 'Spaltenbreite der zweiten Spalte auf 0
.ColumnWidths = "3cm;0" 'Spaltenbreite der zweiten Spalte auf 0
.ColumnHeads = False
.AddItem ""
For lngZeile = 2 To Sheets("Tabelle2").Cells(Rows.Count, 1).End(xlUp).Row
If Not Rows(lngZeile).Hidden Then
.AddItem Cells(lngZeile, 1)
.List(.ListCount - 1, 1) = lngZeile 'Zeilennummer in die zweite Spalte schreiben
End If
Next
End With
End With
End Sub
Besten Dank für eure Hilfe.
Gruss
Peter