Wenn Du Zahlen filtern möchtest, verkettest Du den Operator/die Operatoren als Zeichenfolge mit dem Zahlenwert
Criteria1:="<=" & 50
wenn ich den +/- Wert in dem Suchformular auch manuell begrenzen könnte
Du kannst den Wert (bspw: 50 von) auch zuvor in einer Variablen berechnen...
Criteria1:="<=" & lngBerechneterWert
Bei dem Select Case funktioniert das Makro nur noch, wenn ich es bei dem ersten Suchbefehl eingebe. Wenn ich beim zweiten oder mehreren Suchbefehlen den Case Befehl anwende filtert es mir beim Ausführen des Makros immer in der Lieferanten Zeile, egal wo ich einen Wert eingebe :(
Die gesetzten Filter müssen zuvor zurückgesetzt werden.
With ListObjects("Datenbank")
.Range.AutoFilter Field:=1 '<--- Filter zurücksetzen
.Range.AutoFilter Field:=2 '<--- Filter zurücksetzen
'...
.Range.AutoFilter Field:=13 '<--- Filter zurücksetzen
End With
|