Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1848to1852
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
Inhaltsverzeichnis

VBA Datum mit User

VBA Datum mit User
21.09.2021 10:59:36
Dieter
Hallo zusammen,
mit diesem Code klicke ich doppelklick anschließend kommt der MA in Spalte A jetzt möchte ich das gleichzeitig das heutige Datum in B erscheint.
Kann mir jemand helfen ?
BEsten Dank

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim myRng As Range
Set myRng = Range("a3:a9700")
If Not Intersect(Target, myRng) Is Nothing Then
Target.Value = Application.UserName
End If
End Sub

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Datum mit User
21.09.2021 11:02:02
Oberschlumpf
Hi Dieter
unterhalb von deiner Target-Zeile das hier:

Range("B" & Target.Row).Value = Date
Hilfts?
Ciao
Thorsten
AW: VBA Datum mit User
21.09.2021 11:20:48
Dieter
Dankeschön an alle
AW: VBA Datum mit User
21.09.2021 11:03:09
UweD

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim myRng As Range
Set myRng = Range("a3:a9700")
If Not Intersect(Target, myRng) Is Nothing Then
Cancel = True
Target.Value = Application.UserName
' oder  Anmeldename am System Target = Environ("Username")
Target.Offset(0, 1) = Date
End If
End Sub
LG UweD
AW: VBA Datum mit User
21.09.2021 11:41:53
GerdL
Noch einer.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = Not Intersect(Target, Range("A3:A9700")) Is Nothing
If Cancel Then Target.Resize(1, 2) = Array(Application.UserName, Date)
End Sub
Gruß Gerd
Anzeige

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige