Zeichenfolge mit Platzhaltern in Ausdruck suchen

Question

Hallo,

ich möchte in einer Schleife eine bestimmte Zeichenfolge #92# in einem Ausdruck cells(i,5) suchen wobei, zwischen den Rauten jeweils zweistellige Zahlen stehen. Hat jemand eine Idee für den Code?

Danke und Gruß A.

Answer 1

Hallo M.O.,

danke, du hast dir wieder richtig Arbeit gemacht.

Klappt einwandfrei, alle Einträge in meiner Datei wurden erkannt. Allerdings tritt doch der Fall ein, daß der Ausdruck T### mehrfach im string vorkommen kann.... Ich versuche das mal mit deiner Vorlage hinzukriegen.

Vielen dank und Gruß A.

Answer 2

Hallo M.O.,

vielen Dank, du hast dir ja echt Arbeit gemacht und super kommentiert!

Klappt einwandfrei, alle Einträge in meiner Datei wurden gefunden!

Allerdings kommt es doch vor, daß die Zeichenfolge T### mehrfach in dem Ausdruck vorkommen kann.

Ich habe deinen Code dafür geringfügig in der Do-Schleife abgeändert, so daß jetzt alle diese Ausdrücke gefunden werden:

......

For d = LBound(arrDaten, 1) To UBound(arrDaten, 1)

  bGefunden = False

  If arrDaten(d, 1) Like "*T###*" Then

    strRest = arrDaten(d, 1)

    Do While Len(strRest) > 3 And strRest Like "*T###*"

    a = InStr(1, strRest, "T")

        strTeil = Mid(strRest, a, 4)

        If strTeil Like "T###" Then

           bGefunden = True

           Cells(d, 13) = Cells(d, 13) & ", " & strTeil

           Cells(d, 14) = "gefunden an Position: " & a

           strRest = Right(strRest, Len(strRest) - a)

          Else

            strRest = Right(strRest, Len(strRest) - a)

         End If

    Loop

  End If

Next d

.....

Viele Grüße und noch mal DANKE!!

Answer 3

Hallo M.O.,

vielen Dank, du hast dir ja echt Arbeit gemacht und super kommentiert!

Klappt einwandfrei, alle Einträge in meiner Datei wurden gefunden!

Allerdings kommt es doch vor, daß die Zeichenfolge T### mehrfach in dem Ausdruck vorkommen kann.

Ich habe deinen Code dafür geringfügig in der Do-Schleife abgeändert, so daß jetzt alle diese Ausdrücke gefunden werden:

......

For d = LBound(arrDaten, 1) To UBound(arrDaten, 1)

  bGefunden = False

  If arrDaten(d, 1) Like "*T###*" Then

    strRest = arrDaten(d, 1)

    Do While Len(strRest) > 3 And strRest Like "*T###*"

    a = InStr(1, strRest, "T")

        strTeil = Mid(strRest, a, 4)

        If strTeil Like "T###" Then

           bGefunden = True

           Cells(d, 13) = Cells(d, 13) & ", " & strTeil

           Cells(d, 14) = "gefunden an Position: " & a

           strRest = Right(strRest, Len(strRest) - a)

          Else

            strRest = Right(strRest, Len(strRest) - a)

         End If

    Loop

  End If

Next d

.....

Viele Grüße und noch mal DANKE!!

Answer 4

Hallo Andreas,

gern geschehen.

Gruß

M.O.