|
vielleicht wäre es so sinnvoller:
Option Explicit
Private Sub Getriebe_Change()
Filtern
End Sub
Private Sub Marke_Change()
Filtern
End Sub
Private Sub Filtern()
If (Marke = "" Or InStr(1, Fahrzeugbestand.Cells(Zeile, 2)(lng, 3), Marke, vbTextCompare) > 0) _
And (Getriebe = "" Or InStr(1, Fahrzeugbestand.Cells(Zeile, 6), Getriebe, vbTextCompare) > 0) Then
'.... dein Code
End If
End Sub
statt mit Typenkonvertierung (LCase) zu arbeiten nutze vbTextCompare.
Dann hatte ich geschrieben, dass InStr bei keinen Fund 0 zurückgibt deshalb >0 für Treffer.
Gruß Uwe
|