Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1172to1176
1172to1176
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

bestimmtes wort rot schreiben

Forumthread: bestimmtes wort rot schreiben

bestimmtes wort rot schreiben
Ernst
Hallo Vba Profis !
Ich würde ein Vba Code benötigen der mir in Spalte P:3 bis P:1000 das Wort (Versuch) rot darstellt die ursprüngliche Textfarbe sollte erhalten bleiben.
Beispiel..... (Dies ist ein (Versuch) nur das Wort Versuch soll in roter Textfarbe dargestellt werden !
wäre für Lösungsvorschläge Dankbar.
lg.Ernst
Anzeige
AW: bestimmtes wort rot schreiben
25.08.2010 12:19:43
ransi
HAllo Ernst
Stehen in P3:P1000 Formeln oder sind das Constanten ?
Ist Versuch in einen Text eingebaut "abcVersuchefg" oder steht das alleine in der Zelle "Versuch" ?
ransi
AW: bestimmtes wort rot schreiben
25.08.2010 12:20:17
Hajo_Zi
Hallo Ernst,
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

Anzeige
AW: bestimmtes wort rot schreiben
25.08.2010 12:21:55
Hajo_Zi
Hallo Ernst,
der Hinweis von Ransi ist wichtig. In Formeln ist das nicht möglich.

AW: bestimmtes wort rot schreiben
25.08.2010 12:22:53
Rudi
Hallo, 
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

Gruß
Rudi
Anzeige
Einzelnes Wort in Zelle rot einfärben
25.08.2010 12:24:22
NoNet
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
Anzeige
AW: Einzelnes Wort in Zelle rot einfärben
25.08.2010 12:48:28
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
25.08.2010 12:49:48
Hajo_Zi
Hallo Ernst,
nur wenige sehen Deine Datei.

Anzeige
Blatt aktiv? owT
25.08.2010 12:53:37
Rudi
Verbundene Zellen : Ändere [D30] in [N8] ! _oT
25.08.2010 13:06:25
NoNet
_oT = "ohne Text"
Anzeige
AW: Verbundene Zellen : Ändere [D30] in [N8] ! _oT
25.08.2010 13:11:01
Ernst
Hallo NoNet !
Troz Änderung auf N8 klappt es nicht.
lg.Ernst
AW: Verbundene Zellen : Ändere [D30] in [N8] ! _oT
25.08.2010 13:22:59
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
Anzeige
Anm.: du meinst N nicht P ...
25.08.2010 13:26:08
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 ...
25.08.2010 13:30:28
Ernst
Danke !
funktioniert.
ist es möglich egal ob ich das wort gross oder klein eingebe ,das es rot dargestellt wird ?
lg.Ernst
Anzeige
AW: Anm.: du meinst N nicht P ...
25.08.2010 13:35:44
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
Anzeige
Hatte ich doch geschrieben: GROSS-/Kleinschreibung
25.08.2010 13:51:19
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
Anzeige
Farben umdefiniert ? - Makroblatt ?
25.08.2010 13:00:57
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
Anzeige
AW: Danke
25.08.2010 14:03:54
Ernst
Hallo Vba Profis !
Danke für die Mühe .
lg.Ernst
Anzeige

Infobox / Tutorial

Bestimmte Wörter in Excel rot einfärben

Schritt-für-Schritt-Anleitung

Um in Excel bestimmte Wörter rot darzustellen, kannst du ein VBA-Makro verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Füge ein neues Modul hinzu:

    • Klicke auf Einfügen > Modul.

  3. Kopiere den folgenden Code in das neue Modul:

    Sub WortRotEinfaerben()
   Dim rngC As Range
   Dim i As Integer
   For Each rngC In Range("P3:P1000")
       i = InStr(rngC, "Versuch")
       If i > 0 Then
           rngC.Characters(i, Len("Versuch")).Font.Color = RGB(255, 0, 0)
       End If
   Next
End Sub

  4. Schließe den VBA-Editor und kehre zu Excel zurück.

  5. Führe das Makro aus:

    • Drücke ALT + F8, wähle WortRotEinfaerben und klicke auf Ausführen.

Jetzt sollten alle Vorkommen des Wortes „Versuch“ in den Zellen P3 bis P1000 rot eingefärbt sein.

Häufige Fehler und Lösungen

  • Problem: Der Text bleibt schwarz.

    • Lösung: Stelle sicher, dass du das Makro ausgeführt hast und die richtigen Zellen ausgewählt sind (P3:P1000).

  • Problem: Das Wort wird nicht gefunden.

    • Lösung: Achte darauf, dass das Wort exakt so im Text steht (Groß-/Kleinschreibung beachten). Du kannst die Funktion LCase() oder UCase() verwenden, um die Suche unabhängig von der Schreibweise zu gestalten.

  • Problem: Fehlermeldungen beim Ausführen des Makros.

    • Lösung: Überprüfe, ob das Makro in einem regulären Arbeitsblatt und nicht in einem Makro-Arbeitsblatt ausgeführt wird.

Alternative Methoden

Wenn du kein VBA verwenden möchtest, kannst du auch die bedingte Formatierung verwenden, um bestimmte Wörter rot darzustellen:

  1. Wähle die Zellen aus, die du formatieren möchtest (z.B. P3:P1000).
  2. Gehe zu Start > Bedingte Formatierung > Neue Regel.
  3. Wähle Formel zur Ermittlung der zu formatierenden Zellen verwenden.
  4. Gib die folgende Formel ein: 
    =SUCHEN("Versuch";P3) > 0
  5. Wähle das Format (Textfarbe rot) und bestätige mit OK.

Praktische Beispiele

Hier sind einige Beispiele, wie der VBA-Code verwendet werden kann:

  • Beispiel 1: Der Code färbt nur das Wort „Versuch“ in rot, egal in welchem Satz es steht.
  • Beispiel 2: Du kannst den Code leicht anpassen, um auch andere Wörter in anderen Farben darzustellen, indem du den Farbwert in RGB() änderst.

Tipps für Profis

  • Erweiterte Suche: Verwende die Funktion InStr, um nach verschiedenen Variationen eines Wortes zu suchen.

  • Dynamische Bereiche: Anstatt feste Zellbereiche zu verwenden, kannst du auch UsedRange nutzen, um alle benutzten Zellen in einem Blatt zu durchsuchen.

  • Fehlerbehandlung: Füge Fehlerbehandlungsroutinen in deinen VBA-Code ein, um unerwartete Probleme zu vermeiden.

FAQ: Häufige Fragen

1. Wie kann ich mehrere Wörter gleichzeitig einfärben?
Du kannst mehrere If-Bedingungen in deinem VBA-Code verwenden oder eine Liste von Wörtern durchlaufen.

2. Funktioniert das auch in Excel Online?
Leider unterstützt Excel Online keine VBA-Makros. Du musst die Desktop-Version verwenden.

3. Was ist der Unterschied zwischen RGB und Font.Color?
RGB ermöglicht es dir, eine benutzerdefinierte Farbe zu definieren, während Font.Color die Standardfarben verwendet.

4. Wie kann ich die Schriftgröße beim Einfärben ändern?
Du kannst im VBA-Code zusätzlich die Font.Size-Eigenschaft anpassen, um die Schriftgröße zu ändern.

Diese Anleitung hilft dir, bestimmte Wörter in Excel rot darzustellen und häufige Probleme zu beheben. Nutze die Möglichkeiten von VBA, um deine Excel-Daten noch ansprechender zu gestalten!

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige