VBA Excel Makro einen String in String suchen

2 Antworten

weise beiden Zeichenketten je eine Variable zu und frage ab. Bsp:
Sub StringInString()
Dim AStr, BStr
AStr = "xxxyyyzzz"
BStr = "xxyy"
If InStr(1, AStr, BStr, vbTextCompare) > 0 Then MsgBox (BStr & " ist in " & AStr & " ab Pos." & InStr(1, AStr, BStr) & " enthalten")
End Sub

Die Fkt Mid() entspricht der Fkt Teil(von;Start;Länge),
Instr entspricht finden(,vbBinaryCompare)/suchen(vbTextCompare)

Was möchtest Du wissen?