Zeichen links und Rechts des Suchtextes löschen
24.07.2006 16:26:03
Gregor
Untenstehender Code funktioniert soweit einwandfrei. Er formatiert die in Klammern stehenden Wörter fett. Wie erreiche ich, dass nach der Formatierung die Klammern gelöscht werden?
Merci für deinen Rat.
Gregor
Sub Fett_Schrift()
Dim intStart As Integer, intEnde As Integer
Dim rng As Range
Anzahl = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
For Each rng In Range("d1:e100" & Anzahl)
If Len(rng) > 0 Then
intStart = InStr(1, rng, "(")
intEnde = InStr(1, rng, ")")
If intStart > 0 And intEnde > 0 Then
Do
rng.Characters(intStart + 1, intEnde - intStart - 1).Font.Bold = True
'gleichzeitig "(" und ")" löschen ?
intStart = InStr(intEnde + 1, rng, "(")
intEnde = InStr(intEnde + 1, rng, ")")
Loop While intStart > 0 And intEnde > 0
End If
End If
Next
End Sub
Anzeige