Hallo und Danke...........ich hab es "geschnallt".

Hier der Code nach vielen Versuchen:

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

Danke nochmal