Formatierung Nach Datum

[zyclop]

Hallo Zusammen, ich habe eine Excel Liste siehe Anhang.

Es handelt sich hierbei um eine Stundenerfassung welche in eine CSV Datei umgwandelt wird. Mein Problem betrifft aber Excel. Wie ihr seht sind die Wochenende grau markiert und die Feiertage gelb/orange und die Kompensationstage türkies. Die Feiertage und Kompensationstage habe ich in einer Liste in einem anderen Tabellenblatt. Ich möchte nun die Zellen je nach Art andersfärben. Die Wochenende sollen grau werden. Aber ich finde keine möglichkeit das zu machen. Des weiteren soll ich überprüfen können ob der Tag ein Feiertag ist oder ein Kompensationstag.

Habt ihr eine Idee?

 

[Zvoni]

Also um die Farbe einer Zelle programmtechnisch zu ändern:

Tabelle1.Cells(Zeile,Spalte).Interior.Color=vbYellow    'bzw. Farbcode als Long

Ob Feiertag usw. musst du halt ne Prüfung vorher machen.

 

[zyclop]

Hast du auch eine Ahnung wie ich herausfinden kann ob es sich um ein Wochenende handelt?

Wenn ich diesen Code eingebe bekomme ich volgende meldung.

"Anwendungs- oder Objektdefinierter Fehler"

Tabelle2.Cells(46, A).Interior.Color = vbYellow

 

[Zvoni]

Tabelle2.Cells(46, 1) muss es heissen.

Wochenende=Samstag und Sonntag

Aus dem hohlen Bauch raus

If Format(Tabelle2.Cells(46, 1),"w")=vbSunday or Format(Tabelle2.Cells(46, 1),"w")=vbSaturday Then
Tabelle2.Cells(46, 1).Interior.Color=vbYellow
End If

 

[zyclop]

danke für die schnelle antwort. ich test es mal und melde mich dann nochmals.