Mein gedachter Ablauf wäre nun, dass ich eine TextBox auswähle und anschließend den Button betätige, sodass dann hier ein Zeitstempel eingetragen wird.
Hoffe ihr habt eine Idee, danke und schönen Sonntag
Option Explicit
Private Sub CommandButton1_Click()
Controls(CommandButton1.Tag) = Date
End Sub
Private Sub TextBox2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As _
Single, ByVal Y As Single)
CommandButton1.Tag = "Textbox2"
End Sub
Private Sub TextBox2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As _
Single, ByVal Y As Single)
CommandButton1.Tag = ActiveControl.Name
End Sub
Gruß Hajo