Guten Tag zusammen

Ich habe in einem Excelfile ein Button, welcher beim anklicken ein Makro starten soll und danach unsichtbar (und dadurch nicht erneut anklickbar) werden soll.

Im Makro werden zum Einen Daten aus Sheets in Sheet2 kopiert und zum anderen in Sheet1 von oben eine neue Zeile eingefügt inklusive neuem Button, der mit dem selben Makro verknüpft ist. 

Mein Problem ist, dass ich leider nur jeweils einen Knopf mit dem Makro unsichtbar/inaktivieren kann, da ich dazu den spezifischen Namen angeben muss. Gibt es eine Möglichkeit, das dynamisch zu machen, in einem Makro?

Besten Dank schon im Voraus

staeme

PS: So sieht bis jetzt mein Code aus.

Sub Schaltfläche1_Klicken()
'
' Schaltfläche1_Klicken Makro
'

'
    Rows("2:2").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("L2").Select
    
    ActiveSheet.Shapes("Schaltfläche 3").Visible = False
    
    Dim rng As Range
    Dim btn As Button
    With Worksheets("New Balance intern")
    Set rng = .Range("L2")
    Set btn = .Buttons.Add(rng.Left, rng.Top, rng.Width, rng.Height)
    
    With btn
    .OnAction = "Schaltfläche1_Klicken"
    .Characters.Text = "Übertragen"
    With .Characters(Start:=1, Length:=10).Font
        .Name = "Calibri"
        .FontStyle = "Standard"
        .Size = 11
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = 1
    End With
    End With
    End With
        
    
   ' ActiveSheet.Buttons.Add(727.5, 17.25, 42, 10.5).Select
   ' Selection.OnAction = "Schaltfläche1_Klicken"
    Sheets("New Balance").Select
    Rows("2:2").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Sheets("New Balance intern").Select
    Range("D3:G3").Select
    Selection.Copy
    Sheets("New Balance").Select
    Range("A2").Select
    ActiveSheet.Paste
    Sheets("New Balance intern").Select
        
    'Dim b1 As Button
    'Set b1 = ActiveSheet.Buttons("Schalfläche1")
    'b1.Visible = False
    'CommandButton("Schaltfläche1").Visible = False
    
End Sub