Wie füge ich einen Datumsstempel in eine Zelle ein, wenn ein Kontrollkästchen in Excel aktiviert ist?

Normalerweise geben Sie einen Datumsstempel mithilfe von Hotkeys in Excel ein. Wie wäre es, wenn Sie einen Datumsstempel über ein Kontrollkästchen in Excel in eine Zelle einfügen? Wenn Sie das Kontrollkästchen aktivieren, wird der Zeitstempel automatisch in eine angegebene Zelle eingefügt. Dieser Artikel hilft Ihnen bei der Lösung.

Fügen Sie einen Datumsstempel in eine Zelle ein, wenn Sie ein Kontrollkästchen mit VBA-Code aktiviert haben

Fügen Sie einen Datumsstempel in eine Zelle ein, wenn Sie ein Kontrollkästchen mit VBA-Code aktiviert haben

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!

In diesem Abschnitt wird ein VBA-Skript vorgestellt, mit dem Sie automatisch einen Datumsstempel in eine Zelle einfügen können, wenn Sie ein Kontrollkästchen in Excel aktivieren. Bitte gehen Sie wie folgt vor.

1. Drücken Sie nach dem Einfügen eines Kontrollkästchens 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 > Modul. Kopieren Sie dann den folgenden VBA-Code und fügen Sie ihn in das Modulfenster ein.

VBA-Code: Fügen Sie einen Datumsstempel in eine Zelle ein, wenn ein Kontrollkästchen aktiviert ist

Sub CheckBox_Date_Stamp()
Dim xChk As CheckBox
Set xChk = ActiveSheet.CheckBoxes(Application.Caller)
With xChk.TopLeftCell.Offset(, 1)
    If xChk.Value = xlOff Then
        .Value = ""
    Else
       .Value = Date
    End If
End With
End Sub

3. Drücken Sie Andere + Q Tasten zum Schließen der Microsoft Visual Basic für Applikationen Fenster.

4. Klicken Sie mit der rechten Maustaste auf das Kontrollkästchen und wählen Sie Mikro zuweisen aus dem Kontextmenü. Siehe Screenshot:

5. In dem Makro zuweisen Dialogfeld auswählen CheckBox_Date_Stamp der Makroname Feld, und klicken Sie dann auf OK Taste. Siehe Screenshot:

Wenn Sie das Kontrollkästchen aktivieren, wird der Datumsstempel automatisch in die benachbarte Zelle eingefügt.

In Verbindung stehende Artikel:

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...

Kommentare (22)

Noch keine Bewertungen. Bewerten Sie als Erster!

Ines

vor etwa 5 Jahren

#19178

Dieser Kommentar wurde vom Moderator auf der Website minimiert

Vielen Dank, das war sehr hilfreich. Ich möchte anmerken, dass ich es nützlicher finde, den Datumsstempel links neben dem Kontrollkästchen zu haben. Dazu ändern Sie einfach den Offset auf (, -1)

antworten

Sarah T

vor etwa 5 Jahren

#19445

Dieser Kommentar wurde vom Moderator auf der Website minimiert

Gibt es eine Möglichkeit, dies mit Datum UND Uhrzeit zu tun? Danke für die Info so oder so!

antworten

Benoît T Sarah T

vor etwa 5 Jahren

#19446

Dieser Kommentar wurde vom Moderator auf der Website minimiert

Sub CheckBox_Date_Stamp() Dim xChk As CheckBox Set xChk = ActiveSheet.CheckBoxes(Application.Caller) With xChk.TopLeftCell.Offset(, 1) If xChk.Value = xlOff Then .Value = "" Else .Value = Date & " " & Zeit Ende, wenn Ende mit Ende Sub

antworten

Kristall Sarah T

vor etwa 5 Jahren

#19447

Dieser Kommentar wurde vom Moderator auf der Website minimiert

Hallo,
Bitte wenden Sie den folgenden VBA-Code an, um Datum und Uhrzeit hinzuzufügen.

Unter CheckBox_Date_Stamp()
Dim xChk As CheckBox
Setze xChk = ActiveSheet.CheckBoxes(Application.Caller)
Mit xChk.TopLeftCell.Offset(, 1)
Wenn xChk.Value = xlOff Then
.Wert = ""
sonst
.Wert = Jetzt()
End If
Ende mit
End Sub

antworten

Report

Juni

vor etwa 5 Jahren

#20669

Dieser Kommentar wurde vom Moderator auf der Website minimiert

HI Ich habe diese Formel ausprobiert und sie funktionierte nur für A1 und B1, als ich das Makro auf das Kontrollkästchen in A1 anwendete. Als ich das Makro jedoch auf das Kontrollkästchen in A2 anwendete, passierte in B2 nichts. Wie würde die Formel geändert, wenn ich diese für eine Checkliste verwenden wollte? Wenn Spalte A die Kontrollkästchen waren und Spalte C das Fertigstellungsdatum war.

antworten

Miriam Alfi Juni

vor etwa 5 Jahren

#20670

Dieser Kommentar wurde vom Moderator auf der Website minimiert

Hallo :) Du kannst die Zelle mit dem Kontrollkästchen in A1 in den Rest der Spalte kopieren. oder weisen Sie das Makro jedem Kontrollkästchen einzeln zu

antworten

Kristall Juni

vor etwa 5 Jahren

#20671

Dieser Kommentar wurde vom Moderator auf der Website minimiert

Guten Tag,
Bitte ordnen Sie das Makro jedem Kontrollkästchen einzeln zu.

antworten

Report

Mallory v

vor etwa 5 Jahren

#21362

Dieser Kommentar wurde vom Moderator auf der Website minimiert

Ich habe den VBA-Code genau kopiert und eingefügt, aber in meiner Tabelle erscheint das Datum in der Zelle darüber und rechts neben der Spalte mit den Kontrollkästchen, nicht in der Zelle direkt rechts davon. ?

antworten

CW Mallory v

vor etwa 5 Jahren

#21363

Dieser Kommentar wurde vom Moderator auf der Website minimiert

Ich habe auch genau das gleiche Problem. „HILFE! Ich brauche jemand HILFE! Nicht irgendeinen HILFE! Du weißt, ich brauche jemanden HILFE!

antworten

Kristall CW

vor etwa 5 Jahren

#21364

Dieser Kommentar wurde vom Moderator auf der Website minimiert

Guten Tag,
Der Code funktioniert in meinem Fall gut. Nachdem Sie das Kontrollkästchen aktiviert haben, wird das Datum in der Zelle direkt rechts davon angezeigt. Würden Sie einen Screenshot Ihres Falls bereitstellen? Und welche Office-Version verwendest du? Danke.

antworten

Report

Kev CW

vor etwa 5 Jahren

#21365

Dieser Kommentar wurde vom Moderator auf der Website minimiert

Ich hatte das gleiche Problem mit dem Datums- und Zeitstempel, der in der Zelle über der beabsichtigten Zelle angezeigt wurde (mit Excel 2007). Ich habe die "Offset" -Formel so geändert, dass sie über eine Zelle UND eine Zelle nach unten geht, und jetzt erscheint der Stempel dort, wo ich ihn haben möchte: Mit xChk.TopLeftCell.Offset (1, 1)
Ich aktualisiere ein Arbeitsblatt, das jemand anderes erstellt hat, und hat die Kontrollkästchen nicht erstellt, aber es kann damit zu tun haben, wo in der Zelle das Kontrollkästchen platziert ist. Ich habe unterschiedliche Ergebnisse erhalten, als ich das Kontrollkästchen am unteren Rand der Zelle ausgerichtet habe.

Hoffe das hilft!

antworten

Jakob W Mallory v

vor etwa 4 Jahren

#21366

Dieser Kommentar wurde vom Moderator auf der Website minimiert

Dies ist, was ich getan habe, um dieses Problem zu beheben

Unter CheckBox_Date_Stamp()
Dim xChk As CheckBox
Setze xChk = ActiveSheet.CheckBoxes(Application.Caller)
Mit xChk.TopLeftCell.Offset(1, 1)
Wenn xChk.Value = xlOff Then
.Wert = ""
sonst
.Wert = Jetzt()
End If
Ende mit
End Sub

antworten

Amy H.

vor etwa 4 Jahren

#25844

Dieser Kommentar wurde vom Moderator auf der Website minimiert

Hi! Danke für den Code. Es funktioniert perfekt mit einer kleinen Optimierung des Offsets. Ich habe jedoch an einem Blatt gearbeitet, das viele, viele Zeilen (~ 500+ Zeilen) enthält, die eine Menge Kontrollkästchen enthalten, und die Dateigröße ist erheblich gewachsen. Gibt es eine Möglichkeit die Größe zu reduzieren? Gibt es eine alternative Möglichkeit, dies zu tun?

Vielen Dank!

antworten

Kristall Amy H.

vor etwa 4 Jahren

#25845

Dieser Kommentar wurde vom Moderator auf der Website minimiert

Guten Tag
Wenn es viele Kontrollkästchen in Zeilen gibt und Sie auf alle Kontrollkästchen gleichzeitig reagieren möchten, kann Ihnen der folgende VBA-Code helfen.
Bitte kopieren Sie die Codes in ein Modulcodefenster, gehen Sie zurück zum Arbeitsblatt und erstellen Sie eine Schaltfläche (z. B. eine Schaltfläche (Formularsteuerung)), weisen Sie der Schaltfläche das Makro SetAllChkChange() zu und klicken Sie dann auf die Schaltfläche, um den Code auszuführen.

Jetzt sind alle Kontrollkästchen in den Zeilen Ihres Arbeitsblatts aktiviert. Sie können einen von ihnen ankreuzen, um einen Datumsstempel in die benachbarte Zelle einzufügen.

