@Search: Antwort auf "Werte splitten ..."
mpb
ich habe Deine Frage gestern noch beantwortet, der Thread ist aber zwischenzeitlich in das Archiv gewandert:
https://www.herber.de/forum/archiv/1172to1176/t1172032.htm
Hier nochmal die Antwort:
Hallo,
ich habe im ursprünglichen Code 2 Zeilen auskommentiert, die nach dem ersten Treffer die Schleifendurchläufe abbrechen. Dadurch läuft da Makro evtl. etwas länger, es werden aber alle Treffer ausgegeben. Dadurch hast Du automatisch auch die Info, wenn mehr als ein Trefferbereich vorkommt. Außerdem wird der Zähler anz zwischenzeitlich wieder auf Null gesetzt.
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 Gruß
Martin