Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1744to1748
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

Samstag und Sonntag markieren

Samstag und Sonntag markieren
08.03.2020 22:49:25
Matthias
Hallo,
ich habe eine Liste erstellt, in der tagesaktuell Mitarbeiter ihre Arbeitsstunden eintragen können. In Zeile 1 gibt es dazu eine Art "ewigen Kalender", und zwar für jeden Mitarbeiter und jeden Monat.
Ich möchte nun die Wochenenden (Sa und So) automatisch mit einem grauen Muster versehen lassen (Formatierung siehe Bsp. in Spalte O). Das Ganze soll mit VBA realisiert werden, da die bed. Formatierung bei der Größe der Tabelle zu Performanceproblemen geführt hat. Die Formatierung soll runter bis zur letzten benutzten Zelle (hier: Zeile 83) gehen, wobei sich diese durch Einfügen bzw. Löschen von Zeilen ändern kann.
Hier die bisherigen Versuche (siehe in Modul 1 und Modul 2), die noch nicht richtig funktionieren:
https://www.herber.de/bbs/user/135704.xlsm
Anm.: Das Makro wird ausgeführt, wenn in Zelle D90 eine Eingabe erfolgt.
Danke und Gruß,
Matthias

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Samstag und Sonntag markieren
09.03.2020 05:46:59
Hajo_Zi
Hallo Matthias,
Sub Wochenenden_grau()
Dim lloCol As Long
On Error Resume Next
Range(Cells(1, 11), Cells(2, Cells(1, Columns.Count).End(xlToLeft).Column)).Interior. _
ColorIndex = xlNone
For lloCol = 11 To Cells(1, Columns.Count).End(xlToLeft).Column
If (Weekday(Cells(1, lloCol).Value, vbMonday) = 6 Or Weekday(Cells(1, lloCol).Value, _
vbMonday)) = 7 _
And Cells(1, lloCol)  "" Then
Range(Cells(1, lloCol), Cells(Cells(Rows.Count, 5).End(xlUp).Row - 2, lloCol)). _
Interior.Color = 12632256
End If
'                    With Range(Cells(1, lloCol), Cells(Cells(Rows.Count, 5).End(xlUp).Row - 2,  _
lloCol)).Interior
'                        .Pattern = xlGray16
'                        .PatternColorIndex = xlAutomatic
'                        .ColorIndex = xlAutomatic
'                        .TintAndShade = 0
'                        .PatternTintAndShade = 0
'                    End With
Next
End Sub

Anzeige
AW: Samstag und Sonntag markieren
09.03.2020 11:18:35
Matthias
Hallo Hajo,
Vielen Dank - funktioniert!! :-)
Viele Grüße,
Matthias

305 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige