Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 10:28:49
16.10.2025 17:40:39
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Wenn Text fett dann Zelle gelb einfärben

Forumthread: Wenn Text fett dann Zelle gelb einfärben

Wenn Text fett dann Zelle gelb einfärben
31.12.2019 18:33:56
albin
Hallo Zusammen
Suche eine VBA Lösung.
Ich habe in der Spalte c ab und zu ein Wörter die in Fett hinterlegt ist. Es sind sehr viel Nachnamen, also unterschiedliche Wörte. Was ich suche, ist ein Makro, dass die Zellen mit fetten Wörter gelb einfärbt. Das erste Wort steht ab C2 drin.
Vielen Danke im voraus.
Albin
Anzeige

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wenn Text fett dann Zelle gelb einfärben
31.12.2019 18:42:29
Hajo_Zi
Hallo Albin,
mache es ohne VBA.

Tabelle1
 C
112
212
312
412
512
612
712
812
912
1012
1112
die bedingte Formatierung Fülleffekte, Symbole, Datenbalken
werden in dieser Tabelle nicht dargestellt
Schriftart wird in dieser Tabelle nicht dargestellt

definierte Namen  
Name Bezieht sich auf Tabelle Z1S1-Formel
Fett=ZELLE.ZUORDNEN(20;INDIREKT("ZS";FALSCH)) =GET.CELL(20,INDIRECT("ZS",FALSE))

Bedingte Formatierung Haupttabelle 1  
Wird angewendet auf   Nr. Bed.  Regeltyp  Operator   Formel1   Formel2   Format Schrift Füll-farbe   Unterstrichen   Schrift- farbe Muster   Muster-farbe Typ Bereich
$C:$C01.Bed.: Formel ist =Fett  65535         2$C:$C
Bedingte Formatierung Haupttabelle 2 oberere/unterer Bereich    
Wird angewendet auf   Nr. Bed.  Format Zelle Anhalten Auswahl   Anzeige   Anzahl   Durchschnitt   Typ   Bereich
$C:$C01.Bed.   Falsch          2$C:$C
Die Bedingungen wurden mit Excel-Version ab 2007 ausgelesen.


Schriftformate  
Zelle Rot Grün Blau Color Stil Unterstreichung Effekte Durchgestrichen Schriftart
C2 Fett         
Zellen mit Schriftformatierung automatisch werden nicht dargestellt



Anzeige
AW: Wenn Text fett dann Zelle gelb einfärben
31.12.2019 18:49:25
albin
Danke für die rasche Antwort. Leider brauche ich es in VBA. Ich möchte das Makro in ein bestehendes Makro einbauen / erweitern.
AW: Wenn Text fett dann Zelle gelb einfärben
31.12.2019 18:53:49
Hajo_Zi
lese Bitte alle Beiträge.
Gruß Hajo
AW: Wenn Text fett dann Zelle gelb einfärben
31.12.2019 18:48:07
Daniel
Hi
Sind in der Zelle alle Wörter fett oder nur einzelne?
Am besten ist, du lädst eine Beispieldatei hoch und zeigst Ausgangs- und sollzustand.
Frohes Neues Daniel
Anzeige
AW: Wenn Text fett dann Zelle gelb einfärben
31.12.2019 19:09:09
albin
Sorry, habe vergessen das Häken zu setzten. Noch nicht abgeschlossen
Anzeige
AW: Wenn Text fett dann Zelle gelb einfärben
31.12.2019 19:13:15
albin
.
AW: Wenn Text fett dann Zelle gelb einfärben
31.12.2019 19:18:12
Hajo_Zi

Option Explicit
Sub FettZelle()
Dim Loletzte As Long
Dim LoI As Long
Loletzte = IIf(IsEmpty(Cells(Rows.Count, 3)), Cells(Rows.Count, 3).End(xlUp).Row, Rows. _
Count)
For LoI = 1 To Loletzte
If Cells(LoI, 3).Font.Bold Then
Cells(LoI, 3).Interior.Color = 65535
Else
Cells(LoI, 3).Interior.Color = 16777215
End If
Next LoI
End Sub
Gruß Hajo
Anzeige
AW: Wenn Text fett dann Zelle gelb einfärben
31.12.2019 19:25:28
albin
Hallo Hajo
Super, past wie eine 1.
Danke für die rasche, super Hilfe.
Ich wünsche Dir und allen andern einen guten Rusch ins 2020.
Albin
AW: Wenn Text fett dann Zelle gelb einfärben
31.12.2019 19:31:42
Hajo_Zi
noch eine kleine Änderung.
Option Explicit
Sub FettZelle()
Dim Loletzte As Long
Dim LoI As Long
Loletzte = IIf(IsEmpty(Cells(Rows.Count, 3)), Cells(Rows.Count, 3).End(xlUp).Row, Rows. _
Count)
For LoI = 1 To Loletzte
If Cells(LoI, 3).Font.Bold Then
Cells(LoI, 3).Interior.Color = 65535
Else
Cells(LoI, 3).Interior.ColorIndex = xlNone
End If
Next LoI
End Sub
Gruß Hajo
Anzeige
Erklärung
01.01.2020 14:24:28
Hajo_Zi
bei Xlnone sieht man die Gitternetzlinien, bei weiß nicht.
Gruß Hajo
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Infobox / Tutorial

