Z.B. J19 und K19
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$J$19" Then
Target = Date
Cancel = True
End If
End Sub
Gruss MaBlu
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$J$19" Then
Target = Date
Cancel = True
End If
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Offset(0, 0).Address(False, False) = "J19" Then
Target = Date
Cancel = True
End If
End Sub
MfG BerndUm das aktuelle Datum per Doppelklick in eine Zelle einzufügen, kannst du VBA (Visual Basic for Applications) verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:
Öffne dein Excel-Dokument.
Drücke ALT + F11
, um den VBA-Editor zu öffnen.
Doppelklicke im Projektfenster auf das Arbeitsblatt, in dem du das Datum per Doppelklick einfügen möchtest (z.B. Tabelle1
).
Füge den folgenden Code in das Codefenster ein:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$J$19" Then
Target.Value = Date
Cancel = True
End If
End Sub
Speichere die Änderungen und schließe den VBA-Editor.
Doppelklicke auf die Zelle J19, um das aktuelle Datum einzufügen.
Wenn du mehrere Zellen einbeziehen möchtest, kannst du die Bedingungen im Code anpassen.
Fehler: Das Datum wird nicht eingefügt.
Fehler: Der Code funktioniert nicht bei verbundenen Zellen.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("J19:K19")) Is Nothing Then
Target.Value = Date
Cancel = True
End If
End Sub
Wenn du keine VBA-Lösung verwenden möchtest, kannst du auch die Funktion =HEUTE()
in eine Zelle eingeben. Diese Methode aktualisiert das Datum jedoch jedes Mal, wenn die Datei geöffnet wird.
Du kannst den VBA-Code anpassen, um das Datum in verschiedenen Formaten einzufügen, z.B.:
Target.Value = Format(Date, "dd.mm.yyyy")
Wenn du den Code auf mehrere Zellen anwenden möchtest, kannst du die Intersect
-Funktion verwenden, um mehrere Bereiche zu überprüfen.
1. Wie kann ich den VBA-Code für andere Zellen anpassen?
Du kannst die Adresse $J$19
im Code einfach durch die Adresse der gewünschten Zelle ersetzen.
2. Was mache ich, wenn ich Excel ohne Makros verwenden möchte?
Du kannst stattdessen die Funktion =HEUTE()
direkt in einer Zelle verwenden, musst jedoch beachten, dass das Datum sich bei jedem Öffnen der Datei ändert.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen