Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
828to832
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
828to832
828to832
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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
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

243 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige