Wie lässt sich ein Kalender anzeigen, sobald man auf eine bestimmte Zelle in Excel klickt?
Angenommen, Sie müssen regelmäßig Daten in einen bestimmten Spaltenbereich eines Arbeitsblatts eingeben oder aktualisieren – doch das manuelle Eingeben oder Ändern des Datums jedes Mal ist zeitaufwendig. Wie können Sie Daten schnell erfassen, ohne sie mühsam einzutippen? Dieser Artikel zeigt Ihnen, wie beim Klicken auf eine Zelle innerhalb eines festgelegten Bereichs automatisch ein Kalender erscheint und das ausgewählte Datum direkt in die betreffende Zelle eingefügt wird.
Schritt 2: Kalender beim Klicken auf eine Zelle aktivieren
Kalender beim Klicken auf eine bestimmte Zelle mit VBA-Code anzeigen
Bitte lösen Sie dieses Problem Schritt für Schritt wie folgt.
Hinweis: Diese Methode funktioniert ausschließlich mit Microsoft Excel in der 32-Bit-Version.
Schritt 1: Erstellen eines UserForm mit Kalender
Bitte erstellen Sie ein UserForm mit einem Kalender, der automatisch angezeigt wird, sobald Sie auf eine Zelle klicken.
1. Drücken Sie gleichzeitig die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Klicken Sie im Fenster Microsoft Visual Basic for Applications auf Einfügen > UserForm.
3. Anschließend erscheinen ein UserForm- und ein Toolbox-Fenster. Klicken Sie in der Toolbox auf ein beliebiges Steuerelement, klicken Sie dann mit der rechten Maustaste und wählen Sie im Kontextmenü Weitere Steuerelemente aus. Siehe Screenshot:
4. Aktivieren Sie im Dialogfeld Weitere Steuerelemente die Option Microsoft MonthView Control im Feld Verfügbare Steuerelemente, und klicken Sie anschließend auf die Schaltfläche OK.
5. Nun sehen Sie, dass die Schaltfläche MonthView zur Toolbox hinzugefügt wurde. Klicken Sie auf diese MonthView-Schaltfläche und anschließend in das UserForm1-Fenster, um einen Kalender im UserForm einzufügen.
Hinweis: Passen Sie die Größe des UserForm-Fensters ganz einfach an den eingefügten Kalender an, indem Sie den Rand des UserForms ziehen.
6. Doppelklicken Sie auf den eingefügten Kalender in UserForm1. Ersetzen Sie im Code-Fenster den ursprünglichen Code durch das folgende VBA-Skript.
VBA code: create a user form with calendar
Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
On Error Resume Next
Dim xRg As Object
For Each xRg In Selection.Cells
xRg.Value = DateClicked
Next xRg
Unload Me
End SubHinweis: Mit diesem Code wird das im Kalender ausgewählte Datum automatisch in die markierte Datumszelle eingefügt.
Schritt 2: Kalender beim Klicken auf eine Zelle aktivieren
Legen Sie nun fest, in welchen Zellen beim Anklicken ein Kalender erscheinen soll – so geht’s:
7. Doppelklicken Sie im linken Projekt-Bereich auf den Namen des Arbeitsblatts, das die Zellen enthält, auf die Sie klicken möchten, um den Kalender erscheinen zu lassen. Kopieren Sie anschließend den folgenden VBA-Code und fügen Sie ihn in das Code-Fenster ein. Siehe Screenshot:
VBA code: Click cell to pop up calendar
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If (Target.Count = 1) Then
If Not Intersect(Target, Range("A2:A10")) Is Nothing Then UserForm1.Show
End If
End SubHinweis: Im Code bezieht sich A2:A10 auf die Zellen, auf die Sie klicken, um den Kalender erscheinen zu lassen. Passen Sie den Zellbereich entsprechend Ihren Anforderungen an.
8. Drücken Sie gleichzeitig die Tasten Alt + Q, um das Fenster Microsoft Visual Basic for Applications zu schließen.
Ab sofort erscheint beim Klicken auf eine beliebige Zelle innerhalb des Bereichs „Begrenzter Bereich“ im aktuellen Arbeitsblatt ein Kalender, wie im folgenden Screenshot dargestellt. Sobald Sie ein Datum im Kalender auswählen, wird es automatisch in die ausgewählte Zelle eingefügt.
Kalender beim Klicken auf eine bestimmte Zelle mit VBA-Code anzeigen
Dieser Abschnitt stellt das Hilfsprogramm Datumsauswahl von Kutools für Excel vor. Sobald Sie diese Funktion aktiviert haben, erscheint beim Klicken auf eine Datumszelle ein Kalender, mit dem Sie das vorhandene Datum ganz einfach durch ein neues ersetzen können. So nutzen Sie diese praktische Funktion:
1. Klicken Sie auf Kutools > Inhalt > Aktivieren Sie Datumsauswahl.
2. Nach Aktivierung dieser Funktion erscheint beim Klicken auf eine Datumszelle direkt rechts daneben ein Kalendersymbol.
3. Klicken Sie auf das Kalendersymbol, um das Dialogfeld Datumsauswahl zu öffnen, und wählen Sie anschließend ein neues Datum aus, um das Datum in der markierten Zelle zu ersetzen.
Hinweise:
Schaltfläche „Rückgängig“: Klicken Sie diese Schaltfläche an, um das Ersetzen des Datums rückgängig zu machen;
Schaltfläche „Schließen“: Klicken Sie diese Schaltfläche an, um das Dialogfeld Datumsauswahl zu schließen;- Diese Funktion lässt sich nur auf Zellen anwenden, die ein Datum enthalten.
Schaltfläche „Rückgängig“: Klicken Sie diese Schaltfläche an, um das Ersetzen des Datums rückgängig zu machen;
Schaltfläche „Schließen“: Klicken Sie diese Schaltfläche an, um das Dialogfeld Datumsauswahl zu schließen;Wenn Sie eine kostenlose 30-Tage-Testversion dieses Dienstprogramms nutzen möchten, klicken Sie bitte hier, um sie herunterzuladen, und führen Sie anschließend die Aktion gemäß den oben beschriebenen Schritten aus.
Verwandte Artikel:
- Wie lässt sich ein Makro durch einen Klick auf eine bestimmte Zelle in Excel auslösen oder ausführen?
- Wie ändert man die Farbe einer Zelle in Excel, sobald sie angeklickt oder markiert wird?
- Wie lässt sich eine Meldungsbox anzeigen, sobald auf eine bestimmte Zelle in Excel geklickt wird?
- Wie deaktiviert man eine Schaltfläche in Excel, nachdem sie einmal angeklickt wurde?
- Wie deaktiviert man den Rechtsklick auf ein Arbeitsblattregister in Excel?
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins