Hallo Zusammen,
ich habe folgenden Code:
'Überprüfen ob ggf. eine bestehende Externe Servicenummer im Betreff genannt wird
rst.Open strSQL, cnn, adOpenDynamic
With rst
.MoveFirst
Do Until .EOF
strExTicktNr = !WeitergeleitetNummer
If InStr(1, strBetreff, strExTicketNr, vbBinaryCompare) > 0 Then 'Nummer wird im Betreff gefunden
Exit Do
strTicktNr = !TicketNr
GoTo Ticketverfolgung 'Kein neues Ticket erstellen, sondern an bestehendes Ticket anhängen
Else
.MoveNext 'Nächste Vorhandene Externe Nummer suchen
Loop
End If
End If
Und bekomme da den Fehler, dass ich Loop ohne Do tue.
Liegt natürlich daran, dass das Loop im Else Bereich steht. Aber genau das will ich ja auch. Wenn die InStr Suche eine Übereinstimmung findet soll nicht mehr weiter durchlaufen werden.
Wie drücke ich das aus?
Danke für Hilfe.
Viele Grüße
Patrick