Brauche Hilfe bei Replace Befehl

[Martin Speiser]

Hi!

Meine erste Idee war, das ganze so anzulegen:

Replace(LCase(strText), LCase(strSuche), "<b>"&strSuche&"</b>")

Auf diese Art und Weise werden Suchwort und Text in Kleinbuchstaben umgewandelt und es werden immer alle Wörter gefunden. Dafür ist aber auch der ausgegebene Text nur in Kleinbuchstaben.

Weiß jemand eine bessere Idee?

du kannst die Replace-Methode vom RegEx-Objekt benutzen. Ungefähr so:

Dim strText
Dim regEx
strText = "Dies ist ein Test für Replace"
Set regEx = New RegExp
regEx.Pattern = "test"
regEx.IgnoreCase = True
strText = regEx.Replace( strText, "Dummfug" )
MsgBox strText

Gruß,
Martin