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

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

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.
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 (22)
Noch keine Bewertungen. Bewerten Sie als Erster!
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)
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!
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
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
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.
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
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Guten Tag,
Bitte ordnen Sie das Makro jedem Kontrollkästchen einzeln zu.
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. ?
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!
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.
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!
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
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!
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
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Wie bekomme ich den Datumsstempel, der unter meinem Kontrollkästchen angezeigt wird?
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!
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).
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?
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).
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Vielen Dank!! Brillant! Danke!
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?
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
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