bestimmtes wort rot schreiben

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Option Explicit Sub Sascha() ' erstellt von HajoZiplies@web.de 06.06.03 Dim LoI As Long For LoI = 3 To 1000 If InStr(Cells(LoI, 16), "Versuch") > 0 Then Cells(LoI, 16).Characters(Start:=InStr(Cells(LoI, _ 16), "Versuch"), Length:=7).Font.Color = 255 End If Next LoI End Sub

Sub ttt() Dim rngC As Range, i As Integer For Each rngC In Range(Cells(1, 16), Cells(Rows.Count, 16).End(xlUp)) i = InStr(rngC, "Versuch") If i > 0 Then rngC.Characters(i, 7).Font.Color = RGB(255, 0, 0) End If Next End Sub

Hallo Ernst,
hier ein Beispielmakro :

VBA-Code:

Sub EinzelnesWortEinfaerben()
    '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 = [A30] 'In Zelle A30 soll das Wort gesucht werden
    strWort = "Versuch" 'Das Wort, das Rot eingefärtb werden soll
    lngZ = InStr(rngZelle, strWort)
    If lngZ Then
        rngZelle.Characters(Start:=lngZ, Length:=Len(strWort)).Font.Color = vbRed
    End If
End Sub
Gruß, NoNet

Aktuelle Infos und Anmeldung zum => Exceltreffen 2010 <= in Neubrandenburg (15.-17.10.2010) :
Treffen der Excel-Freunde und zahlreicher Helfer aus diversen Excel-Foren.
Auch DU kannst daran teilnehmen ... => Klicke hier <=

AW: Einzelnes Wort in Zelle rot einfärben

Ernst

Hallo Vba Profis !
Danke für die zahlreichen Vörschläge allerdings funktioniert keiner bei mir . Sämtlicher Text sowie das Wort Versuch sind in schwarzer Textfarbe.
ps:Es stehen keine Formeln in den Zellen.
Woran kann das liegen ?
lg.Ernst

AW: Einzelnes Wort in Zelle rot einfärben

Hajo_Zi

Hallo Ernst,
nur wenige sehen Deine Datei.

Blatt aktiv? owT

Rudi

AW: Blatt aktiv? owT

Ernst

Hallo Vba Profis !
hier besagte Datei.
https://www.herber.de/bbs/user/71250.zip
lg.Ernst

Verbundene Zellen : Ändere [D30] in [N8] ! _oT

NoNet

_oT = "ohne Text"

AW: Verbundene Zellen : Ändere [D30] in [N8] ! _oT

Ernst

Hallo NoNet !
Troz Änderung auf N8 klappt es nicht.
lg.Ernst

AW: Verbundene Zellen : Ändere [D30] in [N8] ! _oT

EvilRik

Hallo Ernst,
hier der Code von NoNet angepasst.
Füg den Code in das Worksheet_SelectionChange Ereignis ein.

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("n3:n1000") 'In Zelle A30 soll das Wort gesucht werden
strWort = "Versuch" '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

Gruß Henrik

Anm.: du meinst N nicht P ...

EvilRik

... "Versuch" muss auch zu Anfang großgeschrieben werden.
Es findet ein genauer TextVergleich statt.
Du kannst das noch anpassen mit den Anweisungen LCase() oder UCase().
Henrik

AW: Anm.: du meinst N nicht P ...

Ernst

Danke !
funktioniert.
ist es möglich egal ob ich das wort gross oder klein eingebe ,das es rot dargestellt wird ?
lg.Ernst

AW: Anm.: du meinst N nicht P ...

Rudi

Hallo,

Sub ttt()
Dim rngC As Range, i As Integer
For Each rngC In Range(Cells(1, 14), Cells(Rows.Count, 14).End(xlUp))
i = InStr(LCase(rngC), "versuch")
If i > 0 Then
rngC.Characters(i, 7).Font.Color = RGB(255, 0, 0)
End If
Next
End Sub

Gruß
Rudi

Hatte ich doch geschrieben: GROSS-/Kleinschreibung

NoNet

Hallo Ernst,
ich hatte bereits hier : https://www.herber.de/forum/messages/1174147.html geschrieben :

- Enthält die Zellen den Begriff "Versuch" (GROSS-/Kleinschreibung/Leerzeichen beachten !) überhaupt ?

Das hattest Du wohl nicht beachtet oder nicht verstanden ?!?!?
Gruß, NoNet

Farben umdefiniert ? - Makroblatt ?

NoNet

Hallo Ernst,
k.A. weshalb das nicht funktioniert. Mögliche Ursachen und Fragen :
- Hast Du das Makro auch ausgeführt ?
- Erscheint eine Fehlermeldung ? - Wenn ja : Welche ?
- Enthält die Zellen den Begriff "Versuch" (GROSS-/Kleinschreibung/Leerzeichen beachten !) überhaupt ?
- Hast Du etwa per "Extras - Optionen - Farben" die Farbe ROT umdefiniert ?
- Handelt es sich etwa um ein MAKRO-Blatt anstatt Tabellenblatt (siehe VBA-Editor, Projektexplorer) ?
- Färbt ein anderes Makro/AddIn die Zelle wieder um ?
Falls alles nicht, dann lade bitte Deine Datei mal hoch...
Gruß, NoNet

AW: Danke

Ernst

Hallo Vba Profis !
Danke für die Mühe .
lg.Ernst

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("n3:n1000") 'In Zelle A30 soll das Wort gesucht werden strWort = "Versuch" '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

Sub ttt() Dim rngC As Range, i As Integer For Each rngC In Range(Cells(1, 14), Cells(Rows.Count, 14).End(xlUp)) i = InStr(LCase(rngC), "versuch") If i > 0 Then rngC.Characters(i, 7).Font.Color = RGB(255, 0, 0) End If Next End Sub

Beliebteste Forumthreads (12 Monate)

18 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread