Wie bekomme ich sowas hin?
Für Eure Hilfe recht herzlichen Dank !
Sub Filtern_plus_minus_5()
Dim Mldg, Titel, Voreinstellung, Wert1, Wertunten, Wertoben
Mldg = "Wert eingeben" ' Aufforderung festlegen.
Titel = "InputBox-Demo" ' Titel festlegen.
Voreinstellung = "10" ' Voreinstellung festlegen.
Wert1 = InputBox(Mldg, Titel, Voreinstellung)
If Wert1 < 5 Then 'ist der Wert kleiner als 5
Wertunten = 0 'dann 0 eintragen
Else
Wertunten = Wert1 - 5 'sonst den eingegebenen Wert -5
End If
Wertoben = Wert1 + 5 ' der obere Wert ist = Wert +5
'Hier wird der Benutzerdefinierte Filter gesetzt in Meinem Beispiel in der Spalte A
Selection.AutoFilter Field:=1, Criteria1:=">=" & Wertunten, Operator:=xlAnd, _
Criteria2:="<=" & Wertoben
End Sub