Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1424to1428
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

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

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)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige