Aktuelles Datum in Excel Spalten hervorheben
Schritt-für-Schritt-Anleitung
Um die Spalte mit dem aktuellen Datum in Excel hervorzuheben, kannst du ein VBA-Makro verwenden. Hier ist eine einfache Anleitung:
-
Öffne die Excel-Datei und drücke ALT + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.
-
Im Projekt-Explorer auf der linken Seite suche deine Arbeitsmappe und klicke auf DieseArbeitsmappe.
-
Kopiere den folgenden Code in das geöffnete Fenster:
Private Sub Workbook_Open()
Dim var, rng As Range
Set rng = Worksheets("Daten").Range("A6:EG6")
var = Application.Match(CDbl(Date), rng, 0)
rng.Borders(xlEdgeLeft).LineStyle = xlNone
rng.Borders(xlEdgeRight).LineStyle = xlNone
If Not IsError(var) Then
Set rng = Worksheets("Daten").Cells(6, var)
With rng.Borders(xlEdgeLeft)
.LineStyle = xlDouble
.Weight = xlThick
End With
With rng.Borders(xlEdgeRight)
.LineStyle = xlDouble
.Weight = xlThick
End With
End If
End Sub
-
Ändere den Tabellennamen, falls er nicht "Daten" heißt.
-
Schließe den VBA-Editor und speichere deine Arbeitsmappe als *Makro-fähige Datei (.xlsm)**.
-
Schließe Excel und öffne die Datei erneut, um das Makro auszuführen. Die Spalte mit dem aktuellen Datum wird jetzt hervorgehoben.
Häufige Fehler und Lösungen
- Laufzeitfehler 9: Dieser Fehler tritt auf, wenn der angegebene Tabellenname nicht existiert. Überprüfe den Tabellennamen im Code und passe ihn an deine Datei an.
- Makro funktioniert nicht: Stelle sicher, dass du das Makro im richtigen Modul (DieseArbeitsmappe oder das spezifische Tabellenblatt) eingefügt hast.
- Bedingte Formatierungen: Wenn du bereits drei bedingte Formatierungen in den Spalten hast, kann das die Ausführung des Codes beeinflussen. Überprüfe die vorhandenen Formatierungen.
Alternative Methoden
Falls du keine VBA-Makros verwenden möchtest, gibt es alternative Methoden:
-
Bedingte Formatierung:
- Markiere die Spalten H bis EG.
- Gehe zu
Start > Bedingte Formatierung > Neue Regel.
- Wähle
Formel zur Ermittlung der zu formatierenden Zellen verwenden.
- Gib die Formel
=H6=HEUTE() ein und wähle eine Formatierung aus.
-
Excel-Funktionen:
- Du kannst auch eine Hilfsspalte verwenden, um das heutige Datum zu überprüfen und dann manuell die Spalte hervorzuheben.
Praktische Beispiele
Hier ist ein Beispiel, wie du das Makro in einer Excel-Plantafel verwenden kannst:
- Angenommen, du hast eine Plantafel mit Datumsangaben in Zeile 6. Mit dem oben genannten Makro wird die Spalte für den aktuellen Tag in Excel hervorgehoben.
Füge den Code in dein Excel-Dokument ein, um zu sehen, wie die Spalte mit dem aktuellen Datum markiert wird.
Tipps für Profis
-
Verwendung von Worksheet_Change: Um die Rahmen automatisch zu entfernen, wenn das Datum geändert wird, kannst du ein weiteres Makro hinzufügen:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("H6:EG6")) Is Nothing Then
If Target.Value = Date Then
With Target.EntireColumn.Borders(xlEdgeLeft)
.LineStyle = xlDouble
.Weight = xlThick
End With
With Target.EntireColumn.Borders(xlEdgeRight)
.LineStyle = xlDouble
.Weight = xlThick
End With
Else
With Target.EntireColumn.Borders(xlEdgeLeft)
.LineStyle = xlNone
End With
With Target.EntireColumn.Borders(xlEdgeRight)
.LineStyle = xlNone
End With
End If
End If
End Sub
-
Regelmäßige Sicherung: Da VBA-Makros Änderungen an deinen Daten vornehmen, ist es ratsam, regelmäßig Sicherungskopien deiner Datei zu erstellen.
FAQ: Häufige Fragen
1. Wie kann ich das Makro anpassen?
Du kannst die Zellbereiche in den Codezeilen Set rng = ... anpassen, um andere Bereiche zu markieren.
2. Funktioniert das Makro in Excel Online?
Nein, VBA-Makros funktionieren nur in der Desktop-Version von Excel.
3. Was ist, wenn ich mehrere Datumsformate habe?
Stelle sicher, dass alle Datumswerte im gleichen Format eingegeben sind, um die Übereinstimmung zu gewährleisten.