Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1756to1760
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
Inhaltsverzeichnis

2 Fragen Farbe ermitteln und..

2 Fragen Farbe ermitteln und..
06.05.2020 16:43:15
kurt
Guten Tag,
ich möchte gern die Textfarbe meiner Zelle ermitteln, kann
per Formel oder VB sein.
2. Ich habe eine Tabelle in der die Tage so dargestellt sind
Zelle a5: Mi in B5 01. 01.2020
da der 01.01.2020 ein Feiertag ist
sollte Mi in Rot und 01.01.2020 in Rot dargestellt werden.
Des Weiteren sollten Sa und So die auch in der Spalte A stehen
ebenfalls Rot eingefärbt werden und das gleiche in Spalte B
alles bis a36 bzw. B36.
geht das ?
gruß kurt k

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: 2 Fragen Farbe ermitteln und..
06.05.2020 16:47:50
Hajo_Zi
Hallo Kurt,

benutze die bedingte Formatierung, Wochentag(B1;2)>5
Und für Feitage hast Du eine Liste, also Zählenwenn()
GrußformelHomepage
AW: 2 Fragen Farbe ermitteln und..
06.05.2020 16:55:03
kurt
Hallo Hajo,
ich habe die Tabelle in einer Datenbank und würde gern
dies per VB durchführen lassen, wenn möglich
gruß
kurt k
AW: 2 Fragen Farbe ermitteln und..
06.05.2020 16:57:25
Hajo_Zi
Hallo Kurt,
Excel hat auch einen Makrorecorder.
Gruß Hajo
Anzeige
Bitte nur mal 1. Frage die 2. Frage halt ...
06.05.2020 17:08:39
kurt
Hallo Hajo,
wie kann ich den die Schriftfarbe einer Zelle ermitteln.
Wenn in A10 die Schriftfarbe rot ist sollte dies als MSGBOX
angezeigt werden.
gruß kurt k
AW: Bitte nur mal 1. Frage die 2. Frage halt ...
06.05.2020 17:13:22
Hajo_Zi
Halo Kurt,
if Range("A23").Interior.Color = 255 Then
Gruß Hajo
Geht Danke und jetzt die ...
06.05.2020 17:30:54
kurt
Hallo Hajo,
danke, habe ein klein wenig geändert, da
ich die Schrift-Farbe ermitteln wollte.
If Range("c24").Font.Color = 255 Then
MsgBox "rot"
Else
MsgBox "keine farbe"
End If
---------------------------------
Jetzt möchte ich gern, wenn das Datum in der Spalte A
ab Zelle a5: z.b. ein Sa oder So steht sollen diese
Zellen eine Rote Schriftfarbe erhalten.
Feiertage im Monat sollen in der Spalte B auch ROTE
Schriftfarbe erhalten. Z.B. 01.01.2020.
Oder wenn der Monat ein Mai ist, da sind ja mehrere Feiertage.
gruß
kurt k
Anzeige
Habe Makro gefunden klappt nur bei...
06.05.2020 18:52:40
kurt
Hallo allerseits,
habe folgendes Makro gefunden aber es wird nur der Sonntag
als Schriftfarbe rot eingefärbt.
Dim c As Variant
For Each c In ActiveSheet.Range("B14:B44")
If Weekday(c) = 1 Then
c.Font.Color = 255
ElseIf Weekday(c) = 7 Then
c.Font.Color = 3
End If
Next c
gruß
kurt k
Danke habs gefunden ! --))
06.05.2020 20:01:35
kurt
Hallo,
Dim c As Variant
For Each c In ActiveSheet.Range("B14:B44")
If Weekday(c) = 1 Then
c.Font.Color = 255
ElseIf Weekday(c) = 7 Then
c.Font.Color = 255
End If
Next c
klappt so die Farbe mußte mit 255 angegeben werden
gruß
kurt k
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige