Wie erstelle ich einen Kalender in Excel?
Mit einem Excel-Kalender behalten Sie den Überblick über wichtige Ereignisse, beispielsweise wenn jemand einen neuen Job antritt oder wenn etwas geliefert werden muss. Es macht das Erkennen dieser Daten einfach und klar. In dieser Anleitung zeige ich Ihnen, wie Sie in Excel sowohl Monats- als auch Jahreskalender erstellen. Wir werden uns mit der Verwendung von Vorlagen für eine schnelle Einrichtung befassen und auch mit der Erstellung einer Vorlage von Grund auf für diejenigen, die mehr Kontrolle wünschen. Auf diese Weise bleiben Sie organisiert, sei es bei der Arbeit oder bei privaten Plänen.
Erstellen Sie einen Jahreskalender mithilfe von Excel-Kalendervorlagen
Erstellen Sie mit Kutools for Excel schnell einen Monats- oder Jahreskalender
Erstellen Sie einen Jahreskalender mithilfe von Excel-Kalendervorlagen
Bei dieser Methode müssen Sie sicherstellen, dass Ihr Computer eine Verbindung zum Netzwerk herstellt, damit Sie die herunterladen können Kalendervorlagen.
1 Gehe zu Reichen Sie das Tab, klicken Sie auf Neu Klicken Sie im linken Bereich auf die Schaltfläche und klicken Sie auf Kalender für Vorgeschlagene Suchanfragen. Siehe Screenshot:
2. Wählen Sie eine der Kalendervorlagen aus, die Ihnen gefällt, und doppelklicken Sie darauf, um den Jahreskalender zu erstellen.
Ergebnis
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.
Klicken Sie nach der Installation von Kutools for Excel auf Kutoolen Plus > Arbeitsblatt > Ewiger Kalender. Im Popup Ewiger Kalender Dialogfeld, bitte gehen Sie wie folgt vor:
- Um einen Monatskalender zu erstellen, geben Sie die Monate an, für die Sie den Kalender erstellen möchten Aus undZu Dropdown-Liste und klicken Sie auf Erstellen.
- Um einen Jahreskalender zu erstellen, geben Sie über das Jahr an, in dem Sie den Kalender erstellen möchten Aus und Zu Dropdown-Liste und klicken Sie auf Erstellen.
Ergebnis
- Ein Monatskalender:
- Ein Jahreskalender:
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:
1. Drücken Sie Andere + F11 Tasten zum Öffnen des Fensters Microsoft Visual Basic für Applikationen.
2. Es wird ein neues Fenster angezeigt. Klicken Insert > ModulGeben Sie dann die folgenden Codes in das Modul ein:
Sub CalendarMaker()
ActiveSheet.Protect DrawingObjects:=False, Contents:=False, _
Scenarios:=False
Application.ScreenUpdating = False
On Error GoTo MyErrorTrap
Range("a1:g14").Clear
MyInput = InputBox("Type in Month and year for Calendar ")
If MyInput = "" Then Exit Sub
StartDay = DateValue(MyInput)
If Day(StartDay) <> 1 Then
StartDay = DateValue(Month(StartDay) & "/1/" & _
Year(StartDay))
End If
Range("a1").NumberFormat = "mmmm yyyy"
With Range("a1:g1")
.HorizontalAlignment = xlCenterAcrossSelection
.VerticalAlignment = xlCenter
.Font.Size = 18
.Font.Bold = True
.RowHeight = 35
End With
With Range("a2:g2")
.ColumnWidth = 11
.VerticalAlignment = xlCenter
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Orientation = xlHorizontal
.Font.Size = 12
.Font.Bold = True
.RowHeight = 20
End With
Range("a2") = "Sunday"
Range("b2") = "Monday"
Range("c2") = "Tuesday"
Range("d2") = "Wednesday"
Range("e2") = "Thursday"
Range("f2") = "Friday"
Range("g2") = "Saturday"
With Range("a3:g8")
.HorizontalAlignment = xlRight
.VerticalAlignment = xlTop
.Font.Size = 18
.Font.Bold = True
.RowHeight = 21
End With
Range("a1").Value = Application.Text(MyInput, "mmmm yyyy")
DayofWeek = Weekday(StartDay)
CurYear = Year(StartDay)
CurMonth = Month(StartDay)
FinalDay = DateSerial(CurYear, CurMonth + 1, 1)
Select Case DayofWeek
Case 1
Range("a3").Value = 1
Case 2
Range("b3").Value = 1
Case 3
Range("c3").Value = 1
Case 4
Range("d3").Value = 1
Case 5
Range("e3").Value = 1
Case 6
Range("f3").Value = 1
Case 7
Range("g3").Value = 1
End Select
For Each cell In Range("a3:g8")
RowCell = cell.Row
ColCell = cell.Column
If cell.Column = 1 And cell.Row = 3 Then
ElseIf cell.Column <> 1 Then
If cell.Offset(0, -1).Value >= 1 Then
cell.Value = cell.Offset(0, -1).Value + 1
If cell.Value > (FinalDay - StartDay) Then
cell.Value = ""
Exit For
End If
End If
ElseIf cell.Row > 3 And cell.Column = 1 Then
cell.Value = cell.Offset(-1, 6).Value + 1
If cell.Value > (FinalDay - StartDay) Then
cell.Value = ""
Exit For
End If
End If
Next
For x = 0 To 5
Range("A4").Offset(x * 2, 0).EntireRow.Insert
With Range("A4:G4").Offset(x * 2, 0)
.RowHeight = 65
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlTop
.WrapText = True
.Font.Size = 10
.Font.Bold = False
.Locked = False
End With
With Range("A3").Offset(x * 2, 0).Resize(2, _
7).Borders(xlLeft)
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Range("A3").Offset(x * 2, 0).Resize(2, _
7).Borders(xlRight)
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
Range("A3").Offset(x * 2, 0).Resize(2, 7).BorderAround _
Weight:=xlThick, ColorIndex:=xlAutomatic
Next
If Range("A13").Value = "" Then Range("A13").Offset(0, 0) _
.Resize(2, 8).EntireRow.Delete
ActiveWindow.DisplayGridlines = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, _
Scenarios:=True
ActiveWindow.WindowState = xlMaximized
ActiveWindow.ScrollRow = 1
Application.ScreenUpdating = True
Exit Sub
MyErrorTrap:
MsgBox "You may not have entered your Month and Year correctly." _
& Chr(13) & "Spell the Month correctly" _
& " (or use 3 letter abbreviation)" _
& Chr(13) & "and 4 digits for the Year"
MyInput = InputBox("Type in Month and year for Calendar")
If MyInput = "" Then Exit Sub
Resume
End Sub
3. Dann klick Führen Sie Taste oder drücken F5 Schlüssel zum Ausführen der Anwendung. Nun erscheint ein Eingabeaufforderungsfeld. Sie können den Monat und das Jahr in das leere Feld eingeben.
Ergebnis
In Verbindung stehende Artikel
Wie erstelle ich einen Dropdown-Listenkalender (Datumsauswahl) in Excel?
Mit dem Dropdown-Kalender im Excel-Arbeitsblatt können Sie ganz einfach ein bestimmtes Datum auswählen, ohne es manuell eingeben zu müssen. Dieses Tutorial zeigt Ihnen, wie Sie mit dem ActiveX-Steuerelement einen Kalender in einem Excel-Arbeitsblatt erstellen.
Wie öffne ich einen Kalender, wenn ich in Excel auf eine bestimmte Zelle klicke?
In diesem Artikel geht es um das Öffnen eines Kalenders, wenn Sie auf Zellen in einem bestimmten Bereich klicken, und um das automatische Einfügen des Datums in die ausgewählte Zelle, nachdem Sie das Datum im Kalender ausgewählt haben.
Wie erstelle ich einen Termin aus einer Excel-Tabelle in einen Outlook-Kalender?
Manchmal müssen Sie möglicherweise Termine im Outlook-Kalender erstellen. Haben Sie jedoch schon einmal versucht, Termine in einem Excel-Arbeitsblatt aufzulisten und sie dann wie im folgenden Screenshot gezeigt in den Outlook-Kalender zu importieren?
Wie erstelle ich einen dynamischen Monatskalender in Excel?
Dieser Artikel zeigt Ihnen detailliert die Methode zum Erstellen eines dynamischen Monatskalenders in Excel.
Die besten Tools für die Office-Produktivität
Kutools für Excel - Hilft Ihnen, sich von der Masse abzuheben
Kutools für Excel bietet über 300 Funktionen, Stellen Sie sicher, dass das, was Sie brauchen, nur einen Klick entfernt ist ...
Office-Registerkarte - Aktivieren Sie das Lesen und Bearbeiten von Registerkarten in Microsoft Office (einschließlich Excel).
- Eine Sekunde, um zwischen Dutzenden offener Dokumente zu wechseln!
- Reduzieren Sie jeden Tag Hunderte von Mausklicks für Sie und verabschieden Sie sich von der Maushand.
- Erhöht Ihre Produktivität um 50 % beim Anzeigen und Bearbeiten mehrerer Dokumente.
- Bringt effiziente Tabs in Office (einschließlich Excel), genau wie Chrome, Edge und Firefox.
Inhaltsverzeichnis
- Erstellen Sie einen Jahreskalender mithilfe von Excel-Kalendervorlagen
- Erstellen Sie mit Kutools for Excel schnell einen Monats- oder Jahreskalender
- Erstellen Sie einen Monatskalender mit VBA-Code
- In Verbindung stehende Artikel
- Die besten Tools für die Office-Produktivität
- Ihre Nachricht