Samstag oder Sonntag einfärben

WI_Studenten · 16. Juni 2016, 13:41

Hallo Zusammen,

ich habe mal eine Frage!
ich möchte möglichst ohne VBA Code in meiner Tabelle die Spalten von Samstag und Sonntag in einer anderen Farbe färben

zum Aufbau: habe eine Zelle mit Monat und eine mit Jahr
darunter die Tage 1-31 und daneben die Wochentage
(siehe anhänge)

Vielen Dank für Eure Bemühungen!

Viele Grüße!

slice · 16. Juni 2016, 15:01

Ich hab so etwas mit "Bedingte Formatierung" gelöst: =WOCHENTAG($A6;2)>5

PS: In A6 steht das Datum: zb. 01.01.16

WI_Studenten · 16. Juni 2016, 15:12

Danke,
aber ich glaube das hilft mir nicht weiter.

Die Wochentage ändern sich ja immer.
das Einzige was bei mir fest ist sind die tage in der spalte und Monat und Jahr.

und da sich die reihenfolge der wochentage ja monatlich ändern ist das nicht machbar ohne VBA, da ich ja die komplette Zeile dann z.B. eingrauen möchte.

Trotzdem Danke

slice · 16. Juni 2016, 15:40

Ich hab damit mein Report für Aufwände erstellt, komplett ohne VBA.
Du musst nur die Spalten C, D & E ausfüllen. Initial in H2 den Namen und in B3 den Monat/das Jahr.

WI_Studenten · 16. Juni 2016, 15:51

ok cool ja das sieht gut aus so will ich das auch

kannst du mir mal sagen wie du die sa und so orange einfärbst da komme ich nicht dahinter bzw finde es nicht

WhitePage · 16. Juni 2016, 15:54

Hat er doch gesagt:

slice schrieb:

Ich hab so etwas mit "Bedingte Formatierung" gelöst: =WOCHENTAG($A6;2)>5

Geh in Excel auf Bedingte Formatierung und schaue dir die Regel an (in seiner Datei).

slice · 16. Juni 2016, 15:56

Klick einfach eine Zelle im Bereich $B$6:$E$36 an, dann auf Bedingte Formatierung -> Regeln verwalten....
In "Angewendet auf" steht der Bereich (=$B$6:$E$36) und in der Formel =WOCHENTAG($A6;2)>5 (warum da immer A6 steht, keine Ahnung, aber es funktioniert für alle Zeilen in dem definierten Bereich).

WhitePage · 16. Juni 2016, 16:03

slice schrieb:

warum da immer A6 steht, keine Ahnung

Ich denke, weil es in deiner Datei erst ab A6 losgeht. Die 6 ist ja ohne $, also wird es hochgezählt.

slice · 16. Juni 2016, 16:21

Ist auch meine Vermutung, jedoch empfinde ich es leicht irritierend

WhitePage · 16. Juni 2016, 16:28

Hier steht auch, warum 2 als zweites Argument:
tippscout.de/excel-wochenende-hervorheben_tipp_5539.html

slice · 16. Juni 2016, 16:32

Jup das mit der 2 wusste ich, interessant ist aber die Bestätigung für den Zellenbezug: ...da es intelligent die Bezüge für alle anderen Zellen entsprechend ersetzt.

WhitePage · 16. Juni 2016, 16:36

Aber eigentlich sollte es klar sein, sonst bräuchte man kein $ vor A. Probiere es nämlich bei dir ohne das Zeichen... Dann würde es alle anderen Felder einfärben.

mumpel · 20. Juni 2016, 21:35

Hallo!

Und wenn es doch per VBA sein soll. Damit auch die Feiertage eingefärbt werden können benötigt man noch eine Tabelle mit den Feiertagen.

Visual Basic-Quellcode

