Datum

Titel

25.10.2025 13:01:47

Formel gibt nur #Wert! aus, wenn ich sie mit VBA berechne

25.10.2025 12:33:55

aktuellstes Datum aus Zelle auslesen

25.10.2025 08:21:40

Datensatz trennen

24.10.2025 18:10:41

vba pdf

Keine passende Antwort im Forumarchiv gefunden?

Stelle deine Frage im Live-Forum

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Vorheriger Thread

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Nächster Thread

Vorwärts blättern

Inhaltsverzeichnis

2 Fragen Farbe ermitteln und..

Forumthread: 2 Fragen Farbe ermitteln und..
8 Beiträge zu diesem Forumthread
Anzeige
5 Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen
Top 100 Forumthreads

Forumthread: 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

AW: 2 Fragen Farbe ermitteln und..

06.05.2020 16:47:50

Hajo_Zi
AW: 2 Fragen Farbe ermitteln und..

06.05.2020 16:55:03

kurt
AW: 2 Fragen Farbe ermitteln und..

06.05.2020 16:57:25

Hajo_Zi
Bitte nur mal 1. Frage die 2. Frage halt ...

06.05.2020 17:08:39

kurt
AW: Bitte nur mal 1. Frage die 2. Frage halt ...

06.05.2020 17:13:22

Hajo_Zi
Geht Danke und jetzt die ...

06.05.2020 17:30:54

kurt
Habe Makro gefunden klappt nur bei...

06.05.2020 18:52:40

kurt
Danke habs gefunden ! --))

06.05.2020 20:01:35

kurt

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()

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

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

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

;