AW: String markieren
22.03.2009 23:58:53
mehmet
Hallo Tom,
habe hier ein Makro:
Sub Markiere_2_oder_3_oder_4_Schraegstriche()
Dim lngSt As Long '
Dim rZelle As Range '
Dim strTemp As String '
Dim SuchWert As String '
For Each rZelle In Range("c1:c200")
If rZelle "" Then
With rZelle
'suche: //
If InStr(.Value, "//") > 0 Then
SuchWert = "//"
'suche: ///
ElseIf InStr(.Value, "///") > 0 Then: SuchWert = "///"
'suche: ////
ElseIf InStr(.Value, "////") > 0 Then: SuchWert = "////"
Else
SuchWert = ""
End If
If InStr(.Value, SuchWert) > 0 And SuchWert > "" Then
strTemp = Right$(.Value, Len(.Value) - InStr(.Value, SuchWert) + 0)
strTemp = Left$(strTemp, Len(SuchWert))
lngSt = InStr(.Value, SuchWert)
.Characters(start:=lngSt, Length:=Len(SuchWert & strTemp)).Font.ColorIndex = 3
.Characters(start:=lngSt, Length:=Len(SuchWert & strTemp)).Font.FontStyle = "Fett"
End If
End With
End If
Next rZelle
End Sub
Leider markiert es mir nur die erste Fundstelle.
Wenn weitere in einer Zelle kommen, werden diese nicht markiert.
Wie kann man es einrichten, so dass alle Fundstellen (C1:C200) markiert werden.
Gruss
mehmet