Office: [Excel 2003] VBA Datum

Hallo Excelfreunde,

ich habe mehrere Tabellen (Kalender) und Mappen, wo die bedingte
Formatierung erschöpft ist und ich möchte NICHT mit "CFPlus" arbeiten.

Mit VBA möchte ich das heutige Datum in Schriftfarbe=5 Fett
angezeigt haben.

Die Datümer stehen z.B. in Tabelle "1.Halbjahr" in den Bereichen

"C3:C33,G3:G31,K3:K33,O3:O32,S3:S33,W3:W32",
und noch in anderen Blättern und Bereichen.

Kann mir bitte jemand einen "anpassungsfähigen" Code schreiben?

Vielen Dank schon mal.

Nette Grüße
florian

 

Hallo!

Ungetestet:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Bereich As Range, Zelle As Range
Set Bereich = Range("C3:C33,G3:G31,K3:K33,O3:O32,W3:W32")
For Each Zelle In Bereich
If Zelle = Date Then
Zelle.Font.ColorIndex = 5
Zelle.Font.Bold = True
Else
Zelle.Font.ColorIndex = 1
Zelle.Font.Bold = False
End If
Next Zelle
End Sub

Aber CFPlus ist viel flexibler und viel schneller...

 

Hallo Schatzi,

vielen Dank für deine Antwort.
Der Code funzt leider nur, wenn eine Zelle aktiviert wird und mit Enter verlassen wird. Kannst du das bitte noch ändern?
Wäre auch toll, wenn noch andere Blätter in den Code eingebaut werden können.
Was muss dann an welche Stelle, oder ist für jedes Blatt ein Code erforderlich?

Danke und Gruß
florian

 

Hallo!

Der Code tritt dann in Kraft, wenn im Blatt irgendeine manuelle Änderung vorgenommen wird.
Vielleicht ist für deine Zwecke ein Worksheet_Calculate-Ereignis sinnvoller, das kann ich nicht beurteilen.
Jedes Blatt, auf dem es wirken soll, bekommt diesen Code.

 

Hallo Schatzi,
deinen Code habe ich mal in ein Worksheet_Activate-Ereignis kopiert.
Nun wird beim öffnen des Blattes das gewünschte Format angezeigt.
So hatte ich mir das auch vorgestellt.
Kleine Nebenwirkung der Sache: ist bereits eine bed. Formatierung vorhanden, ist für Sonntag der Fall, wirkt der Code nicht.

Naja, werde mal an einer anderen Lösung basteln.

Vielen Dank noch mal für deine Hilfe.
Bis bald
florian