Formatierung mit VBA

04/07/2009 - 16:54 von Mike Berger | Report spam
Hallo zusammen,

ich habe im Bereich E16:AI16 jeweils das Datum stehen.

Nun möchte ich in den Bereichen E17:AI22 und E24:AI30 den Hintergrund
der Zelle farbig machen, wenn der Wochentag in E16:AI16 jeweils nach der
Zellenspalte ein Samstag oder Sonntag ist.

Mein Code:
Dim Bereich As Range
Dim Zelle As Range

Set Bereich = Range("E17:AI22")
For Each Zelle In Bereich
if (???)
Zelle.Interior.ColorIndex = 5
Else
Zelle.Interior.ColorIndex = xlNone
End if
Next Zelle

Ich weiss jetzt leider nicht, wie ich in VBA die If Anweisung schreiben
muss: Schaue in die Zeile 16, nehme das Datum, wandele es um in
Wochentag und prüfe, ob es 1 oder 7 ist.

Danke Euch.

Mike
 

Lesen sie die antworten

#1 Claus Busch
04/07/2009 - 17:29 | Warnen spam
Hallo Mike,

Am Sat, 04 Jul 2009 17:54:57 +0300 schrieb Mike Berger:

ich habe im Bereich E16:AI16 jeweils das Datum stehen.

Nun möchte ich in den Bereichen E17:AI22 und E24:AI30 den Hintergrund
der Zelle farbig machen, wenn der Wochentag in E16:AI16 jeweils nach der
Zellenspalte ein Samstag oder Sonntag ist.



probiers mal so:
Set Bereich = Range("E17:AI22, E24:AI30")
For Each Zelle In Bereich
If Weekday(Zelle, 2) > 5 Then
Zelle.Interior.ColorIndex = 5
End If
Next Zelle


Mit freundlichen Grüssen
Claus Busch
Win XP Prof SP2 / Vista Ultimate
Office 2003 SP2 / 2007 Ultimate

Ähnliche fragen