Wie öffne ich einen Kalender, wenn ich in Excel auf eine bestimmte Zelle klicke?
Angenommen, ein Arbeitsblatt enthält einen Spaltenbereich, in den Sie häufig Daten eingeben und ändern müssen. Es ist jedoch langweilig, das Datum pro Zeit manuell einzugeben oder zu ändern. Wie kann man schnell Daten eingeben, ohne manuell in den Spaltenbereich einzugeben? In diesem Artikel wird das Aufrufen eines Kalenders beim Klicken auf Zellen in einem bestimmten Bereich und das automatische Einfügen eines Datums in die ausgewählte Zelle nach Auswahl des Datums im Kalender beschrieben.
Schritt 2: Aktivieren Sie den Kalender, wenn Sie auf die Zelle klicken
Öffnen Sie einen Kalender, wenn Sie auf eine bestimmte Zelle mit VBA-Code klicken
Bitte lösen Sie dieses Problem wie folgt Schritt für Schritt.
Note: Diese Methode kann nur unter Microsoft Excel 32-Bit verwendet werden.
Schritt 1: Erstellen Sie eine UserForm mit Kalender
Bitte erstellen Sie eine UserForm, die den Kalender enthält, den Sie durch Klicken auf eine Zelle öffnen.
1. Drücken Sie Andere + F11 Tasten gleichzeitig zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.
2. In dem Microsoft Visual Basic für Applikationen Klicken Sie im Fenster Insert > Benutzerformular.
3. Dann a Benutzerformular und einem Tools Fenster öffnen sich in der ToolsKlicken Sie auf ein Steuerelement, klicken Sie mit der rechten Maustaste und wählen Sie Zusätzliche Steuerelemente aus dem Kontextmenü. Siehe Screenshot:
4. In dem Zusätzliche Steuerelemente Scrollen Sie im Dialogfeld nach unten, um das zu überprüfen Microsoft MonthView-Steuerelement Option in der Verfügbare Steuerelemente Feld, und klicken Sie dann auf OK .
5. Dann können Sie die sehen Monatsansicht Schaltfläche wird in der hinzugefügt Tools Fenster. Klicken Sie auf diese MonthView-Schaltfläche und dann auf das UserForm1-Fenster, um einen Kalender im Benutzerformular zu erstellen.
Note: Sie können die Größe des UserForm-Fensters an den eingefügten Kalender anpassen, indem Sie den Rand der UserForm ziehen.
6. Doppelklicken Sie auf den eingefügten Kalender in UserForm1 und in Code Fenster, bitte ersetzen Sie den Originalcode 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 Sub
Note: Dieser Code kann dazu beitragen, das Datum in die ausgewählte Zelle einzufügen, nachdem das Datum aus dem Kalender ausgewählt wurde.
Schritt 2: Aktivieren Sie den Kalender, wenn Sie auf die Zelle klicken
Jetzt müssen Sie bestimmte Zellen angeben, um den Kalender beim Klicken aufzurufen. Bitte gehen Sie wie folgt vor.
7. Doppelklicken Sie auf den Blattnamen, der die Zellen enthält, auf die Sie klicken, um den Kalender links aufzurufen Projekt Kopieren Sie den folgenden VBA-Code und fügen Sie ihn in das Codefenster 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 Sub
Note: Im Code sind A2: A10 Zellen, auf die Sie klicken, um den Kalender aufzurufen. Bitte ändern Sie den Zellbereich nach Bedarf.
8. Drücken Sie Andere + Q Tasten gleichzeitig zum Schließen der Microsoft Visual Basic für Applikationen Fenster.
Wenn Sie von nun an auf eine Zelle innerhalb des angegebenen Bereichs im aktuellen Arbeitsblatt klicken, wird ein Kalender angezeigt (siehe Abbildung unten). Das Datum wird automatisch in die ausgewählte Zelle eingefügt, nachdem das Datum aus dem Kalender ausgewählt wurde.
Öffnen Sie einen Kalender, wenn Sie auf eine bestimmte Zelle mit VBA-Code klicken
In diesem Abschnitt wird das vorgestellt Datumsauswahl Nutzen von Kutools for Excel. Nachdem Sie diese Funktion aktiviert haben, klicken Sie auf eine Datumszelle. Daraufhin wird ein Kalender angezeigt. Sie können das vorhandene Datum problemlos durch ein neues Datum ersetzen. Befolgen Sie die folgenden Schritte, um diese Funktion anzuwenden.
1 Klicken Kutoolen > Inhalt > Aktivieren Sie die Datumsauswahl.
2. Nachdem Sie diese Funktion aktiviert haben, klicken Sie auf eine Datumszelle. Ein Kalendersymbol wird direkt in der Zelle angezeigt.
3. Klicken Sie auf das Kalendersymbol, um das zu öffnen Datumsauswahl Klicken Sie im Dialogfeld auf ein neues Datum, um das Datum in der ausgewählten Zelle zu ersetzen.
Anmerkungen:
- Schaltfläche "Rückgängig": Klicken Sie auf diese Schaltfläche, um das Ersetzungsdatum rückgängig zu machen.
- Schaltfläche Schließen: Klicken Sie auf diese Schaltfläche, um das Dialogfeld Datumsauswahl zu schließen.
- Diese Funktion kann nur auf Zellen angewendet werden, die Datum enthalten.
Wenn Sie eine kostenlose Testversion (30 Tage) dieses Dienstprogramms wünschen, Bitte klicken Sie, um es herunterzuladenund wenden Sie dann die Operation gemäß den obigen Schritten an.
In Verbindung stehende Artikel:
- Wie kann ein Makro ausgelöst oder ausgeführt werden, indem auf eine bestimmte Zelle in Excel geklickt wird?
- Wie ändere ich die Zellenfarbe, wenn in Excel auf eine Zelle geklickt oder diese ausgewählt wird?
- Wie wird ein Meldungsfeld angezeigt, wenn Sie in Excel auf eine bestimmte Zelle klicken?
- Wie deaktiviere ich die Schaltfläche, nachdem ich einmal in Excel geklickt habe?
- Wie deaktiviere ich die rechte Maustaste auf die Blattregisterkarte 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, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
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!