Herbers Excel-Forum - das Archiv
Kalender von bis markieren
- Kalender von bis markieren von Schwarz vom 10.10.2003 14:39:02
- AW: Kalender von bis markieren - von WernerB. am 10.10.2003 15:16:31
- AW: Kalender von bis markieren - von WernerB. am 10.10.2003 15:16:31
 |
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
 |
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).
| |