Uhrzeit+Datum Komplizierte Mission

[Excel_Nooby]

Hallo liebe Excel Freunde !

Ich habe folgende Idee, schaffe es aber nicht diese umzusetzen. 
Und zwar, würde ich gerne eine Impftabelle erstellen, wer im Unternehmen bereits geimpft ist, wer nicht, wer getestet werden muss, wer nicht...usw....
Dazu gehören natürlich auch Daten wie aktuelles Datum und Uhrzeit, wann die Person getestet wurde.

Diesen Prozess würde ich gerne automatisieren (wenn dies überhaupt möglich ist :D). 
Also in der Spalte "A1-A100" runter, soll immer das Aktuelle Datum stehen und daneben in der Spalte "B1-B100" die Uhrzeit.

Klingt soweit ganz einfach oder? Nun die Probleme die ich habe.
Also die Uhr läuft ja immer weiter in der Tabelle ,ist es möglich, wenn ich eine neue Zeile anklicke, dass die Uhr stoppt? 
Z.b. wenn ich gerade eine Person teste um 9:20 Uhr z.B. dann fertig bin ,alles eintrage ,nächste Zeile -> Uhr stoppt -> neue aktuelle Uhrzeit läuft los, nächste Person wird getestet. 

Das zweite Problem ist, wenn ich die Liste abspeichere und neu öffne, tadaaaa, logisch kommt dann überall die neue aktuelle Uhrzeit und Datum. Kann man das so hinfuchsen^^ dass nach dem abspeichern das Datum und die Uhrzeit nicht mehr verändert werden, da anderen Zeilen die noch nicht ausgefüllt sind aber normal weiter aktualisieren? 

Ich hoffe ich konnte das einigermaßen verstädnlich erklären, aber vermute dass dies nicht so leicht oder wahrscheinlich gar nicht umsetzbar sein wird oder?!

Viele Grüße und bleibt gesund

[WillWissen]

Hallo.

eine Beispieldatei hilft beim Helfen.

Nun die Probleme die ich habe.

... und die du eventuell bekommen könntest: Stichwort Datenschutz

[StefanB]

Hallo,

vllt so? Siehe Anhang.
trägst Du in Spalte B etwas ein, egal was, wird die Zeit mit Datum in die entsprechende Zelle in Spalte C eingetragen. Um das nun "einzufrieren" drückst Du nacheinander F2,F9 und Enter. Das Ergebnis der Formel wird dann in einen festestehenden Text umgewandelt. Die Tastenkombi kannst Du auch auf einen Button legen (Marko)

[Klaus-Dieter]

Hallo,

sieh dir mal das Beispiel mit einer Ereignisprozedur an. Einfach in Spalte A klicken.

[Excel_Nooby]

Erstmal vielen ,vielen Dank für eure super schnelle Hilfe! War bestimmt nicht mein letztes mal hier in diesem super Forum!

Für mich hat am besten die Lösung von @klaus-Dieter gepasst! 

Nochmal Danke an Alle!

Bleibt Gesund

[Excel_Nooby]

Guten morgen an Alle!

Ich bins nochmal 

Mir ist noch eine Kleinigkeit eingefallen, vllt. hat da jemand noch eine Idee zu.
Und zwar, der Zeitstempel + Datum in Spalte A und B funktioniert mit einem Klick wunderbar, allerdings wäre es jetzt noch schön, das die Zellen (nur die Zwei einzelnen Zellen, nicht komplett A+B) gesperrt werden danach. Ist dies möglich?

Und zwar geht es darum, wenn man jetzt heute paar Kollegen testet ,mit Zeitstempel und Datum etc. ,dann speichert man die Tabelle ab und morgen teste ich dann weiter, klick ausversehen eine falsche Zellenreihe an und schon habe ich den neues Datum in A mit Zeit in B. 

Ich hoffe ich konnte das Verständlich erklären, falls Fragen sind immer her damit hehe 

Das einzige was ich an Code bis jetzt drin habe ist das von Klaus-Dieter: 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 1 Then
        Cells(Target.Row, 1) = Format(CDate(Now), "dd.mm.yyyy")
        Cells(Target.Row, 2) = Format(CDate(Now), "hh:mm")
    End If
End Sub


Danke euch im Voraus 

[Klaus-Dieter]

Hallo,

dann so:

Code:

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 1 And Target = "" Then
        Cells(Target.Row, 1) = Format(CDate(Now), "dd.mm.yyyy")
        Cells(Target.Row, 2) = Format(CDate(Now), "hh:mm")
    End If
End Sub

[Excel_Nooby]

Klaus-Dieter, Sie sind wirklich klasse! Wie schnell und kompetent Sie solche Dinge lösen können, eine riesen Bereicherung für dieses Forum. 

Kann nicht oft genug Danke sagen.

Bleiben Sie gesund! 

[Klaus-Dieter]

Haallo,

immer gerne. Übrigens: wir duzen uns hier.

[RPP63]

Moin und nur ergänzend!

Man braucht keine zwei Zeilen.
Klaus-Dieters Code:

Code:

        Cells(Target.Row, 1) = Format(CDate(Now), "dd.mm.yyyy")
        Cells(Target.Row, 2) = Format(CDate(Now), "hh:mm")

kann man auch so schreiben:

Code:

Target.Resize( ,2) = Split(Now)

Gruß Ralf