Unter SetAllChkChange()
Dim xChks
Dim xChk As CheckBox
Dim xI so lang
On Error Resume Next
xArrChk löschen
Setzen Sie xChks = ActiveSheet.CheckBoxes
ReDim Preserve xArrChk(1 bis xChks.count)
xI = 1
Für jedes xChk In xChks
xChk.Select
Selection.OnAction = "ObjChkChange"
Weiter
End Sub

Unter ObjChkChange()
Dim xChk As CheckBox
Setze xChk = ActiveSheet.CheckBoxes(Application.Caller)
Mit xChk.TopLeftCell.Offset(, 1)
Wenn xChk.Value = xlOff Then
.Wert = ""
sonst
.Wert = Datum
End If
Ende mit
End Sub

antworten

Report

Mehpire

vor etwa 4 Jahren

#27458

Dieser Kommentar wurde vom Moderator auf der Website minimiert

Wie bekomme ich den Datumsstempel, der unter meinem Kontrollkästchen angezeigt wird?

antworten

Report

vor etwa 2 Jahren

#32261

Dieser Kommentar wurde vom Moderator auf der Website minimiert

hallo! Ich kann anscheinend keinen Weg finden, wo sich der Datumsstempel auf der Seite des Kontrollkästchens befindet. Ich habe versucht, den Offset-Wert von 0, 1 und -1 zu ändern. kannst du mir dabei helfen? Danke!

antworten

Kristall Cj

vor etwa 2 Jahren

#32262

Dieser Kommentar wurde vom Moderator auf der Website minimiert

Hallo, angenommen, Ihr Kontrollkästchen befindet sich in A2 und Sie möchten den Datumsstempel auf der rechten Seite des Kontrollkästchens ausgeben (in diesem Fall ist es B2), ändern Sie bitte den Offset-Wert in Offset(1, 1).

antworten

Report

steve

vor etwa 2 Jahren

#32309

Dieser Kommentar wurde vom Moderator auf der Website minimiert

Ich habe VBA für den Zeitstempel des Kontrollkästchens verwendet, aber die ersten beiden Zellen funktionieren nicht richtig. Mein erstes Kontrollkästchen ist in A2, wenn ich das Kontrollkästchen ankreuze, wird die Zeit in B1 gepostet. Wie behebe ich das?

antworten

Kristall steve

vor etwa 2 Jahren

#32310

Dieser Kommentar wurde vom Moderator auf der Website minimiert

Hallo Steve,
Bitte ersetzen Sie die vierte Zeile im Code durch With xChk.TopLeftCell.Offset(1, 1).

antworten

Report

Hasch

vor etwa 2 Jahren

#32718

Dieser Kommentar wurde vom Moderator auf der Website minimiert

Vielen Dank!! Brillant! Danke!

antworten

Ahmed Hassan

vor etwa 1 Jahr

#36745

Dieser Kommentar wurde vom Moderator auf der Website minimiert

Hallo, wie kann ich den Code wiederholen, um alle Kontrollkästchen in der Spalte einzuschließen?

antworten

Kristall Ahmed Hassan

vor etwa 1 Jahr

#36746

Dieser Kommentar wurde vom Moderator auf der Website minimiert

Guten Tag,
Wenn es viele Kontrollkästchen in Zeilen gibt und Sie auf alle Kontrollkästchen gleichzeitig reagieren möchten, kann Ihnen der folgende VBA-Code helfen.
Bitte kopieren Sie die folgenden Codes in ein Modulcodefenster, gehen Sie zurück zum Arbeitsblatt und erstellen Sie eine Schaltfläche (z. B. eine Schaltfläche (Formularsteuerung)), weisen Sie das Makro zu SetAllChkChange() auf die Schaltfläche und klicken Sie dann auf die Schaltfläche, um den Code auszuführen.

Jetzt sind alle Kontrollkästchen in den Zeilen Ihres Arbeitsblatts aktiviert. Sie können einen von ihnen ankreuzen, um einen Datumsstempel in die benachbarte Zelle einzufügen.

Unter SetAllChkChange()
'Aktualisiert von Extendoffice 20211130
Dim xChks
Dim xChk As CheckBox
On Error Resume Next
Setzen Sie xChks = ActiveSheet.CheckBoxes
Für jedes xChk In xChks
xChk.Select
Selection.OnAction = "ObjChkChange"
Weiter
End Sub

Unter ObjChkChange()
Dim xChk As CheckBox
Setze xChk = ActiveSheet.CheckBoxes(Application.Caller)
Mit xChk.TopLeftCell.Offset(, 1)
Wenn xChk.Value = xlOff Then
.Wert = ""
sonst
.Wert = Datum
End If
Ende mit
End Sub

antworten

Report

Es sind noch keine Kommentare vorhanden

Hinterlassen Sie Ihre Kommentare

Als Gast posten

Einloggen

Name (erforderlich)

E-Mail (Pflichtfeld)

Bewerte diese Nachricht:

Zurücksetzen

0 Figuren

Ich akzeptiere die Bedingungen und den Zustand