Datum Farbig

Forumthread: Datum Farbig

Datum Farbig

18.02.2005 11:06:01

Peter

Hallo zusammen,
gibt es eine Möglichkeit, da eingetragene Datum in einer Zelle entsprechend dem Wochentag einzufärben.
Montag=weiß
Dienstag=grün
Mittwoch=blau
Donnerstag=gelb
Freitag=rot
Danke
Peter

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Datum Farbig

c0bRa
AW: Datum Farbig

18.02.2005 11:28:43

Russi
AW: Datum Farbig

=Peter=
AW: Datum Farbig

WernerB.
AW: Datum Farbig

peter
AW: Datum Farbig

WernerB.
Danke, funktioniert oT

18.02.2005 14:04:17

peter

AW: Datum Farbig

c0bRa

hallo...
also ohne VBA oder 3rd party-programmen wirds nicht gehen, da bedingt formatierung nur 3 bedingungen akzeptiert...
Frage ist noch offen, via VBA sollts möglich sein...

Das Forum lebt auch von Rückmeldungen...

c0bRa

AW: Datum Farbig

18.02.2005 11:28:43

Russi

Hi Peter,
hi c0bRa!
Es geht zum Teil, und zwar über die bedingte Formatierung:
"FORMEL IST" "=WOCHENTAG(A1;1)=1"
und dann gewünschtes Format einstellen. Die bed. Formatierung kann jedoch maximal 3 verschiedene Bedingungen bzw. Formate aufnehmen. 7 verschiedene Formate für 7 Wochentage geht leider nicht.
Viele Grüße
Russi
www.Russi.de.tt

AW: Datum Farbig

=Peter=

Hallo Peter, :-)
Du solltest dir mal das Addin CFPlus ansehen. Es bildet die Excel-Funktionalität der bedingten Formatierung nach. Es ist darauf ausgelegt mehr als 3 Bedingungen zur Verfügung zu stellen sowie alle Formatmöglichkeiten von Excel zu unterstützen.
www.xldynamic.com/source/xld.CFPlus.Download.html
Gruss
Peter

AW: Datum Farbig

WernerB.

Hallo Peter,
Dieses Makro gehört in das Modul des betreffenden Tabellenblattes.
Es reagiert auf Veränderungen in der Zelle "A1".


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
If Target.Cells.Count <> 1 Then Exit Sub
If Target.Value = "" Then Exit Sub
If Not IsDate(Target) Then Exit Sub
Select Case Weekday(Target)
Case 1: Target.Interior.ColorIndex = xlNone  'Sonntag
Case 2: Target.Interior.ColorIndex = 2       'Montag
Case 3: Target.Interior.ColorIndex = 10      'Dienstag
Case 4: Target.Interior.ColorIndex = 5       'Mittwoch
Case 5: Target.Interior.ColorIndex = 6       'Donnerstag
Case 6: Target.Interior.ColorIndex = 3       'Freitag
Case 7: Target.Interior.ColorIndex = xlNone  'Samstag
End Select
End Sub

Viel Erfolg wünscht
WernerB.
P.S.: Dieses Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter !

AW: Datum Farbig

peter

Danke an Alle,
vielleicht habe ich mich falsch ausgedrückt, ich habe in der Spalte E4:E5000 jeweils ein Datum stehen, ich möchte das alle Zellen, wo zB. 4.4., 11.4.,18.4 usw. steht weiss werden
alle Zellen mit 5.4.,12.4 grün.
Peter

AW: Datum Farbig

WernerB.

Hallo Peter,
dieses Makro gehört in ein normales Standard-Modul:


Sub Peter()
Dim c As Range
Application.ScreenUpdating = False
For Each c In Range("E4:E5000")
c.Interior.ColorIndex = xlNone
If IsDate(c) Then
Select Case Weekday(c)
Case 1: c.Interior.ColorIndex = xlNone  'Sonntag
Case 2: c.Interior.ColorIndex = 2       'Montag
Case 3: c.Interior.ColorIndex = 10      'Dienstag
Case 4: c.Interior.ColorIndex = 5       'Mittwoch
Case 5: c.Interior.ColorIndex = 6       'Donnerstag
Case 6: c.Interior.ColorIndex = 3       'Freitag
Case 7: c.Interior.ColorIndex = xlNone  'Samstag
End Select
End If
Next c
Application.ScreenUpdating = True
End Sub

Gruß
WernerB.

Danke, funktioniert oT

18.02.2005 14:04:17

peter

Beliebteste Forumthreads (12 Monate)

Forumthread: Datum Farbig

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread