Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Datum per doppelklick

Datum per doppelklick
24.01.2018 09:29:57
MaBlu
Hallo ich habe ein VBA das geht tipptop, wenn aber die Zelle eine Verbundene Zelle ist geht es nicht mehr (Zellen sind verbunden wegen der länge des Datums), was könnte ich hier ändern dass es geht, sowohl verbunden als auch einzeln.
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
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datum per doppelklick
24.01.2018 09:33:26
Bernd
Hi,
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 Bernd
AW: Datum per doppelklick
24.01.2018 09:42:37
MaBlu
Hallo Bernd
Klappt super danke.
Gruss MaBlu
Anzeige
Gerne und Danke für die Rückmeldung - owT
24.01.2018 09:50:02
Bernd
If Target(1).Address = "$J$19" Then owT
24.01.2018 13:13:33
Rudi
AW: If Target(1).Address = "$J$19" Then owT
24.01.2018 17:49:15
MaBlu
Hallo Rudi Maintaire
auch diese Lösung klappt besten Dank
MaBlu
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Datum per Doppelklick in Excel einfügen


Schritt-für-Schritt-Anleitung

Um 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:

  1. Öffne dein Excel-Dokument.

  2. Drücke ALT + F11, um den VBA-Editor zu öffnen.

  3. Doppelklicke im Projektfenster auf das Arbeitsblatt, in dem du das Datum per Doppelklick einfügen möchtest (z.B. Tabelle1).

  4. 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
  5. Speichere die Änderungen und schließe den VBA-Editor.

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


Häufige Fehler und Lösungen

  • Fehler: Das Datum wird nicht eingefügt.

    • Lösung: Stelle sicher, dass der Code im richtigen Arbeitsblatt eingefügt wurde und dass die Zelle nicht geschützt ist.
  • Fehler: Der Code funktioniert nicht bei verbundenen Zellen.

    • Lösung: Verwende den folgenden Code, um sowohl in verbundenen als auch in einzelnen Zellen zu arbeiten:
    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

Alternative Methoden

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.


Praktische Beispiele

  1. Einzelne Zelle (J19): Verwende den ursprünglichen VBA-Code, um das Datum in J19 einzufügen.
  2. Verbundene Zellen (J19 und K19): Verwende den angepassten VBA-Code, um das Datum in beiden Zellen einzufügen.

Tipps für Profis

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


FAQ: Häufige Fragen

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.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige