Live-Forum - Die aktuellen Beiträge
Datum
Titel
05.10.2025 23:18:01
Summewenns aber mit VBA
05.10.2025 11:43:19
Bed. Format. Spezialfall, Möglich, die Registerfarbe nutzen?
04.10.2025 18:18:42
Anzahl in einer Zelle automatisch ermitteln
04.10.2025 17:44:54
Power Query - Filtern einer Spalte mittels einer Liste
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
416to420
416to420
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datum per Doppelklick einfügen

Forumthread: Datum per Doppelklick einfügen

Datum per Doppelklick einfügen
20.04.2004 19:20:19
mike49
Hallo zusammen,
meine Mappe hat die Blätter Jan bis Dez. Nun möchte ich, dass im jeweils ausgewählten Monatsblatt in die Zelle C26 das aktuelle Datum eingefügt wird, falls die Zelle leer ist. Ist ein Datum vorhandenen, soll es durch Doppelklick gelöscht werden. Die nunmehr wieder leere Zelle soll nun durch erneuten Doppelklick das aktuelle Datum wieder einfügen.
Ein vorhandenes Datum soll also nicht mit dem aktuellen durch Doppelklick überschrieben werden, sondern zunächst durch den 1. Doppelklick gelöscht und das aktuelle ggf. durch einen 2. Doppelklick eingefügt werden.
Die Einfügezelle ist in allen Blättern jeweils C26.
Ist so was machbar?
Gruß
mike49
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datum per Doppelklick einfügen
20.04.2004 19:34:52
andre
Hallo Mike49
füge diesen code in die codemodule der gewünschten Tabellenblätter ein:


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$C$26" Then
    If IsEmpty(Target) Then
        Target = Date
    Else
        Target.Delete
    End If
    [c27].Activate
End If
End Sub

     Code eingefügt mit Syntaxhighlighter 2.5
Gruss Andre

Anzeige
AW: Datum per Doppelklick einfügen
20.04.2004 19:40:11
Ulf
Target.Delete
Bist du sicher?
Ulf
AW: Datum per Doppelklick einfügen
20.04.2004 20:00:46
andre
Hallo Ulf,
ja, ist getestet.




Grüße, André


Anzeige
AW: Datum per Doppelklick einfügen
20.04.2004 20:11:51
Ulf
Aber delete löscht nicht den Inhalt, sondern die Zelle(shiftUp).
Ist das so gewollt?
Ulf
AW: Datum per Doppelklick einfügen
20.04.2004 20:17:18
andre
... hast ja Recht. Hier also nochmal ordentlich:


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$C$26" Then
    If IsEmpty(Target) Then
        Target = Date
    Else
        Target.ClearContents
    End If
    [c27].Activate
End If
End Sub

     Code eingefügt mit Syntaxhighlighter 2.5

 




Grüße, André

Anzeige
AW: Datum per Doppelklick einfügen
20.04.2004 21:35:45
mike49
Hallo ihr beiden,
musste kurz weg. Deshalb erst jetzt die Rückmeldung.
Danke. Funktioniert prima.
Gruß
mike49
;
Anzeige

Infobox / Tutorial

Datum per Doppelklick einfügen in Excel

Schritt-für-Schritt-Anleitung

  1. Öffne Excel und dein Arbeitsblatt: Stelle sicher, dass du das richtige Monatsblatt geöffnet hast, in das du das Datum einfügen möchtest.

  2. Öffne den VBA-Editor: Drücke ALT + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.

  3. Füge den Code ein:

    • Wähle das gewünschte Tabellenblatt im Projektfenster aus.
    • Klicke mit der rechten Maustaste darauf und wähle „Code anzeigen“.
    • Kopiere den folgenden Code in das Codefenster:
    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   If Target.Address = "$C$26" Then
       If IsEmpty(Target) Then
           Target = Date
       Else
           Target.ClearContents
       End If
       [C27].Activate
   End If
End Sub

  4. Schließe den VBA-Editor: Drücke ALT + Q, um zum Excel-Arbeitsblatt zurückzukehren.

  5. Teste die Funktion: Doppelklicke auf die Zelle C26. Wenn sie leer ist, sollte das aktuelle Datum eingefügt werden. Wenn bereits ein Datum vorhanden ist, wird es gelöscht.

Häufige Fehler und Lösungen

  • Problem: Das Datum wird nicht eingefügt.

    • Lösung: Stelle sicher, dass du den Code im richtigen Tabellenblatt eingefügt hast. Der Code muss im VBA-Editor genau für das Blatt sein, in dem du das Datum einfügen möchtest.

  • Problem: Statt den Inhalt zu löschen, wird die Zelle verschoben (Excel VBA delete shift up).

    • Lösung: Stelle sicher, dass du Target.ClearContents im Code verwendest, um nur den Inhalt der Zelle zu löschen, anstatt die Zelle selbst zu löschen.

Alternative Methoden

Eine alternative Methode, um ein Datum in Excel einzufügen, ist die Verwendung von Formeln oder Datenvalidierung. Hier ist ein einfaches Beispiel:

  • Verwendung einer Formel: Du kannst auch die Funktion =WENN(C26="";HEUTE();C26) verwenden, um in Zelle C26 das aktuelle Datum anzuzeigen, wenn sie leer ist.

  • Datenvalidierung: Du kannst auch Datenvalidierung verwenden, um sicherzustellen, dass nur gültige Datumswerte eingegeben werden.

Praktische Beispiele

Um die Funktionalität zu demonstrieren, kannst du verschiedene Monatsblätter erstellen. In jedem Blatt kannst du den oben genannten VBA-Code einfügen, um das Datum in C26 einzufügen.

  • Beispiel 1: In dem Blatt „Januar“ kannst du C26 verwenden, um das Datum für den Monat Januar einzufügen.
  • Beispiel 2: In dem Blatt „Februar“ funktioniert dasselbe. Doppelklicke auf C26, um das Datum einzugeben oder zu löschen.

Tipps für Profis

  • Schnellzugriff auf den VBA-Editor: Du kannst den VBA-Editor auch schnell öffnen, indem du ALT + F11 drückst und dann die Tabulatoren für deine Module durchscrollst.

  • Kopiere den Code für andere Blätter: Wenn du mehrere Blätter hast, kannst du den Code einfach kopieren und in die anderen Blätter einfügen, um dieselbe Funktionalität zu erhalten.

  • Nutze Kommentare im Code: Kommentiere deinen Code, um zukünftige Änderungen zu erleichtern. Füge dazu ‘ Kommentartext ein.

FAQ: Häufige Fragen

1. Frage
Wie füge ich das Datum in eine andere Zelle ein?
Antwort: Ändere einfach die Adresse "$C$26" im Code zu der gewünschten Zelle, z.B. "$D$10".

2. Frage
Kann ich den Code auch in Excel Online verwenden?
Antwort: Leider ist VBA nicht in Excel Online verfügbar. Du musst die Desktop-Version von Excel verwenden, um diesen Code zu implementieren.

3. Frage
Wie kann ich den Doppelklick deaktivieren?
Antwort: Du kannst die Worksheet_BeforeDoubleClick-Subroutine anpassen, um das Doppelklicken zu deaktivieren, indem du einfach Cancel = True am Anfang des Codes hinzufügst.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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