Ich habe dieses Makro:
Private Sub ComboBox1_Change()
Dim FI$
If bolFocus = True Then Exit Sub
FI = ActiveSheet.ComboBox1.Text
With Selection
.AutoFilter Field:=3, Criteria1:=FI & "*"
End With
End Sub
klappt einwandfrei.Ich möchte aber auch das das Suchkriterium in der Spalte B mit gesucht wird.
mfg philipp