Datum durch VBA

Forumthread: Datum durch VBA
7 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Datum durch VBA

Datum durch VBA

05.08.2022 18:22:48

Gerry

Hallo, ich suche folgende VBA-Lösung.
Wenn ich einen Doppelklick auf Zelle A1 mache
soll das aktuelle Datum erscheinen.
Vielen Dank im voraus
Gruß
Gerry

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Datum durch VBA

05.08.2022 18:24:53

{Boris}
Tippfehler...

05.08.2022 18:26:29

{Boris}
AW: Datum durch VBA

05.08.2022 18:27:02

Nepumuk
Cancel = True natürlich!...

05.08.2022 18:36:32

{Boris}
AW: Cancel = True natürlich!...

05.08.2022 18:42:17

Nepumuk
Hab das Event verpeilt...

05.08.2022 18:57:35

{Boris}
AW: Datum durch VBA

05.08.2022 18:56:30

GerdL

AW: Datum durch VBA

05.08.2022 18:24:53

{Boris}

Hi,


If Target.Adress(0, 0) = "A1" Then
Application.EnableEvents = False
Target = Date
Application.EnableEvents = True
End If

Das Ganze in das Worksheet-Change-Ereignis des Tabellenblattes packen.
VG, Boris

Tippfehler...

05.08.2022 18:26:29

{Boris}

Hi,
Address natürlich mit 2 d:


If Target.Address(0, 0) = "A1" Then
Application.EnableEvents = False
Target = Date
Application.EnableEvents = True
End If

VG, Boris

AW: Datum durch VBA

05.08.2022 18:27:02

Nepumuk

Hallo Gerry,
Rechtsklick auf den Tabellenreiter - Code anzeigen. Folgende Prozedur einfügen:


Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$A$1" Then
Target.Value = Date
Cancel = True
End If
End Sub

Gruß
Nepumuk

Cancel = True natürlich!...

05.08.2022 18:36:32

{Boris}

...das kommt davon, wenn man "aus der Hand" schreibt ;-)
Aber die Events würd ich dennoch temporär ausschalten ;-)
VG, Boris

AW: Cancel = True natürlich!...

05.08.2022 18:42:17

Nepumuk

Hallo Boris,
wieso? ein Doppelklick kann nur per API simuliert werden. Also keine Angst, dass dieses Event durch Eintragen eines Wertes in die Tabelle initiiert wird.
Gruß
Max

Hab das Event verpeilt...

05.08.2022 18:57:35

{Boris}

Hi Max,
...ich war bei Change statt bei Doppelklick - und nach Deiner Antwort irgendwo aus einem Mix daraus ;-)
Hast natürlich - wie immer - völlig Recht!
VG, Boris

AW: Datum durch VBA

05.08.2022 18:56:30

GerdL

Hallo,
noch eine Variante:


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = (Target.Address = "$A$1")
If Cancel Then Target.Value = Date
End Sub

Gruß Gerd

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