Option Explicit
Sub DoIt()
Dim blatt1 As String
Dim blatt2 As String
Dim blatt3 As String
Dim blatt4 As String
Dim anz As Integer, n As Integer
Dim a As Long, lr2 As Long
Dim Button As OLEObject
Dim bezButton As String
blatt1 = "Tabelle1"
blatt2 = "Tabelle2"
blatt3 = "Tabelle3"
blatt4 = "Tabelle4"
anz = 3
a = 10
lr2 = 10
For n = Worksheets(blatt1).OLEObjects.Count To 2 Step -1
Worksheets(blatt1).OLEObjects(n).Delete
Next n
For n = 1 To anz
Set Button = Worksheets(blatt1).OLEObjects.Add(ClassType:="Forms.CommandButton.1")
bezButton = Worksheets(blatt2).Cells(lr2 - n, 1)
With Button
.Left = Worksheets(blatt4).Cells(12, 2 + a).Left
.Top = Worksheets(blatt4).Cells(12, 2 + a).Top
.Object.Caption = bezButton
End With
a = a + 2
Next n
End Sub