Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 19:22:16
Von exceltabelle in word per steuerelement temarker
16.04.2024 18:50:53
Fehlermeldung bei Code - Excel speichern mit Bez. aus Zelle
16.04.2024 17:18:01
Projektplan-Tabelle oder Gantt ohne Balken
16.04.2024 17:05:25
formatierten Text direkt in Zelle einfügen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
416to420
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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é


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

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2