Zeitstempel in anderes Arbeitsblatt

Bild

Betrifft: Zeitstempel in anderes Arbeitsblatt
von: Sven
Geschrieben am: 20.11.2015 23:22:41

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

Bild

Betrifft: AW: Zeitstempel in anderes Arbeitsblatt
von: Matthias
Geschrieben am: 20.11.2015 23:54:36
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

Bild

Betrifft: AW: Zeitstempel in anderes Arbeitsblatt
von: Matthias
Geschrieben am: 21.11.2015 00:02:40
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

Bild

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

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Zeitstempel in anderes Arbeitsblatt"