Option Explicit
Option Private Module
Sub Aendern()
Application.EnableCancelKey = xlDisabled
On Error Resume Next
Application.ScreenUpdating = False
Sheets("Zeitnachweis").Unprotect passw
Week_end
Week_day
Sheets("Zeitnachweis").Protect passw
Application.ScreenUpdating = True
End Sub
Private Sub Week_end()
Application.EnableCancelKey = xlDisabled
Dim cell As Object
On Error Resume Next
Dim Zeile As Range
For Each cell In Worksheets("Zeitnachweis").Range("B13:B743")
If Weekday(cell, vbMonday) = 7 Then
cell.Font.ColorIndex = 3
ElseIf Weekday(cell, vbMonday) = 6 Then
cell.Font.ColorIndex = 5
Else
cell.Font.ColorIndex = 0
End If
Next cell
End Sub
Private Sub Week_day()
Application.EnableCancelKey = xlDisabled
Dim cell As Object
On Error Resume Next
Dim Zeile As Range
For Each cell In Worksheets("Zeitnachweis").Range("B13:B743")
If cell.Value = Sheets("Feiertage").Range("A1").Value Then
cell.Font.ColorIndex = 3
ElseIf cell.Value = Sheets("Feiertage").Range("A2").Value Then
cell.Font.ColorIndex = 3
ElseIf cell.Value = Sheets("Feiertage").Range("A3").Value Then
cell.Font.ColorIndex = 3
ElseIf cell.Value = Sheets("Feiertage").Range("A4").Value Then
cell.Font.ColorIndex = 3
ElseIf cell.Value = Sheets("Feiertage").Range("A5").Value Then
cell.Font.ColorIndex = 3
ElseIf cell.Value = Sheets("Feiertage").Range("A6").Value Then
cell.Font.ColorIndex = 3
ElseIf cell.Value = Sheets("Feiertage").Range("A7").Value Then
cell.Font.ColorIndex = 3
ElseIf cell.Value = Sheets("Feiertage").Range("A8").Value Then
cell.Font.ColorIndex = 3
ElseIf cell.Value = Sheets("Feiertage").Range("A9").Value Then
cell.Font.ColorIndex = 3
ElseIf cell.Value = Sheets("Feiertage").Range("A10").Value Then
cell.Font.ColorIndex = 3
ElseIf cell.Value = Sheets("Feiertage").Range("A11").Value Then
cell.Font.ColorIndex = 3
ElseIf cell.Value = Sheets("Feiertage").Range("A12").Value Then
cell.Font.ColorIndex = 3
ElseIf cell.Value = Sheets("Feiertage").Range("A13").Value Then
cell.Font.ColorIndex = 3
ElseIf cell.Value = Sheets("Feiertage").Range("A14").Value Then
cell.Font.ColorIndex = 3
ElseIf cell.Value = Sheets("Feiertage").Range("A15").Value Then
cell.Font.ColorIndex = 3
ElseIf cell.Value = Sheets("Feiertage").Range("A16").Value Then
cell.Font.ColorIndex = 3
ElseIf cell.Value = Sheets("Feiertage").Range("A17").Value Then
cell.Font.ColorIndex = 3
ElseIf cell.Value = Sheets("Feiertage").Range("A18").Value Then
cell.Font.ColorIndex = 3
ElseIf cell.Value = Sheets("Feiertage").Range("A19").Value Then
cell.Font.ColorIndex = 3
ElseIf cell.Value = Sheets("Feiertage").Range("A20").Value Then
cell.Font.ColorIndex = 3
ElseIf cell.Value = Sheets("Feiertage").Range("A21").Value Then
cell.Font.ColorIndex = 3
ElseIf cell.Value = Sheets("Feiertage").Range("A22").Value Then
cell.Font.ColorIndex = 3
ElseIf cell.Value = Sheets("Feiertage").Range("A23").Value Then
cell.Font.ColorIndex = 3
ElseIf cell.Value = Sheets("Feiertage").Range("A24").Value Then
cell.Font.ColorIndex = 3
ElseIf cell.Value = Sheets("Feiertage").Range("A25").Value Then
cell.Font.ColorIndex = 3
Else
End If
Next cell
End Sub

Gruß, René

P.S. Die Makros sind schon uralt (2007 geschrieben), und stammen noch aus Excel 2003. Kann man sicher noch kürzen um die Laufzeit zu beschleunigen.

Samstag oder Sonntag einfärben

Samstag oder Sonntag einfärben

slice schrieb:

slice schrieb:

Visual Basic-Quellcode

Tags

Ähnliche Themen

4 Benutzer haben hier geschrieben