kann man das eleganter machen ?
06.02.2005 13:03:29
JL
Ein Textbereich soll nach bestimmten Zeichenfolgen durchsucht werden, was dann zu einer Hervorhebung führen soll. Hier meine Lösung als Autodidakt
Sub checker()
Dim c As String
For Each Zelle In Range("Textbereich")
c = "blabla"
checkthis:
b = InStr(Zelle, c)
d = Len(Zelle)
e = 7
If b + 7 > d Then e = d - b - 1
If b > 0 Then
With Zelle.Characters(start:=b, Length:=e).Font
.FontStyle = "Fett Kursiv"
.Size = "9"
End With
End If
If c = "blabla" Then c = "bleble": GoTo checkthis
If c = "bleble" Then c = "blibli": GoTo checkthis
If c = "blibli" Then c = ... usw.
Next
End Sub
Abgesehen davon, dass es so auch nicht klappt, wenn die entspr. Folge ein zweites Mal in der Zelle erscheint, muß das doch irgendwie eleganter sehen.
Außerdem würde ich auch gerne nicht Case-sensitiv suchen.
Danke
Jörg