Laufzeitfehler bei Range
25.10.2004 09:42:54
Horst
habe ein diagramm per makro erstellt, und will den range bereich variabel halten, an der Stelle Fehler: bringt er mir einen laufzeitfehler 1004: die methode cells ist für das objekt global fehlgeschlagen!
-------------------
Sub Diagramme_Erstellen()
Dim lZeile, lZeile1, lzeile2
lZeile = Sheets("Daten").Cells(Rows.Count, 1).End(xlUp).Row
lZeile1 = Sheets("Daten").Cells(Rows.Count, 2).End(xlUp).Row
lzeile2 = Sheets("Daten").Cells(Rows.Count, 12).End(xlUp).Row
Range(Cells(lZeile + 8, 13), Cells(lzeile2, 14)).Select
Charts.Add
ActiveChart.ApplyCustomType ChartType:=xlBuiltIn, TypeName:= _
"Linie - Säule auf zwei Achsen"
Fehler: ActiveChart.SetSourceData Source:=Sheets("Daten").Range(Cells(lZeile + 8, 13), Cells(lzeile2, 14)), PlotBy:=xlColumns
ActiveChart.SeriesCollection(1).XValues = Range(Cells(lZeile + 8, 12), Cells(lzeile2, 12))
ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="Anzahl_KTR"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Anzahl / Kostenträger"
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "KTR"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Anzahl"
.Axes(xlCategory, xlSecondary).HasTitle = False
.Axes(xlValue, xlSecondary).HasTitle = False
End With
ActiveChart.HasLegend = False
End Sub
---------------
bin für jede hilfe sehr dankbar!
mfg horst