Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 08:56:18
Textbox in Tabellenblatt ohne Bestätigung in Zelle eintragen
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1728to1732
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1728to1732
1728to1732
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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 0 0 0 0 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
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
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
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
Anzeige
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
Erklärung
01.01.2020 14:24:28
Hajo_Zi
bei Xlnone sieht man die Gitternetzlinien, bei weiß nicht.
Gruß Hajo
Anzeige

77 Forumthreads zu ähnlichen Themen

Formel wenn dann sonst ...
Uwe

Hallo, Gemeinde ..
Mir stellt sich folgende Herausforderung:
ich möchte in einer Liste Fahrtkosten berechnen. Der Arbeiter bekommt von km 1 bis km 10 0,36€ pro km (einfach). ab dem 11 km bekommt der Arbeiter 0,40€.
Wie bekomme ich eine Formel hin, die das berechnet, wenn
- der A...
31.10.2008 11:20:00
Thread-ID: 1020821
10 Beiträge
Anzeige
Formelproblem "wenn(text - beinhaltet, dann....)
Andi

Hallo Experten,
Ich steh bei folgender Excelformel an.
=WENN(D13=....folgender text beinhaltet ist (AA).....;"True";"false")
Ich würde gerne überprüfen ob im Feld D13 der Text "AA" vorkommt (z.B. Artikel "AA01"), falls dies zutrifft bitte "True" schreiben, ansonsten "false".
Da...
04.12.2008 11:42:00
Thread-ID: 1030117
3 Beiträge
Formel WENN DANN
Hirtenanna

Hallo Gemeinde,
wende mich heute mit einem Formelproblem an Euch, wo ich bisher keine Lösung für ergoogeln bzw. im Forum finden konnte. Weiß nur, das es sich wohl um eine WENN DANN Formel handeln muß.
Also:
Ich habe in den Zellen V4 R4 N4 J4 F4 Z4 Zeiten stehen, welche als Summe in...
25.01.2009 12:12:00
Thread-ID: 1043536
11 Beiträge
Anzeige
Formel wenn dann
bob.whitney@freenet.de

Hallo,
ich zerbreche mir schon seit Tagen den Kopf, aber mien kleines bescheidenes Wissen reicht hier nicht mehr aus.
Ich möchte eine Gesamtmasse (hier im Beispiel eine Menge an Litern) auf mehrere einzelne Tanks verteilen. Nun haben die Tanks unterschiedliche Grössen und sollen in eine...
11.07.2009 18:36:30
Thread-ID: 1087887
6 Beiträge
Formel Wenn - Dann + Bedingte Formatierung
Alex

Hallo Zusammen.!!
eigentlich möchte ich "nur" eine "bedingte Formatierung" aus bestimmten Buchstabenkombination in Textfeldern erstellen. Da ich aber nicht weiß, wie man in der Formel nach "Buchstabenteilen" sucht, wollte das in einem "Hilfsfeld" erledigen. Klappt aber auch nicht..!! :-(<...
01.01.1970 00:00:00
Thread-ID: 1116639
3 Beiträge
Formel wenn oder pfrüfen dann...
Becker

Hallo Excel- Spezialisten,
hebe kleines Problem bringt mich bei meiner Arbeit nicht weiter.
In Spalte "C" kommen sehr oft die Benutzerdefinierte Zahlen mit "gr", für die Zahlen
muß man den Wert immer mit "1000" gr diviedieren und dann multilplizieren.
Kann man das mit Formel anw...
15.05.2010 08:44:23
Thread-ID: 1157118
11 Beiträge
Verschachtelte WENN Funktion gibt Text nicht aus
Martin

Hallo zusammen,
kann mir jemand sagen warum untenstehende Formel leider nur die Fehlermeldung #WERT! auswirft?
Die Bezüge sind alle korrekt und das Feld, das die Formel enthält hat das Format "Standard".
Ich habe dieselbe Formel in leicht abgewandelter Form bereits erfolgreich in...
19.05.2010 16:31:30
Thread-ID: 1157883
7 Beiträge
Formel (standard?) Wenn, Dann, Sonst
Niko

Hallo!Ich möchte eine Liste von Zahlen entsprechend formatiert haben:
Er soll aus Nachkommazahlen die zwischen 2",00" und 2",49" immer auf ",50" runden. Aus 2",51" bis 2",89" immer ",90" machen.Ergebnis: 2,50 und 2,90 (die Vorkommazahlen sollen als "variablen" betrachtet werden.)Wenn die ges...
02.05.2002 22:41:27
Thread-ID: 118013
3 Beiträge

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
9
4
2
10
1
5
2
10
6
2
4
4
9
3
2
3
6
3
8
3
3
3
2
3
4