9
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
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 249414
Url: https://administrator.de/contentid/249414
Printed on: April 20, 2024 at 00:04 o'clock
9 Comments
Latest comment
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
Ja das stimmt. Ich bin von selektieren ausgegangen. Wer lesen kann ist eindeutig im Vorteil 
geht leider nicht =/
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
Doch im nachhinein :D aber es geht immernoch nicht =(
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
wo kann ichs hochladen? =)
Wenn's das dann war, bitte nicht vergessen als gelöst zu markieren, merci.
