mit Schleife:
a = 0
For i = 1 To 6
a = InStr(a + 1, Range("a1").Value, ">")
MsgBox a, , i
Next
ohne Schleife:
a = InStr(a + 1, Range("a1").Value, ">")
a = InStr(a + 1, Range("a1").Value, ">")
a = InStr(a + 1, Range("a1").Value, ">")
a = InStr(a + 1, Range("a1").Value, ">")
a = InStr(a + 1, Range("a1").Value, ">")
a = InStr(a + 1, Range("a1").Value, ">")
a = InStr(a + 1, Range("a1").Value, ">")
MsgBox a
Dabei steht in a imme rdie Position des Zeichens.
|