Zellen einfärben, wenn Text fett ist


Schritt-für-Schritt-Anleitung

Um Zellen in Excel gelb einzufärben, wenn der Text fett formatiert ist, kannst du ein VBA-Makro verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:

  1. Öffne Excel und gehe zu dem Arbeitsblatt, in dem du die Zellen einfärben möchtest.

  2. Drücke ALT + F11, um den VBA-Editor zu öffnen.

  3. Klicke auf Einfügen > Modul, um ein neues Modul zu erstellen.

  4. Füge den folgenden Code in das Modul ein:

    Option Explicit
    Sub FettZelle()
        Dim Loletzte As Long
        Dim LoI As Long
        Loletzte = IIf(IsEmpty(Cells(Rows.Count, 3)), Cells(Rows.Count, 3).End(xlUp).Row, Rows.Count)
        For LoI = 1 To Loletzte
            If Cells(LoI, 3).Font.Bold Then
                Cells(LoI, 3).Interior.Color = 65535 ' Gelb
            Else
                Cells(LoI, 3).Interior.ColorIndex = xlNone ' Keine Füllung
            End If
        Next LoI
    End Sub
  5. Schließe den VBA-Editor und kehre zu Excel zurück.

  6. Führe das Makro aus, indem du ALT + F8 drückst, das Makro FettZelle auswählst und auf Ausführen klickst.

Nun werden alle Zellen in Spalte C, die fetten Text enthalten, gelb eingefärbt.


Häufige Fehler und Lösungen

  • Fehler: Das Makro funktioniert nicht.
    Lösung: Stelle sicher, dass die Makros in deiner Excel-Version aktiviert sind. Gehe zu Datei > Optionen > Trust Center > Einstellungen für das Trust Center > Makroeinstellungen und aktiviere die entsprechenden Optionen.

  • Fehler: Zellen werden nicht gefärbt, obwohl der Text fett ist.
    Lösung: Überprüfe, ob die Schriftart tatsächlich fett formatiert ist. Manchmal kann Text durch andere Formatierungen fett erscheinen, ohne tatsächlich fett eingestellt zu sein.


Alternative Methoden

Wenn du keine VBA-Lösung verwenden möchtest, kannst du auch die bedingte Formatierung in Excel nutzen.

  1. Markiere die Zellen in Spalte C.

  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:

    =ISTEXT(C1) * (C1.Font.Bold)
  5. Klicke auf Formatieren, wähle die Füllfarbe Gelb und bestätige mit OK.

Diese Methode funktioniert jedoch nur, wenn du die Schriftart als fett festlegst und nicht bei gemischten Formatierungen innerhalb der Zelle.


Praktische Beispiele

  1. Beispiel 1: Angenommen, in Zelle C2 steht „Müller“ und ist fett. Nach dem Ausführen des Makros wird die Zelle gelb eingefärbt.
  2. Beispiel 2: Wenn in Zelle C3 „Schmidt“ steht und fett formatiert ist, wird diese Zelle ebenfalls gelb eingefärbt.

Mit der oben genannten excel wenn funktion text fett kannst du die Formatierung einfach anpassen.


Tipps für Profis

  • Wenn du regelmäßig solche Formatierungen benötigst, erwäge, das Makro in die Arbeitsmappe zu integrieren, damit es immer verfügbar ist.
  • Du kannst den Code weiter anpassen, um zusätzliche Formatierungen oder Bedingungen hinzuzufügen.

FAQ: Häufige Fragen

1. Wie kann ich die Zellen in einer anderen Spalte einfärben?
Ändere einfach Cells(LoI, 3) im Code auf die entsprechende Spaltennummer.

2. Funktioniert das Makro auch in älteren Excel-Versionen?
Das VBA-Makro sollte in Excel-Versionen ab 2007 funktionieren. Bei älteren Versionen kann es jedoch zu Einschränkungen kommen.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige