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
Anzeige