Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Cells in Range - Error1004

Forumthread: Cells in Range - Error1004

Cells in Range - Error1004
14.12.2006 14:55:39
Christian
Hallo,
warum bekomme ich denn hier die DebugerMeldung mit Laufzteitfehler1004
die "Methode Range für das Objekt 'Global ist fehlgeschlagen".
Die Cells-Methode in Range verschachtelt scheint zu wirken da die richtigen
Werte angezeigt werden, wenn ich mit der Maus drüber gehe!?
Danke Christian

Sub UtilityCharts()
Dim LastColumn
Sheets(1).Activate
Range("A102").Select
LastColumn = Range("A103").End(xlToRight).Column
For i = 103 To 185 Step 5
Charts.Add
ActiveChart.ChartType = xl3DColumnClustered
ActiveChart.SetSourceData Source:=Sheets(1).Range(Cells(i, 1), _
Cells(i + 4, LastColumn)), PlotBy:=xlColumns
usw..
next i
End Sub

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Cells in Range - Error1004
14.12.2006 14:57:53
Kurt Isane
Hi,
With Sheets(1)
ActiveChart.SetSourceData Source:=.Range(.Cells(i, 1), .Cells(i + 4, LastColumn)), PlotBy:=xlColumns
End With
mfg Kurt
AW: Cells in Range - Error1004
14.12.2006 16:01:00
Christian
Hallo Kurt,
danke für den Tip, jetzt bekomme ich
aber einn "Laufzeitfehler 438 - Objekt unterstützt diese Eigenschaft,
oder Methode nicht".
Ich versuche bereits mit der Hilfe es zu verstehen.
Danke, Christian
Anzeige
AW: Cells in Range - Error1004
14.12.2006 18:31:21
Kurt Isane
Hi,
versuchs mal so (ungetestet):
With Sheets(1)
ActiveChart.SetSourceData Source:=.Range(.Cells(i, 1), .Cells(i + 4, LastColumn)).Address, PlotBy:=xlColumns
End With
mfg Kurt
AW: Cells in Range - Error1004
14.12.2006 19:48:49
Christian
Hallo,
leider keine Änderung, auch mein neuer Ansatz über
Collections funktioniert nicht und hängt bei
.Values = Sht.Range(Sht.Cells(103, 1), Sht.Cells(wert, LastColumn))
mit Laufzeitfehler 91, Objetktvariable oder With Blockvariable nicht festgelegt.
Danke & Gruß
Christian

Sub DynamicCharts()
Dim ChtObj As ChartObject
Dim ChtTop As Long, ChtLeft As Long
Dim ChtHeight As Long, ChtWidth As Long
Dim Sht As Worksheet
Dim LastColumn
Dim wert
ChtTop = 1
ChtLeft = 1
ChtHeight = 180
ChtWidth = 300
Application.ScreenUpdating = False
For i = 103 To 185 Step 5
wert = i + 3
LastColumn = Range("A103").End(xlToRight).Column
Set ChtObj = ActiveSheet.ChartObjects.Add(ChtLeft, ChtTop, ChtWidth, ChtHeight)
ChtObj.Chart.SeriesCollection.NewSeries
With ChtObj.Chart.SeriesCollection(1)
.Values = Sht.Range(Sht.Cells(103, 1), Sht.Cells(wert, LastColumn))
.XValues = Sht.Range(Sht.Cells(102, 2), Sht.Cells(102, LastColumn))
.InteriorColorIndex = 3
End With
With ChtObj.Chart
'Specify Chart type
.ChartType = xl3DColumnClustered
'Adjust the gap width
.ChartGroups(1).GapWidth = 20
'Set font size
.ChartArea.Font.Size = 9
'Add Title
.HasLegend = True
.HasTitle = True
.ChartTitle.Text = Sht.Range("A100")
'Modify GridLines
.Axes (xlValue), MajorGridlines.Border.LineStyle = xlDot
End With
ChtTop = ChtTop + ChtHeight
Next i
Application.ScreenUpdating = True
End Sub

Anzeige
AW: Cells in Range - Error1004
14.12.2006 20:16:11
Reinhard
Hi Christian,
ungetestet aufgrund der Fehlermeldung:
Set Values = Sht.Range(Sht.Cells(103, 1), Sht.Cells(wert, LastColumn))
Gruß
Reinhard
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige