VisualBasic [VBA] Wert mit Inputbox filtern

[Shyne]

Wert mit Inputbox filtern

Hallo,

ich stehe vor einem kleinen Problem und zwar möchte ich mit einer Inputbox einen Wert filtern und diesen dann in eine
neue Tabelle kopieren.


VBA:

Sub AusInputbox()
Dim s1 As Long
Sheets("AUS").Activate
s1 = InputBox("Bitte Wert eingeben!")
Selection.AutoFilter _
Field:=22, Criteria1:=s1

ActiveCell.CurrentRegion.SpecialCells(xlVisible).Copy
Sheets("Tabelle1").Activate
Range("A1").Select
ActiveSheet.Paste
End Sub

Mein Problem liegt nun beim Criteria1:=s1!
Ich möchte das man jeden Zahlenwert eingeben kann. Suchkriterium befindet sich in Spalte "V"
Hat jemand ein Lösungsvorschlag?



Danke

 

[Shyne]

Code ist doch richtig.
Habe beim test was vergessen was ich beim post
nicht vergessen habe.

Danke