Live-Forum - Die aktuellen Beiträge
Datum
Titel
13.10.2025 19:31:31
VBA Formel mit Bezug auf Überschrift anstatt Spalte
13.10.2025 15:10:17
Überlappende Zeiträume über mehrere Tabellen mit leeren Zell
13.10.2025 13:34:56
PQ Abfrage mit verschiedenen Werten ausführen + Protokoll
13.10.2025 12:24:02
Zählen in Abhängigkeit einer Jahreszahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1424to1428
1424to1428
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro für Jahreskalender anpassen

Forumthread: Makro für Jahreskalender anpassen

Makro für Jahreskalender anpassen
05.05.2015 23:40:08
Andreas
Hallo
Das nachstehende Makro habe ich in einem Jahreskalender gefunden. Kann mir jemand helfen, dieses so umzugestalten, dass der Jahreskalender auf einem Tabellenblatt erzeugt wird? Meine VBA-Kenntnisse reichen dafür leider nicht aus.
Danke und Gruss Andreas
https://www.herber.de/bbs/user/97486.txt

Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Jahreskalender auf einem Blatt mit VBA erstellen
06.05.2015 03:37:01
Matthias
Hallo
Ich hab mal was gebastelt (ohne Fehlerbehandlung!)
Option Explicit
Sub Erstelle_Kalender()
'von Matthias L.
Dim Jahr&, x&, Monat&, Tage&
Application.ScreenUpdating = False
Jahr = Year(Now) 'aktuelles Jahr
'Jahr = 2016 'so dann für ein bestimmts Jahr
Worksheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = Jahr
For Monat = 1 To 12
Cells(1, Monat) = Format(DateSerial(1, Monat, 1), "mmmm")
Tage = DateSerial(Jahr, Monat + 1, 1) - DateSerial(Jahr, Monat, 1)
For x = 2 To Tage + 1
Cells(x, Monat) = CDate(Format(DateSerial(Jahr, Monat, x - 1), "DD/MM/YY"))
If Weekday(Cells(x, Monat), vbMonday) > 5 Then Cells(x, Monat).Interior.ColorIndex = 35
Next
Next
With Range("A1:L1")
.Interior.ColorIndex = 6
.HorizontalAlignment = xlCenter
End With
End Sub
Gruß Matthias
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige