Ich habe einen Code, per Recorder erstellt, in dem ich einen Button auf meinem Arbeitsblatt erstellt lasse, der jetzt ein bestimmten Code bein Button drücken starten soll. Ich komme leider jetzt nicht weiter.
Hat jemand da einen Tipp?
Gruss Volker
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
Gruß Gerd