- #1
K
K!nG OhLe
Aktives Mitglied
Themenersteller
- Dabei seit
- 16.05.2005
- Beiträge
- 28
- Reaktionspunkte
- 0
- Ort
- Laubsdorf
HuHu,
also ich habe folgende Frage und zwar möchte ich ein ClickButton per Makro erstellen, der dann ein Diagramm aufruft
Mhm mein Diagramm geht auch noch nicht so richtig... wenn ich es ausführen möchte, dann erhalte ich den Laufzeitfehler 1004 Anwendungs- oder Objektdefinierter Fehler
Code für das Diagrammmakro, vielleicht kann mal jemand nen Blick drüber werfen
Vielen Dank
also ich habe folgende Frage und zwar möchte ich ein ClickButton per Makro erstellen, der dann ein Diagramm aufruft
Mhm mein Diagramm geht auch noch nicht so richtig... wenn ich es ausführen möchte, dann erhalte ich den Laufzeitfehler 1004 Anwendungs- oder Objektdefinierter Fehler
Code für das Diagrammmakro, vielleicht kann mal jemand nen Blick drüber werfen
Code:
Sub Kostendiagramm()
Dim chtNeu As Chart
Set chtNeu = ActiveWorkbook.Charts.Add
With chtNeu
.ChartType = xl3DColumnClustered
.SetSourceData _
Source:=ActiveWorkbook.Worksheets(Kostenberechnung) _
.Range(F33;F54;F105;F140;F163;F181;F206), PlotBy:=xlColumns
.Location Where:=xlLocationAsObject, _
Name:=Kostenberechnung
End With
With ActiveWorkbook.ActiveChart
.HasDataTable = False
.SeriesCollection(1).XValues = _
Worksheets(Kostenberechnung).Range(A23;A38;A57;A116;A146;A172;A187;)
.ApplyCustomType ChartType:=xl3DColumnClustered
.HasTitle = True
.ChartTitle.Characters.Text = _
Graphische Aufteilung der Kosten
End With
End Sub
Vielen Dank