Office: Schaltfläche erstellen und mit Makro belegen

hallo,

folgendes Problem. ich möchte über eine Schaltfläche ein Diagramm erstellen, wodurch ich dies mit einem Makro belegen möchte. nun hab ich das mit makro aufzeichnen probiert, jedoch kommt die Fehlermeldung, dass die Formel angeblich zu komplex ist. warum auch immer....
das hier ist mein programmcode. leider funktioniert der nicht wie er soll. wie müsste es denn richtig lauten?

'Diagramm Schaltfläche erstellen

ActiveSheet.Buttons.Add(1, 86.5, 136.5, 30).Select
Selection.OnAction = "Test4"
Selection.Characters.Text = "Diagramm hinzufügen"
Range("A10").Select
ActiveSheet.Shapes.Range(Array("Button 1")).Select
Selection.OnAction = "Diagrammhinzufügen"

End Sub



Sub Diagrammhinzufügen()

Range("B1:B5").Select
ActiveSheet.Shapes.AddChart2(201, xlColumnClustered).Select
ActiveChart.SetSourceData Source:=Range("Tabelle1!$B$1:$B$5")

End Sub

:)

 

Hi,

ich habe deine beiden Makros gerade getestet und erhalte keine Fehlermeldung.


Aber mal ganz davon abgesehen, kann man in VBA zu 99% aller Fälle auf Select und Activate verzichten:

Code:

 

Hallo,

so besser?

Public Sub Button_einfügen()
Dim objButton As Button
Set objButton = ActiveSheet.Buttons.Add(1, 86.5, 136.5, 30)
With objButton
.OnAction = "Diagrammhinzufügen"
.Characters.Text = "Diagramm hinzufügen"
End With
Set objButton = Nothing
End Sub

 

\@Beverly: ich meinte ja auch, wenn ich versuche, das Makro mit "Makro aufzeichnen" zu erstellen, bekomme ich ne Fehlermeldung.

@Nepomuk: danke, das ist ganz gut so, nur bekomme ich noch die Meldung Laufzeitfehler1004 - Die Methode Range für das Objekt Global ist fehlgeschlagen.

Beim Debuggen wird beim zweiten Makro die dritte komplette Zeile eingefärbt. wie bekomm ich die Meldung weg?

 

hat sich erledigt, es lag am Tabellennamen. danke sehr *Smilie