Microsoft Excel

Herbers Excel/VBA-Archiv

string nach zeichen durchsuchen



Thema: string nach zeichen durchsuchen

Betrifft: string nach zeichen durchsuchen
von: timo
Geschrieben am: 08.10.2002 - 14:40:40

Hallo!

gibt es eine schnelle (und einfache) möglichkeit, einen string nach einem bestimmten zeichen, z.b. "\" zu durchsuchen?

danke

timo


  

Re: string nach zeichen durchsuchen
von: Joachim K
Geschrieben am: 08.10.2002 - 14:53:30

Hallo Timo,
in Spalte A sind Texte mit "/" -> Makro schreibt in Spalte B den Text nach letztem "/"


For AA = 2 To 1000
SuchText = Cells(AA, 1).Value
If SuchText = "" Then Exit Sub
SuchZeichen = "\"
Pos1 = InStr(1, SuchText, SuchZeichen, 1)
For BB = 2 To 10
Pos(BB) = InStr(Pos(BB - 1) + 1, SuchText, SuchZeichen, 1)

Next BB
For CC = 1 To 10
If Pos(CC) > Pos(CC + 1) Then Pos0 = Pos(CC): Exit For
Next CC
Application.Cells(AA, 2).Value = Mid(SuchText, Pos0 + 1)
Next AA

Vielleicht kannst Du damit etwas anfangen.

Gruß Joachim

  

Re: string nach zeichen durchsuchen
von: timo
Geschrieben am: 09.10.2002 - 09:41:43

erstmal danke!

jedoch erhalte ich die meldung, das die sub oder funktion Pos nicht definiert ist...
muss ich da noch was zusätzliches eintragen?

danke
timo