Sub abgrenzung_erstellen()
ActiveSheet.Unprotect
ActiveSheet.Copy Before:=Sheets(2)
Range("B7").Select
ActiveSheet.Shapes("Button 4").Select
Range("A7").Select
ActiveSheet.Shapes("Button 4").Select
Selection.Delete
ActiveSheet.Shapes("Button 3").Select
Selection.Delete
ActiveSheet.Shapes("Button 1").Select
Selection.Delete
ActiveSheet.Name = "Abgrenzung " & Cells(6, 2).Value
Range("B6").Select
ActiveCell.FormulaR1C1 = ActiveSheet.Name
With Selection.Font
.Name = "Arial"
.Size = 8
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
ActiveSheet.Shapes("Button 5").Select
Selection.OnAction = "Abgrenzung_speichern" Hier mit diesem Button soll ein Code mit Namen _
Beispiel bei drücken starten
Selection.Characters.Text = "Abgrenzung speichern"
With Selection.Characters(start:=1, Length:=20).Font
.Name = "Arial"
.FontStyle = "Standard"
.Size = 4
End With
Range("B11").Select
ActiveSheet.Protect
End Sub
Sub Makro1()
Dim Neuer_Button As Object
Set Neuer_Button = ActiveSheet.Buttons.Add(10, 10, 140, 72)
With Neuer_Button
.Caption = "Abgrenzung_speichern"
.Top = Range("B6").Top + 4
.Left = Range("B6").Left + 4
With .Characters(Start:=1, Length:=20).Font
.Name = "Arial"
.FontStyle = "Standard"
.Size = 10
End With
.OnAction = "Modul1.Beispiel"
End With
End Sub