@Search: Antwort auf "Werte splitten ..."

Sub In_Bereichen_suchen()
Dim Suchwert As Double
Dim i As Double
Dim j As Integer
Dim k As Integer
Dim z As Double
Dim s As Integer
Dim anz As Integer
Dim Quelle As Worksheet
Dim Zwi As Worksheet
Dim Treffer As Boolean
On Error GoTo errorhandler
Suchwert = CDbl(InputBox("Bitte Suchwert eingeben!"))
Treffer = False
Set Quelle = ActiveSheet
Worksheets.Add
Set Zwi = ActiveSheet
Quelle.Columns("A:A").Copy Destination:=Zwi.Range("A1")
Zwi.Columns("A:A").TextToColumns Destination:=Zwi.Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=True, Comma:=False, Space:=False, Other:=True, OtherChar:="-"
s = Zwi.UsedRange.Columns.Count
z = Zwi.Range("A65356").End(xlUp).Row
anz = 0
For i = 1 To z
For j = 1 To s - 1 Step 2
If Suchwert >= Zwi.Cells(i, j) And Suchwert