VBA Code erweitern

Hallo Leute,
ich habe folgenden Code in Verwendung, um ein Wort farbig zu kennzeichnen:
Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'Sucht in einer Zelle ein Wort und färtb dieses Rot ein 'Hinweis : Das funktioniert nur mit festen Texten, nicht mit 'Ergebnissen aus Funktionen ! '25.08.2010, NoNet - www.excelei.de Dim strWort As String, lngZ As Long, rngZelle As Range Set rngZelle = Range("D2:I22") 'In Zelle A30 soll das Wort gesucht werden strWort = "Test" 'Das Wort, das Rot eingefärtb werden soll For Each Rng In rngZelle If InStr(Rng, strWort) Then lngZ = InStr(Rng, strWort) Rng.Characters(Start:=lngZ, Length:=Len(strWort)).Font.Color = vbRed End If Next
End Sub
---------------------------------------------------------------------------------------------------------------------------------
Wie muß der Code gestaltet werden, wenn ich ein 2. Wort, z.B. "Heute" blau geschrieben haben möchte?
Geht das in dem einen Code oder muß dafür ein 2. hinterher kommen?
Viele Grüße vorab
Jürgen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'Sucht in einer Zelle ein Wort und färtb dieses Rot ein 'Hinweis : Das funktioniert nur mit festen Texten, nicht mit 'Ergebnissen aus Funktionen ! '25.08.2010, NoNet - www.excelei.de Dim strWort As String, strWort2 as string,lngZ As Long, rngZelle As Range Set rngZelle = Range("D2:I22") 'In Zelle A30 soll das Wort gesucht werden strWort = "Test" 'Das Wort, das Rot eingefärtb werden soll strWort2="ABC" 'Das Wort, das Rot eingefärtb werden soll For Each Rng In rngZelle If InStr(Rng, strWort) Then lngZ = InStr(Rng, strWort) Rng.Characters(Start:=lngZ, Length:=Len(strWort)).Font.Color = vbRed End If If InStr(Rng, strWort2) Then lngZ = InStr(Rng, strWort2) Rng.Characters(Start:=lngZ, Length:=Len(strWort2)).Font.Color = vbblue End If Next End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'Sucht in einer Zelle ein Wort und färtb dieses Rot ein 'Hinweis : Das funktioniert nur mit festen Texten, nicht mit 'Ergebnissen aus Funktionen ! '25.08.2010, NoNet - www.excelei.de '02.09.2011, reingepfuscht von Mäxl Dim strWort() As Variant, lngZ As Long, rngZelle As Range Set rngZelle = Range("D2:I22") 'In Zelle A30 soll das Wort gesucht werden strWort() = Array("Test", vbRed, "Heute", vbBlue) For Each Rng In rngZelle For IntI = 0 To 1 If InStr(Rng, strWort(IntI * 2)) Then lngZ = InStr(Rng, strWort(IntI * 2)) Rng.Characters(Start:=lngZ, Length:=Len(strWort(IntI * 2))).Font.Color = _ strWort(IntI * 2 + 1) End If Next Next End Sub

Beliebteste Forumthreads (12 Monate)

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread