Wie erstelle ich einen Kalender in Excel?

Der Kalender in Excel ist ein nützliches Objekt. Mit einem Kalender in Excel können Sie viele Nachrichten im Kalender aufzeichnen. Zum Beispiel: das Datum, an dem ein neuer Mitarbeiter in das Unternehmen eintritt, das Datum, an dem die Waren geliefert wurden und so weiter. Mit dem Kalender sehen diese Nachrichten visuell und einfach aus. Wie erstelle ich einen Monatskalender oder einen Jahreskalender in Excel?

Erstellen Sie einen Jahreskalender, indem Sie Excel-Kalendervorlagen herunterladen

Erstellen Sie einen Monatskalender mit VBA-Code

Erstellen Sie mit Kutools for Excel schnell einen Monats- oder Jahreskalender

Erstellen Sie einen Jahreskalender, indem Sie Excel-Kalendervorlagen herunterladen

Tolle! Verwenden effizienter Registerkarten in Excel wie Chrome, Firefox und Safari!

Sparen Sie 50% Ihrer Zeit und reduzieren Sie jeden Tag Tausende von Mausklicks für Sie!

---

Bei dieser Methode müssen Sie sicherstellen, dass Ihr Computer eine Verbindung zum Netzwerk herstellt, damit Sie die herunterladen können Kalendervorlagen.

Gehen Sie zu Reichen Sie das, klicken Neu Klicken Sie im linken Bereich auf Kalender von Office.com-Vorlagen. Siehe Screenshot:

Dann können Sie einen Kalenderordner auswählen und darauf klicken. Es gibt mehrere Stile des Kalenders. Wählen Sie einen aus, den Sie mögen, und klicken Sie auf Herunterladen Schaltfläche im rechten Bereich.

Nach dem Herunterladen der Kalendervorlage erhalten Sie den Kalender in einer neuen Arbeitsmappe.

Erstellen Sie einen Monatskalender mit VBA-Code

Mit dem folgenden VBA-Code können Sie schnell einen Monatskalender erstellen. Bitte gehen Sie wie folgt vor:

Klicken Sie Entwickler:in / Unternehmen > Visual BasicEin neuer Microsoft Visual Basic für Anwendungen Fenster wird angezeigt, klicken Sie auf Insert > Modulund geben Sie den folgenden Code in das ein Modul:

VBA: Erstellen Sie einen Monatskalender in Excel

Sub CalendarMaker ()
ActiveSheet.Protect DrawingObjects: = False, Inhalt: = False, _
Szenarien: = Falsch
Application.ScreenUpdating = False
Bei Fehler GoTo MyErrorTrap
Bereich ("a1: g14"). Löschen
MyInput = InputBox ("Geben Sie Monat und Jahr für den Kalender ein")
Wenn MyInput = "", dann beenden Sie Sub
StartDay = DateValue (MyInput)
If Day (StartDay) <> 1 Then
StartDay = DateValue (Monat (StartDay) & "/ 1 /" & _
Jahr (StartDay))
End If
Bereich ("a1"). NumberFormat = "mmmm yyyy"
Mit Reichweite ("a1: g1")
.HorizontalAlignment = xlCenterAcrossSelection
.Vertikale Ausrichtung = xlCenter
.Schriftgröße = 18
.Font.Bold = Wahr
.RowHeight = 35
Ende mit
Mit Reichweite ("a2: g2")
.Spaltenbreite = 11
.Vertikale Ausrichtung = xlCenter
.HorizontalAlignment = xlCenter
.Vertikale Ausrichtung = xlCenter
.Ausrichtung = xlHorizontal
.Schriftgröße = 12
.Font.Bold = Wahr
.RowHeight = 20
Ende mit
Bereich ("a2") = "Sonntag"
Bereich ("b2") = "Montag"
Bereich ("c2") = "Dienstag"
Bereich ("d2") = "Mittwoch"
Bereich ("e2") = "Donnerstag"
Bereich ("f2") = "Freitag"
Bereich ("g2") = "Samstag"
Mit Reichweite ("a3: g8")
.HorizontalAlignment = xlRight
.Vertikale Ausrichtung = xlTop
.Schriftgröße = 18
.Font.Bold = Wahr
.RowHeight = 21
Ende mit
Bereich ("a1"). Wert = Application.Text (MyInput, "mmmm yyyy")
DayofWeek = Wochentag (StartDay)
CurYear = Year (StartDay)
CurMonth = Monat (StartDay)
FinalDay = DateSerial (CurYear, CurMonth + 1, 1)
Wählen Sie Case DayofWeek
Fall 1
Bereich ("a3"). Wert = 1
Fall 2
Bereich ("b3"). Wert = 1
Fall 3
Bereich ("c3"). Wert = 1
Fall 4
Bereich ("d3"). Wert = 1
Fall 5
Bereich ("e3"). Wert = 1
Fall 6
Bereich ("f3"). Wert = 1
Fall 7
Bereich ("g3"). Wert = 1
End Select
Für jede Zelle im Bereich ("a3: g8")
RowCell = Zelle.Zeile
ColCell = Zelle.Spalte
Wenn cell.Column = 1 und cell.Row = 3, dann
ElseIf cell.Column <> 1 Dann
Wenn cell.Offset (0, -1) .Value> = 1 Then
cell.Value = cell.Offset (0, -1) .Value + 1
Wenn cell.Value> (FinalDay - StartDay) Dann
cell.Value = ""
Exit für
End If
End If
ElseIf cell.Row> 3 And cell.Column = 1 Then
cell.Value = cell.Offset (-1, 6) .Value + 1
Wenn cell.Value> (FinalDay - StartDay) Dann
cell.Value = ""
Exit für
End If
End If
Weiter
Für X = 0 zu 5
Bereich ("A4"). Offset (x * 2, 0) .EntireRow.Insert
Mit Bereich ("A4: G4"). Versatz (x * 2, 0)
.RowHeight = 65
.HorizontalAlignment = xlCenter
.Vertikale Ausrichtung = xlTop
.WrapText = Wahr
.Schriftgröße = 10
.Font.Bold = Falsch
.Gesperrt = Falsch
Ende mit
Mit Bereich ("A3"). Versatz (x * 2, 0). Größe ändern (2, _
7) .Borders (xlLeft)
.Gewicht = xlThick
.ColorIndex = xlAutomatisch
Ende mit
Mit Bereich ("A3"). Versatz (x * 2, 0). Größe ändern (2, _
7) .Borders (xlRight)
.Gewicht = xlThick
.ColorIndex = xlAutomatisch
Ende mit
Bereich ("A3"). Offset (x * 2, 0) .Resize (2, 7) .BorderAround _
Gewicht: = xlThick, ColorIndex: = xlAutomatic
Weiter
Wenn Bereich ("A13"). Wert = "" Dann Bereich ("A13"). Versatz (0, 0) _
.Resize (2, 8) .EntireRow.Delete
ActiveWindow.DisplayGridlines = False
ActiveSheet.Protect DrawingObjects: = True, Inhalt: = True, _
Szenarien: = Richtig
ActiveWindow.WindowState = xlMaximized
ActiveWindow.ScrollRow = 1
Application.ScreenUpdating = True
Exit Sub
Meine Fehlerfalle:
MsgBox "Möglicherweise haben Sie Ihren Monat und Ihr Jahr nicht richtig eingegeben." _
& Chr (13) & "Den Monat richtig buchstabieren" _
& "(oder 3-Buchstaben-Abkürzung verwenden)" _
& Chr (13) & "und 4 Ziffern für das Jahr"
MyInput = InputBox ("Geben Sie Monat und Jahr für den Kalender ein")
Wenn MyInput = "", dann beenden Sie Sub
ZUSAMMENFASSUNG
End Sub

Dann klick  Klicken Sie auf die Schaltfläche, um den Code auszuführen, und ein Eingabeaufforderungsfeld wird angezeigt. Sie können den Monat und das Jahr in das leere Feld eingeben. Siehe Screenshot:

Und dann klick OK. Im aktuellen Arbeitsblatt wurde ein neuer Monatskalender erstellt. Siehe Screenshot:

Der VBA-Code ist für die meisten von uns schwierig, und mit diesem VBA-Code können Sie nur dann einen Monatskalender erstellen, wenn Sie schnell und einfach einen Jahreskalender erstellen möchten. Gibt es eine andere einfache Methode, um dies zu tun?

Erstellen Sie mit Kutools for Excel schnell einen Monats- oder Jahreskalender

Ewiger Kalender Werkzeug von Kutools für Excel kann schnell einen benutzerdefinierten Monatskalender oder Jahreskalender in einer neuen Arbeitsmappe erstellen, und jeder Monatskalender wird in einem neuen Arbeitsblatt enthalten sein.

Kutools for Excel: Mit mehr als 300 praktischen Excel-Add-Ins können Sie es innerhalb von 30 Tagen ohne Einschränkung testen. Get it Now

Wenn Sie Kutools für Excel installiert haben, klicken Sie bitte auf Unternehmen > Arbeitsblatt-Tools > Ewiger KalenderUnd eine Ewiger Kalender Das Dialogfeld wird angezeigt. Wenn Sie einen aktuellen Monatskalender erstellen möchten, geben Sie einfach 1 in das Feld ein Anzahl der Monate Box und klicken Sie auf Erstellen Taste. Siehe Screenshot:

Und dann wurde ein aktueller Monatskalender in einer neuen Arbeitsmappe generiert.

Wenn Sie einen Jahreskalender für 2012 erstellen möchten, geben Sie bitte die Nummer 12 in das Feld ein Anzahl der Monate Feld und gab den ersten Monat an Januar 2012 im linken Bereich. Siehe Screenshot:

Dann klick Erstellen Mit dieser Schaltfläche wird der Jahreskalender 2012 in einer neuen Arbeitsmappe erstellt.

---

Die besten Tools für die Office-Produktivität

Kutools for Excel löst die meisten Ihrer Probleme und erhöht Ihre Produktivität um 80%

• Wiederverwendung: Schnell einfügen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
• Super Formelriegel (leicht mehrere Textzeilen und Formeln bearbeiten); Layout lesen (leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
• Zellen / Zeilen / Spalten zusammenführen ohne Daten zu verlieren; Inhalt geteilter Zellen; Kombinieren Sie doppelte Zeilen / Spalten... doppelte Zellen verhindern; Bereiche vergleichen...
• Wählen Sie Duplizieren oder Eindeutig Reihen; Wählen Sie Leere Zeilen (alle Zellen sind leer); Super Find und Fuzzy Find in vielen Arbeitsmappen; Zufällige Auswahl ...
• Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen zu mehreren Blättern; Aufzählungszeichen einfügen, Kontrollkästchen und mehr ...
• Text extrahieren, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen;; Paging-Zwischensummen erstellen und drucken; Inhalt und Kommentare zwischen Zellen konvertieren...
• Superfilter (Speichern und Anwenden von Filterschemata auf andere Blätter); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
• Kombinieren Sie Arbeitsmappen und Arbeitsblätter;; Tabellen basierend auf Schlüsselspalten zusammenführen; Daten in mehrere Blätter aufteilen; Batch-Konvertierung von xls, xlsx und PDF...
• Mehr als 300 leistungsstarke Funktionen. Unterstützt Office / Excel 2007-2021 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. 30-tägige kostenlose Testversion mit allen Funktionen. 60 Tage Geld-zurück-Garantie.

Lesen Sie mehr... Kostenfreier Download... Kauf... 

---

Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich

• Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
• Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
• Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!

Lesen Sie mehr... Kostenfreier Download... Kauf...