Doppelklick, 2 Zellen nach rechts, aktuelle Uhrzeit rein

Hallo Dieter
an deinem Code sind zwei Dinge richtig:
- das gewählte Eventmakro
- das Offset
alles andere ist grottenfalsch.

zum einen solltest du inzwischen wissen, dass man Befehle direkt an eine Zellreferenz anhängt, ohne diese vorher zu selektieren oder aktiveren. Du bist jetzt lang genug in Excelforen aktiv um das irgendwie mitbekommen zu haben.

Und wenn du in der Aufgabe schreibst, dass du das Datum haben möchtest und dann im Code TIME (also Uhrzeit) steht, dann fragt man sich schon, was so zwischen deinen Ohren passiert, wenn du den Code schreibst, spätestens wenn du ihn nach dem Schreiben nochmal liest, sollte das bei dir irgendeine Reaktion auslösen, die was mit "da passt was nicht" zu tun hat.
und nein, das hat nichts mit VBA-Wissen und Programmierkönnen zu tun, sondern mehr mit gesundem Menschenverstand und die Bereitschaft, diesen auch mal einzusetzen.

was mal vollständig fehlt, ist die Abfrage auf den Zellbereich.

nächster Fehler ist, dass du die ActiveCell verwendest, obwohl dir doch das Event mit TARGET die angeklickte Zelle in einer Variablen zur Verfügung stellt

zwar nicht grundlegend falsch, aber unsinnig ist es, einen Wert in einen Text zu wandeln und dann den Text in die Zelle zu schreiben. wenn diese dann den Text wieder in den Wert wandeln soll. das ist nicht notwendig und ein Fehler kann dann passieren, wenn die Textumwandlung dir den deutschen Text liefert, VBA aber an dieser Stelle länderunabhängig immer die amerikanische Schreibweise erfordert (betroffen wären hier Dezimalzahlen und Datumswerte)
Eine sinnvolle Anwendung wäre, wenn du den Zeitwert, den das System liefert, um die Sekunden bereinigen willst und nur ganze Minuten benötigst. Dann wäre der Weg Format(Time, "hh:mm") eine einfache Lösung für diese Aufgabe.

damit wäre jetzt beantwortet, was an deinem Code alles falsch ist.
hier jetzt eine Möglichkeit, wie es besser geht.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

if not intersect(Range("A7:A20"), Target) is nothing then  'Doppelklick im Zellen, Zellbereich A7:A20

  target.Offset(0, 2).value = Date

end if

End Sub

Gruß Daniel

ja, ich weiß dass du 80 bist.
aber du bist jetzt auch schon so lange aktiv dabei, dass du das wissen müsstest.
sieh es mal als indirektes Lob.
Du hast dich ja inzwischen vom tatsächlich unbedarften Fragesteller, dem man wirklich viel und ausführlich erklären musste, soweit weiterentwickelt, dass du inzwischen selbst versuchst, anderen zu Helfen und Fragen zu beantworten.
einen Sprung vom Fragesteller zum aktiven Helfer machen nicht viele, das ist schon mal super.
Aber gerade deswegen sind solche "Stockfehler" ärgerlich. Und wie geistig alt muss man sein, um "Zeit" und "Datum" nicht mehr auseinander halten zu können?

und bist du nicht auch aus einer Generation, die mit dem Spruch "leichte Schläge auf den Hinterkopf erhöhen das Denkvermögen" groß geworden ist?
sie es mal als solche in Verbalform an.
außerdem hoffe ich, dass eine leichte emotionale Aufwallung dabei behilflich ist, dass du dir das ganze besser merkst.

Gruß Daniel

Doppelklick, 2 Zellen nach rechts, aktuelle Uhrzeit rein

Forumthread: Doppelklick, 2 Zellen nach rechts, aktuelle Uhrzeit rein

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Doppelklick, 2 Zellen nach rechts, aktuelle Uhrzeit rein

Forumthread: Doppelklick, 2 Zellen nach rechts, aktuelle Uhrzeit rein

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread