Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1456to1460
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

Zeitstempel in anderes Arbeitsblatt

Zeitstempel in anderes Arbeitsblatt
20.11.2015 23:22:41
Sven
Hallo,
Ich arbeite mit folgendem Code für einen Zeitstempel.
If Not Intersect(Target, Range("C:C")) Is Nothing Then
clearCell = False
With Target
Select Case .Value
Case "1"
.Offset(0, 1).Value = Format(Now, "hh:mm")
clearCell = True
End Select
If clearCell Then .Value = ""
End With
End If
habe schon einige änderungen ausprobiert damit der Zeitstrempel in einem separaten Arbeitsblatt gesetzt wird, aber es funktioniert nicht.
Ich hoffe ihr könnt mir helfen (wie schon so oft)
LG Sven

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeitstempel in anderes Arbeitsblatt
20.11.2015 23:54:36
Matthias
Hallo Sven,
wenn du es in ein anderes Tabellenblatt haben möchtest, dann musst du das vor dem Offset angeben:
If Not Intersect(Target, Range("C:C")) Is Nothing Then
clearCell = False
With Target
Select Case .Value
Case "1"
Sheets("Tabelle2").Range(Target.Address).Offset(0, 1).Value = Format(Now, "hh:mm")
clearCell = True
End Select
If clearCell Then .Value = ""
End With
End If
Den zweiten Wert des Offsets kannst du dann ja anpassen, es muss ja nicht zwingend Spalte D sein.
lg Matthias

AW: Zeitstempel in anderes Arbeitsblatt
21.11.2015 00:02:40
Matthias
Kleine Anmerkung noch:
Dein Code wird einen Fehler bringen wenn du mehr als eine Zelle änderst, indem du z.B eine komplette Zeile leerst, oder ähnliches.
Daher sollte man sein Change-Event eher so anlegen:
If Not Intersect(Target, Range("C:C")) Is Nothing Then
For Each Zelle In Intersect(Target, Range("C:C"))
'... dein Code für jede Zelle
Next Zelle
End If
Konkret für dein Beispiel sähe dass dann so aus:

Dim Zelle As Range
If Not Intersect(Target, Range("C:C")) Is Nothing Then
For Each Zelle In Intersect(Target, Range("C:C"))
clearCell = False
With Zelle
Select Case .Value
Case 1
Sheets("Tabelle2").Range(Zelle.Address).Offset(0, 1).Value = Format(Now, "hh:mm")
clearCell = True
End Select
If clearCell Then .Value = ""
End With
Next Zelle
End If
lg Matthias

Anzeige
AW: Zeitstempel in anderes Arbeitsblatt
21.11.2015 00:21:44
Sven
Hi Matthias,
klappt Wunderbar...
Vielen lieben Dank
Gruß
Sven

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige