ich habe ein Makro das mir zuerst einen Autofilter setzt, und dann nach meinen Eingaben filtert.
Nun möchte ich nur die Namen in meine Listbox haben, die mir der Autofilter noch übrig lässt.
Im Excelsheet siehts prima aus. Wenn ich filtere nach Alter (z.B. "30", habe ich z.B. nur noch 10 Namen auf dem Sheet stehen, aber in die Listbox wirft er mir trotzdem alle Namen rein. Wo ist mein Fehler?
Alex
Private Sub CommandButton3_Click()
If ComboBox1.Value = "" Then
MsgBox ("Filter Nr.2 fehlt!"), vbCritical
Exit Sub
End If
Dim f As Variant
f = Filter.Filter1.Value
Dim c As Variant
c = Filter.ComboBox1.Value
Dim i As Integer
Filterergebnis.TextBox1.Text = Filter.Filter1.Value
Filterergebnis.TextBox2.Text = Filter.ComboBox1.Value
'Autofilter aktivieren und auswählen
Selection.AutoFilter _
Field:=3, Criteria1:=Filter.ComboBox1.Value
'Füllen der Listbox mit entsprechenden Namen
Sheets("Anamnese").Activate
i = ActiveSheet.UsedRange.Rows.Count
With Filterergebnis.ListBox1
.ColumnCount = 3
.ColumnHeads = True
.RowSource = "Anamnese!B2:B" & i
.ColumnWidths = "7cm;0cm;0cm"
End With
Filterergebnis.Show
End Sub