Zeit in Zelle einfügen

Question

Ein freundliches Hallo

Ich habe ein Problem und komme nicht klar da ich Neuling bin.
Ich habe eine KFZ - Erfassungstabelle erstellt.
In die Spalte C4.... schreibe ich die KFZ-Nummern wobei in Spalte B4.... die dazugehörige Firma erscheint.
Jetzt wollte ich das beim schreiben in C4...., in F4.... automatisch die Uhrzeit angezeigt wird. Ich habe es mit [ =WENN(ISTTEXT(C4);JETZT;"") ] versucht wobei mir dann die gesammte Spalte F aktualisiert wird.Das soll aber nicht so sein sondern der eingetragene Zeitwert sollte in den Zellen erhalten bleiben. Dann habe ich mir folgendes Makro besorgt :

Private Sub Worksheet_Change(ByVal Target As Range)
Set Target = Intersect(Target, Range("C:C"))
If Target Is Nothing Then Exit Sub
Target.Offset(0, 3).Value = Format(Now, "hh:mm:ss")
End Sub

Leider kriege ich nur Fehlermeldungen wegen falschem Namen bzw Fehler mit ListenTrennzeichen.

und wie kann ich das in die Tabelle einbinden, das bei einem Eintrag in C4 in F4 die aktuelle Zeit erscheint.

für Hilfe bin ich überaus dankbar.
Danke im voraus
Sven

Answer 1

Hallo Sven,

mit dem Code wird in Spalte F eine Zeit eingetragen falls in Spalte C wwas eingegeben wird.
Du hast den Code schon unter der Tabelle, nicht Modul?

Gruß hajo

Answer 2

Hallo Sven,

probier's mal so

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C:C")) Is Nothing Then
With Target.Offset(0, 3)
.NumberFormat = "hh:mm:ss"
.Value = Time
End With
End If
End Sub

Gruß
Rainer

Answer 3

Ein freundliches Hallo

Als erstes einmal recht herzlichen Dank für die schnelle Hilfe.
Die Ratschläge sind hervorragend und funktionieren sehr gut.

Ich habe aber jetzt noch zwei Problemchen.
Das erste ist, das die Zeit in F, wenn ich die Zelle C lösche, stehen bleibt. Sollte aber sobald ich die Zelle C gelöscht habe mit verschwinden.

Das zweite ist, wie kann ich es anstellen wenn ich über die Suchfunktion Strg + F ein Kennzeichen suche,mir das mit einem Farbigen statt einem Weißen Ramen angezeigt wird.

vielen Dank im Voraus für die Hilfe.
Sven

Answer 4

Hallo sven,

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Set Target = Intersect(Target, Range("C:C"))
If Not Target Is Nothing Then
If Target <> "" Then
Target.Offset(0, 3).Value = Format(Now, "hh:mm:ss")
Else
Target.Offset(0, 3).Value = ""
End If
End If
End Sub

Gruß Hajo