Hi Christoph.
Ein Beispiel dazu:
Option Explicit 'Variablendeklaration erzwingen
Public Sub Test()
Dim strExample As String
Dim strSearchKey As String
Dim enmCompareMethod As VbCompareMethod
Dim lngStart As Long
strExample = "Apfel 1 Banane 2 Kirsche 3 apfel 4 Himbeere 5 KirSche 6 Apfel 7 BAnane 8 banane 9"
strSearchKey = "Banane"
' enmCompareMethod = vbBinaryCompare
enmCompareMethod = vbTextCompare
'erstes Vorkommen suchen...
lngStart = InStr(1, strExample, strSearchKey, enmCompareMethod)
Debug.Print "[Neuer Suchvorgang]"
Do While lngStart > 0
'zur Veranschaulichung wird hier
'die einstellige(!) Zahl nach dem Fund mit ausgegeben
Debug.Print Mid$(strExample, lngStart, Len(strSearchKey)), Mid$(strExample, lngStart + Len(strSearchKey) + 1, 1)
'nächstes Vorkommen suchen
lngStart = InStr(lngStart + Len(strSearchKey), strExample, strSearchKey, enmCompareMethod)
Loop
End Sub
Beachte bitte auch das Ergebnis, wenn du enmCompareMethod auf vbBinaryCompare setzt und den Unterschied zu vbTextCompare.
PS: Die Ausgabe erfolgt im Direktfenster. Dies ist standardmäßig nicht zu sehen, daher muss du es ggf. über das Menü Ansicht (oder STRG+G) erst einblenden.
Gruß
|