Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
520to524
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
520to524
520to524
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Automatisches Datum/Uhrzeit

Automatisches Datum/Uhrzeit
19.11.2004 11:59:07
Frank
Hallo,
ich habe folgendes Problem:
in einer Arbeitszeiterfassung möchte ich sehen, wann Daten geändert/eingegeben werden.
Dazu habe ich folgendes Script leider nur für eine Spalte gefunden:

Private Sub Worksheet_Activate()
End Sub


Private Sub Worksheet_Change(ByVal Target As Range)
Set isect = Application.Intersect(Target, Range("D4:D1000"))
If isect Is Nothing Then
Exit Sub
Else
With Target.Cells(1).Offset(0, 9)
.Value = Format(Now, "dd/ mmm yy  hh:mm")
End With
End If
End Sub

Die selbe Funktion sollte aber auch für die Spalte "E" und "F" Anwendung finden.
Wie müsste dann das Script aussehen.
Danke schon im Voraus.
Gruß
Frank

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Automatisches Datum/Uhrzeit
19.11.2004 12:23:58
Siegfried
Hallo Frank!

Private Sub Worksheet_Change(ByVal Target As Range)
Set isect = Application.Intersect(Target, Range("D4:F1000"))
If isect Is Nothing Then
Exit Sub
Else
With Target.Cells(1).Offset(0, 9)
.Value = Format(Now, "dd/ mmm yy  hh:mm")
End With
End If
End Sub

Grüße Siegfried
AW: Automatisches Datum/Uhrzeit
Frank
Hallo Siegfried,
danke für deine (funktionierende) und schnelle Antwort.
Frank
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige