Herbers Excel-Forum - das Archiv

Kalender von bis markieren

Bild

Betrifft: Kalender von bis markieren
von: Schwarz
Geschrieben am: 10.10.2003 14:39:02
Hallo,
ich habe in den Spalten C bis I die Wochentage(Mo,Di,...)
und in den Zeilen 7 bis 11 die Wochen angeordnet (hier für Januar)
In der Zeile AK7 steht das Startdatum, in AK8 das Enddatum.
Nun möchte ich vom Startdatum bis zum Enddatum die Zellen rot markiert haben.
VBA-Lösung ist ok.

Gruß Martin

Bild

Betrifft: AW: Kalender von bis markieren
von: WernerB.
Geschrieben am: 10.10.2003 15:16:31
Hallo Martin,

was hältst Du hiervon:

Option Explicit


Sub Martin()
Dim c As Range
Dim sD As Byte, eD As Byte, Diff As Byte, z As Byte
Application.ScreenUpdating = False
sD = Day(Range("AK7").Value)
eD = Day(Range("AK8").Value)
If sD > eD Then
MsgBox "Enddatum kleiner als Startdatum !" & vbCr & vbCr _
& "Makro-Abbruch !", vbOKOnly + vbCritical, _
"Dezenter Hinweis für " & Application.UserName & ":"
Exit Sub
End If
Diff = 2 + eD - sD
Range("C7:I11").Interior.ColorIndex = xlNone
For Each c In Range("C7:I11")
If c.Value = sD Then
z = 1
End If
If z > 0 And z < Diff Then
z = z + 1
c.Interior.ColorIndex = 3
End If
Next c
Application.ScreenUpdating = True
End Sub


Viel Erfolg wünscht
WernerB.

P.S.: Das Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter (siehe Forums-FAQ).
 Bild
Excel-Beispiele zum Thema " Kalender von bis markieren"
Kalenderwoche nach DIN 1355 Jahreskalender mit Monatsblättern anlegen
Jahreskalender und bedingte Formatierung Jahresarbeitszeitkalender
Tabelle mit der jeweils nächsten Kalenderwoche öffnen Aus einem Kalender-Steuerelement Datum und Zeit auswählen
Zellkontextmenü durch Jahreskalender ersetzen Ermittlung des ersten Tages einer Kalenderwoche nach DIN 1355
Anzahl der Einträge zu einer bestimmten Kalenderwoche Auflistung der Kalenderwochen eines variablen Jahres