Private Sub Eingabe01_Click()
ActiveCell.Value = 1
Application.Goto Selection.Offset(1, 0)
End Sub
CommandButton
Private Sub UserForm_Initialize()
PositionenEingabe.Text_Was_7 = ActiveCell(1, -0).Text
PositionenEingabe.Text_Betrag_8 = ActiveCell(1, 3).Text
Initialize