Die Position eines beliebigen Zeichens ermittelst Du mit
chrPos = Instr(Start, QString, SString, vbBinaryCompare)
Start = Zeichen, ab dem gesucht werden soll (Integer); bei Suche vom ersten Zeichen an Start = 1
QString = Quell-Zeichenfolge: Dort, wo gesucht werden soll
SString = Such-Zeichenfolge: Nachdem gesucht wird
chrPos = Stelle, an der der Suchstring zum ersten Mal auftaucht.
wenn du mehrmals suchen willst suchst Du bei den folgenden Malen ab Start = chrPos + 1
In Deinem Fall:
chrPos = Instr(1, x$, "/", vbBinaryCompare)
Severus
|