makro mit fehler
12.02.2004 23:25:12
dirk
mit dem unten aufgeführten makro soll ein diagramm erstellt werden
und vorher soll geprüft werden ober sich die Daten erweitert haben
das heisst wenn mehr daten dazugekommen sind soll das diagramm diese mit einbeziehen !
leider geht das makro nicht
ich habe euch die zeile makiert wo die fehlermeldung auftaucht!
vielleicht kann mir jemand sagen was falsch ist?
liebe grüsse
dirk
Private Sub CommandButton1_Click()
Dim LetzteZeile
LetzteZeile = Sheets("Jahresumsatzstatistik").Range("A65536").End(xlUp).Row
----------Fehler----------
ActiveSheet.xl3DColumnClustered("Deckungsbeitrag-Diagramm").Chart.SetSourceData
Source:=Sheets("Jahresumsatzstatistik").Range("H3:H" & LetzteZeile)
' Makro4 Makro
' Makro am 12.02.2004 von Dirk aufgezeichnet
Charts.Add
ActiveChart.ChartType = xl3DColumnClustered
ActiveChart.SetSourceData Source:=Sheets("Jahresumsatzstatistik").Range( _
"H3:letzteZeile"), PlotBy:=xlColumns
ActiveChart.SeriesCollection(1).XValues = "=Jahresumsatzstatistik!R3C1:R12C1"
ActiveChart.Location Where:=xlLocationAsNewSheet, Name:= _
"Deckungsbeitrag-Diagramm"
ActiveChart.HasLegend = False
ActiveChart.HasDataTable = False
End Sub
Anzeige