Note: The other languages of the website are Google-translated. Back to English

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

Registerkarte "Office" Aktivieren Sie das Bearbeiten und Durchsuchen von Registerkarten in Office und vereinfachen Sie Ihre Arbeit erheblich ...
Kutools for Excel löst die meisten Ihrer Probleme und erhöht Ihre Produktivität um 80%
  • Alles wiederverwenden: Fügen Sie Ihren Favoriten die am häufigsten verwendeten oder komplexesten Formeln, Diagramme und alles andere hinzu und verwenden Sie sie in Zukunft schnell wieder.
  • Mehr als 20 Textfunktionen: Nummer aus Textzeichenfolge extrahieren; Teile von Texten extrahieren oder entfernen; Zahlen und Währungen in englische Wörter umwandeln.
  • Tools zusammenführen: Mehrere Arbeitsmappen und Blätter in einem; Zusammenführen mehrerer Zellen / Zeilen / Spalten ohne Datenverlust; Doppelte Zeilen und Summe zusammenführen.
  • Werkzeuge teilen: Aufteilen von Daten in mehrere Blätter basierend auf dem Wert; Eine Arbeitsmappe für mehrere Excel-, PDF- oder CSV-Dateien; Eine Spalte zu mehreren Spalten.
  • Einfügen überspringen Versteckte / gefilterte Zeilen; Zählen und summieren nach Hintergrundfarbe;; Senden Sie personalisierte E-Mails in großen Mengen an mehrere Empfänger.
  • Superfilter: Erstellen Sie erweiterte Filterschemata und wenden Sie sie auf alle Blätter an. Sortieren nach Woche, Tag, Häufigkeit und mehr; Filter durch Fettdruck, Formeln, Kommentar ...
  • Mehr als 300 leistungsstarke Funktionen; Funktioniert mit Office 2007-2021 und 365; Unterstützt alle Sprachen; Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation.

Pfeil blau rechte BlaseErstellen Sie einen Jahreskalender, indem Sie Excel-Kalendervorlagen herunterladen

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:

doc-create-calendar1

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.


Pfeil blau rechte Blase 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 doc-callendar-2 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:

doc-create-calendar2

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

doc-create-calendar3

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?


Pfeil blau rechte Blase 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:

doc-create-calendar4

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

doc-create-calendar5

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:

doc-create-calendar6

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

doc-create-calendar7


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.
kte tab 201905

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!
officetab unten
Kommentare (3)
Noch keine Bewertungen. Bewerten Sie als Erster!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Exzellente Arbeit. Milliarden Dank für Ihr tolles Design der Excel-Kalendervorlage. :lol:
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hi, wie kann ich es stattdessen am Montag beginnen lassen? Danke im Voraus
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Danke Jungs für die Hilfe. Ich hätte gerne einen Jahreskalender, in den ich Artikel eintragen kann. Wenn Sie helfen können, wäre das großartig.
Es sind noch keine Kommentare vorhanden
Hinterlassen Sie Ihre Kommentare
Als Gast posten
×
Bewerte diese Nachricht:
0   Figuren
Vorgeschlagene Standorte

Folgen Sie uns

Copyright © 2009 - www.extendoffice.com. | Alle Rechte vorbehalten. Unterstützt von ExtendOffice. | Sitemap
Microsoft und das Office-Logo sind Marken oder eingetragene Marken der Microsoft Corporation in den USA und / oder anderen Ländern.
Geschützt durch Sectigo SSL