Hab nun folgenden Code. Wie baue ich da den Autofilter mit rein? Gefiltert werden soll nach Range("F2")
Dim IngZeile As Long
Dim IngZeileMax As Long
Dim Ingz As Long
Me.Caption = "Befüllung ListBox mit Additem"
With Me.ListBox1
'.ColumnCount = 10
.ColumnWidths = "120;120;120;120;120;120;120;120;120;120;120;120;120;120;120;120;120;120;120;120"
.Font.Size = 14
End With
With Tabelle4
IngZeileMax = .Range("A" & .Rows.Count).End(xlUp).Row 'Letzte Zeile
For IngZeile = 7 To IngZeileMax 'Startzeile bis Endzeile
Me.ListBox1.AddItem .Range("A" & IngZeile).Value
Me.ListBox1.Column(1, Ingz) = .Range("B" & IngZeile).Value 'Spale 1 ist Spalte B
Me.ListBox1.Column(2, Ingz) = .Range("C" & IngZeile).Value
Me.ListBox1.Column(3, Ingz) = .Range("D" & IngZeile).Value
Ingz = Ingz + 1
Next IngZeile
End With
|