Hallo fedjo!
Tausche Deinen Code für die ComboBox3 gegen den folgenden aus:
Private Sub ComboBox3_Change()
If Me.ComboBox3 > "" Then
Application.ScreenUpdating = False
Selection.AutoFilter Field:=1
Selection.AutoFilter Field:=7, Criteria1:="=" & CDbl(Me.ComboBox3.Value)
Else
Selection.AutoFilter Field:=7
End If
End Sub Bei obigen Code wird nur gefiltert, wenn auch wirklich etwas in der ComboBox steht. Bei Deinem alten Code wurde ein Laufzeitfehler erzeugt, wenn man z.B. den Wert in der ComboBox gelöscht hatte. Dann muss vor dem Kriterium der ComboBox die Zeichenfolge „"=" &“ angeführt werden. Dieser Eintrag sagt aus, dass nach genau dem Wert aus der ComboBox gefiltert wird, das war bei Deiner Variante nämlich nicht der Fall.
Bei Fragen melde Dich.
MfG,
Oliver
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]