Office: CommandButton in Zeile erzeugen

Hi!

Ich habe folgendes Problem:

Ich habe eine Tabelle in der ich einen Commandbutton haben. Wenn ich diesen betätige, wird eine neue Zeile erstellt. Nun will ich aber auch via VBA einen CommandButton in eben dieser zeile erstellen.

Ist das mit VBA möglich? Wenn ja, wie?

Mit freundlichem Gruß
Peter Bornemann

 

Update

Ich habe es mittlerweile hinbekommen, den Button in der Zeile zu erstellen.

Hier ist mein Code für den CommandButton:

Code:

Private Sub CommandButton1_Click()
    Dim i As Long
    Dim temp As Long
    
    i = Cells(Rows.Count, 1).End(xlUp).Row
    Do Until Cells(i, 1) = "4"
    i = i - 1
    Loop
    temp = i + 1
    
    Rows(temp).Insert (xlShiftDown)
    
    Range("B" & temp).Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="105.xls", TextToDisplay:="LINK"
    Selection.Font.ColorIndex = 0
    Selection.Font.Underline = xlUnderlineStyleNone
    
    Set a = Range("A" & temp)
    
    With ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False, _
        DisplayAsIcon:=False, Left:=a.Left + 50, Top:=a.Top, Width:=10, _
        Height:=10).Object
    End With

End Sub

Allerdings wird sowohl der Link zu der Datei, als auch der neue Button nur bei jedem zweiten Ausführen des Buttons erzeugt! Kann mir da jemand helfen? Ich habe die Datei mal angehangen!

 

Update 2

Ich habe festgestellt, dass er im zweiten Durchlauf immer bei

Code:

Rows(temp).Insert (xlShiftDown) 

den Durchlauf beendet.

Kann sich einer von Euch vorstellen, woran das liegt?