![](https://images.gutefrage.net/media/default/user/13_nmmslarge.png?v=1551279448000)
![](https://images.gutefrage.net/media/user/adi120369/1663313852529_nmmslarge__0_0_546_546_b978b1be03bde6ae27a2e2be8bf5b30b.jpg?v=1663313853000)
Als Quick &/ Dirty Lösung einfach statt dem Rückgabewert der Inputbox, den verweis auf das Zahlenfeld. Die Datentypen würde ich auch sauberer machen - aber so wirds gehen... (- ohne den Sinn dieser Routine zu hinterfragen)
Private Sub Befehl36_Click()
Dim lngI As Long
Dim lngIMax As Long
Dim strEingabe As String
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdCopy
strEingabe = [Feldname]
'Benutzereingabe wurde abgebrochen
If StrPtr(strEingabe) = 0 Then Exit Sub
lngIMax = Val(strEingabe) - 1
For lngI = 1 To lngIMax
DoCmd.RunCommand acCmdPasteAppend
Next lngI
End Sub