Zelleingabe zum Aufrufen des Makros in der benachbarten Zelle

Problem

Ich habe ein Szenario, das ich automatisieren möchte. Das Szenario ist wie folgt

Wenn ich einen Wert in irgendeine Zelle in einer bestimmten Spalte eingebe, möchte ich, dass die Systemzeit in die benachbarte Zelle eingegeben wird. Derzeit habe ich diesen Befehl in einem Makro verwendet, um es zu tun, aber es ist ein manueller Prozess (ActiveCell.Value = Time) und ich muss auf die benachbarte Zelle klicken und dann die Tastenkombinationen drücken, um es jedes Mal zu tun.

Beispiel:

Wenn ich 123 in Zelle A2 eingebe, dann möchte ich, dass die Systemzeit (zB 18:59:33) in Zelle B2 erfasst wird. Ich möchte weiterhin Werte in die Spalte 'A' untereinander eingeben, wobei die Systemzeit automatisch sekundengenau in die entsprechende benachbarte Zelle in Spalte 'B' eingegeben wird. Ist das möglich, wäre es super, wenn mir jemand helfen könnte.

Lösung

Implementieren Sie diesen Code auf dem Arbeitsblatt, auf dem Sie arbeiten möchten (klicken Sie mit der rechten Maustaste auf die Registerkarte Arbeitsblatt, klicken Sie auf Code anzeigen):

 Private Sub Worksheet_Change (ByVal-Ziel als Bereich) ActiveCell.Offset (-1, 1) = Time End Sub 

Wann immer Sie etwas in eine Zelle einfügen und die EINGABETASTE drücken, wird die aktuelle Systemzeit in die benachbarte Zelle rechts eingefügt.

Hinweis

HINWEIS: Sie müssen Ihre Eingabe mit ENTER bestätigen und dürfen weder die Pfeile noch die Tabulatortaste verwenden.

Danke an Trowa für diesen Tipp im Forum.