Im Kalender aktueller Tag farbig markieren ???

Forumthread: Im Kalender aktueller Tag farbig markieren ?

Im Kalender aktueller Tag farbig markieren ?

11.10.2006 09:48:03

Silvia

Hallo,
ich nutze für die Auswahl von Datümer einen User-Form Kalender. Wie kann ich diesem Kalender mitgeben, das er den heutigen Tag mit z.B der Hintergrundfarbe grün markiert ?
Danke und Gruß
Silvia

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Im Kalender aktueller Tag farbig markieren ?

11.10.2006 09:55:18

Xelleron
AW: Im Kalender aktueller Tag farbig markieren ?

11.10.2006 09:56:42

Silvia

AW: Im Kalender aktueller Tag farbig markieren ?

11.10.2006 09:55:18

Xelleron

Hallo Silvia,
kann ich Dir so auch nicht sagen, aber wenn Du folgendes initialisierst, dann wird so oder der aktuelle Tag hervorgehoben.


Private Sub UserForm_Initialize()
Calendar1 = Date
End Sub

Gruß Dennis

AW: Im Kalender aktueller Tag farbig markieren ?

11.10.2006 09:56:42

Silvia

Danke,
hätte gerne dennoch den Tag gerne farbig ?
Gruß
Silvia

Infobox / Tutorial

Aktuellen Tag im Excel-Kalender farbig markieren

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

Um den aktuellen Tag in einem Excel-Kalender farbig zu markieren, kannst du die folgenden Schritte befolgen:

Öffne Excel und erstelle ein neues Arbeitsblatt.
Füge einen Kalender ein: Du kannst eine Vorlage verwenden oder einen UserForm-Kalender erstellen.
Wechsle zum VBA-Editor: Drücke ALT + F11, um den VBA-Editor zu öffnen.

Füge den folgenden Code ein:

Private Sub UserForm_Initialize()
   Calendar1 = Date
   If Calendar1 = Date Then
       Calendar1.BackColor = RGB(0, 255, 0) ' Setzt die Hintergrundfarbe auf Grün
   End If
End Sub

Schließe den VBA-Editor und teste deinen Kalender. Der aktuelle Tag sollte jetzt grün hervorgehoben sein.

Häufige Fehler und Lösungen

Problem: Der aktuelle Tag wird nicht farbig angezeigt.
- Lösung: Stelle sicher, dass du den richtigen Code im VBA-Editor eingefügt hast und dass die Datumseinstellungen korrekt sind.
Problem: Der Kalender zeigt immer das falsche Datum an.
- Lösung: Überprüfe, ob das Date-Objekt korrekt initialisiert wurde. Möglicherweise musst du den Code anpassen, um das aktuelle Datum korrekt zu referenzieren.

Alternative Methoden

Wenn du den aktuellen Tag im Excel-Kalender hervorheben möchtest, gibt es auch alternative Methoden:

Bedingte Formatierung: Du kannst die bedingte Formatierung in Excel verwenden, um den aktuellen Tag farbig zu markieren. Wähle die Zellen aus und gehe zu "Start" > "Bedingte Formatierung" > "Neue Regel". Wähle "Formel zur Bestimmung der zu formatierenden Zellen verwenden" und gib die Formel =A1=HEUTE() ein (ersetze A1 durch die erste Zelle deines Kalenders).
Outlook-Kalender: Für die Verwendung im Outlook-Kalender gibt es ebenfalls Möglichkeiten, den aktuellen Tag hervorzuheben. Hierzu kannst du spezielle Regeln in Outlook erstellen oder VBA-Skripte nutzen, um Termine farbig zu markieren.

Praktische Beispiele

Hier sind einige Beispiele für die Implementierung:

Excel-Kalender: Du kannst einen einfachen Kalender in Excel erstellen und den oben genannten VBA-Code verwenden, um den aktuellen Tag hervorzuheben. Wenn du einen Kalender für jeden Monat erstellst, stelle sicher, dass der Code auf den korrekten Monat abgestimmt ist.

Outlook-Kalender: Um den aktuellen Tag im Outlook-Kalender hervorzuheben, kannst du den folgenden Code verwenden:

Sub HighlightToday()
   Dim objNS As Outlook.NameSpace
   Set objNS = Application.GetNamespace("MAPI")
   Dim objFolder As Outlook.Folder
   Set objFolder = objNS.GetDefaultFolder(olFolderCalendar)

   Dim objAppt As Outlook.AppointmentItem
   For Each objAppt In objFolder.Items
       If objAppt.Start = Date Then
           objAppt.Categories = "Heute"
           objAppt.Save
       End If
   Next
End Sub

Tipps für Profis

Farben anpassen: Du kannst die RGB-Werte im VBA-Code anpassen, um verschiedene Farben für die Hervorhebung des aktuellen Tages zu verwenden.
Automatisierung: Denke darüber nach, den Code so zu automatisieren, dass er beim Öffnen der Arbeitsmappe oder beim Wechseln des Datums automatisch ausgeführt wird.
Erweiterte Funktionen: Du kannst den Kalender erweitern, um auch Wochenenden oder Feiertage hervorzuheben, indem du zusätzliche Bedingungen in deinen VBA-Code einfügst.

FAQ: Häufige Fragen

1. Wie kann ich den aktuellen Tag in Excel hervorheben? Du kannst dafür VBA verwenden oder die bedingte Formatierung nutzen, um das heutige Datum in einer bestimmten Farbe darzustellen.

2. Funktioniert dieser Code auch in Outlook? Ja, der Code kann leicht angepasst werden, um den aktuellen Tag im Outlook-Kalender hervorzuheben. Stelle sicher, dass du die entsprechenden Objekte und Methoden für Outlook verwendest.

Beliebteste Forumthreads (12 Monate)