Excel - Aktuellen Monat Markieren
Hallo Leute,
Ich habe da mal eine Frage:
Und zwar wie kann ich den aktuellen Monat automatisch farbig markieren?
Bisher habe ich immer diese zwei blauen "Balken" vergrößert bzw verkleinert
und die rote Markierung hin und her geschoben... (siehe Bild)
Ich bin mir sicher das geht auch automatisch oder per Button oder so =)
Es sollte halt nur den aktuellen Monat markieren (Formatierungen, und farbige
Hintergründe beibehalten)
Vielen Dank für die Antworten schon mal
Ich habe da mal eine Frage:
Und zwar wie kann ich den aktuellen Monat automatisch farbig markieren?
Bisher habe ich immer diese zwei blauen "Balken" vergrößert bzw verkleinert
und die rote Markierung hin und her geschoben... (siehe Bild)
Ich bin mir sicher das geht auch automatisch oder per Button oder so =)
Es sollte halt nur den aktuellen Monat markieren (Formatierungen, und farbige
Hintergründe beibehalten)
Vielen Dank für die Antworten schon mal
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 249414
Url: https://administrator.de/forum/excel-aktuellen-monat-markieren-249414.html
Ausgedruckt am: 22.12.2024 um 16:12 Uhr
9 Kommentare
Neuester Kommentar
Hallo Questionmark93 (komischer Name),
wenn ich das Bild als Grundlage nehme, so könntest Du das mit diesem Makro erledigen:
Public Sub monatmarkieren()
Dim Monat As Integer
Dim Monatstring As String
Dim AktMonat As String
Monatstring = "CDEFGHIJKLMN"
Monat = Month(Date)
AktMonat = Mid(Monatstring, Monat, 1)
Range(AktMonat & "25", AktMonat & "55").Select
End Sub
In dieser Zeile:
Range(AktMonat & "25", AktMonat & "55").Select
wird der Bereich markiert. Da ich dein Ende nicht kenne, habe ich in diesem Beispiel die Zeile 55 als Ende angenommen. Ich weiß nicht ob das Ende fest steht oder unterschiedlich ist. Wenn es unterschiedlich ist, dann musst du erst die Letzte Zeile ermitteln.
Gruß
Stephan
wenn ich das Bild als Grundlage nehme, so könntest Du das mit diesem Makro erledigen:
Public Sub monatmarkieren()
Dim Monat As Integer
Dim Monatstring As String
Dim AktMonat As String
Monatstring = "CDEFGHIJKLMN"
Monat = Month(Date)
AktMonat = Mid(Monatstring, Monat, 1)
Range(AktMonat & "25", AktMonat & "55").Select
End Sub
In dieser Zeile:
Range(AktMonat & "25", AktMonat & "55").Select
wird der Bereich markiert. Da ich dein Ende nicht kenne, habe ich in diesem Beispiel die Zeile 55 als Ende angenommen. Ich weiß nicht ob das Ende fest steht oder unterschiedlich ist. Wenn es unterschiedlich ist, dann musst du erst die Letzte Zeile ermitteln.
Gruß
Stephan
Moin QUestionmark93,
noch einfacher geht es mit einer bedingten Formatierung. Siehe Demo-Sheet. Bereits bestehende Formatierungen bleiben dabei natürlich erhalten, es wird nur jeweils ein roter Rand um die Spalte des aktuellen Monats gezogen. Dafür müssen nur die Monatsbeschriftung als Datum umformatiert werden (MMM siehe Demosheet).
Grüße Uwe
noch einfacher geht es mit einer bedingten Formatierung. Siehe Demo-Sheet. Bereits bestehende Formatierungen bleiben dabei natürlich erhalten, es wird nur jeweils ein roter Rand um die Spalte des aktuellen Monats gezogen. Dafür müssen nur die Monatsbeschriftung als Datum umformatiert werden (MMM siehe Demosheet).
Grüße Uwe
siehe Demosheet , geht doch, wenn man meine Hinweise im Sheet beachtet und die Monate entsprechend als Datum formatiert
du musst den Verweis natürlich an deine Monatszellen anpassen !! Bei dir wäre das C$24. Das hast du laut deinem Bild nicht gemacht !!
Also du markierst deine Zellen C25:N39 und erstellst dann eine bedingte Formatierung mit dieser Formel:
und die Formatierung der Monate nicht vergessen... es muss ein Datum in der Zelle stehen
Grüße Uwe
du musst den Verweis natürlich an deine Monatszellen anpassen !! Bei dir wäre das C$24. Das hast du laut deinem Bild nicht gemacht !!
Also du markierst deine Zellen C25:N39 und erstellst dann eine bedingte Formatierung mit dieser Formel:
=Monat(C$24) = Monat(HEUTE())
Grüße Uwe
checke ob Excel die Formel in Anführungszeichen gesetzt hat, wenn ja entferne diese, das kommt manchmal vor.
Am Demosheet siehst du ja das es geht ....ansonsten lade dein sheet mal irgendwo hoch, ist eine Kleinigkeit das zu fixen
Am Demosheet siehst du ja das es geht ....ansonsten lade dein sheet mal irgendwo hoch, ist eine Kleinigkeit das zu fixen