Automatischer Click
15.08.2023 08:49:12
chris58
Ich bitte wider mal um Hilfe.
Kann man diesen Code automatisch ablaufen lassen, ohne das man auf den Button klickt ?
Ich habe eine Userform1 darauf sind 4 Buttons. Ich möchte, wenn es geht, den Button automatisch befüllen, also nicht mit Klick auf den Button3 - geht das einfach.
Danke für die Hilfe
chris58
Hier der Code, der dem Button in Userform1 hinterlegt ist:
Private Sub CommandButton3_Click()
Dim StartZeile&
Dim Ws As Worksheet
Set Ws = ActiveSheet
StartZeile = Ws.Cells(3, 1).End(xlUp).Row + 5
TextBox1 = Int(Ws.Cells(StartZeile, 3) / 1000)
UserForm1.TextBox1.SetFocus
Ws.Cells(StartZeile + 1, 3) = TextBox3
End Sub