Folgende Ausgangssituation. Wenn ich in der Spalte F einen Wert eingebe, habe ich hinterlegt, dass eine UserForm aufgerufen wird. Dort habe ich einen CommandButton hinterlegt, der folgenden Code beinhaltet:
Code:
Private Sub CommandButton1_Click()
ActiveCell.Value = Date
Unload Me
End Sub
Nun ist es so, dass wenn ich einen Wert in der Spalte F eingebe (z.B. F150) und mit Tab drüberspringe, dass das heutige Datum in der gleichen Zeile, in der Spalte G (also G150) hingeschrieben wird. Nun kann es aber sein, dass ich nicht mit Tab drüberspringe sondern mal die Enter Taste drücke. Dann wird mir nicht das Datum in die Spalte G geschrieben, sondern in die Spalte F (also F151), was er nicht machen soll. Er soll mir immer in die Spalte G in der gleichen Zeile, wo ich eine Eingabe getätigt habe, das heutige Datum hinschreiben.
16.04.2021, 09:23 (Dieser Beitrag wurde zuletzt bearbeitet: 16.04.2021, 09:27 von Klaus-Dieter.)
Hallo Thomas,
zunächst einmal finde ich die Verwendung einer Schaltfläche für diesen Zweck eher suboptimal. So etwas löst man mit einer Ereignisprozedur. Statt ActiveCell kann man auch einen festen Spaltenbezug definieren. Hallo,
dieser Einzeiler im Modul des Tabellenblattes bewirkt das.
Code:
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 6 Then Cells(Target.Row, 7) = Date End Sub
Viele Grüße Klaus-Dieter Der Erfolg hat viele Väter, der Misserfolg ist ein Waisenkind Richard Cobden
Danke für die rasche Antwort. Und wenn ich es doch über eine Schaltfläche lösen will? Ich habe nämlich nicht nur eine Schaltfläche, sondern mehrere, darum müsste ich es so verwenden. Jede Schaltfläche führt eine andere Aktion aus. Wenn ich nur eine Schaltfläche hätte, gebe ich dir recht, wäre der von dir genannte Lösungsvorschlag natürlich der Beste.
Ich hoffe, dass du mir trotzdem nochmals helfen kannst.
Wie gesagt hätte ich gerne, dass wenn ich z.B. in der Zelle F658 "j" eingebe und entweder die Enter Taste bzw. mit Tab drüberspringe, dass mir dann in der Zelle G658 das heutige Datum hingeschrieben wird, wenn ich den Button "heute" drücke.
Danke sehr, du hast mir sehr geholfen. Ich habe mir die Lösung eigentlich viel komplizierter vorgestellt. Ich habe nämlich es nämlich unter "Private Sub CommandButton1_Click()" mit Target usw. probiert, aber da kamen immer Fehlermeldungen. Kann es sein, dass Target unter "Private Sub CommandButton1_Click()" nicht funktioniert?
Wert soll immer in bestimmte Spalte geschrieben werden
