Sub Schaltfläche1_Klicken()
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
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
End Sub