Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
380to384
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
380to384
380to384
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

makro mit fehler

makro mit fehler
12.02.2004 22:25:12
dirk
Hallo Excelperten
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige