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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen