Thema Datum  Von Nutzer Rating
Antwort
Rot System Error &H80010108 (-2147417848). The object
24.11.2010 10:03:07 Martin
NotSolved
24.11.2010 12:52:19 Severus
NotSolved

Ansicht des Beitrags:
Von:
Martin		 Datum:
24.11.2010 10:03:07		 Views:
1533		 Rating:
     
Antwort:
  Ja
Thema:
System Error &H80010108 (-2147417848). The object
Hallo an alle VBA'ler!

Habe hier ein mittelschweres Problem. Das Modul soll Diagramme mit Daten füllen. Nach Start des Moduls kommt oben gennanter Fehler. Die Msgbox habe ich eingefügt, um zu sehen, bei welchem Diagramm er aussteigt. Das ist aber unterschiedlich. Manchmal läuft es auch ohne Probleme durch...

Vielleicht könnt ihr mir ja weiterhelfen (die Variable Region ist definiert):


Sub Charts_SetSource()

Dim i As Integer
Dim chtchart As Chart
Dim chartrange As Variant

chartrange = Array("D17:D20", "D22:D25", "D27:D30", "D32:D35", "D37:D40", "D42:D45", "D47:D50", _
"D52:D55", "D57:D60", "D62:D65", "D67:D70", "D72:D75", "D77:D80", "D82:D85", "D87:D90", "D92:D95", _
"D97:D100", "N18:N25", "D102:D105")

For i = 1 To 19

Set chtchart = Sheets("charts_" & Region).ChartObjects(i).Chart
With chtchart
.SetSourceData Source:=Sheets(Region).Range(chartrange(i - 1))
.SeriesCollection(1).Name = "% from Overall"

End With
Set chtchart = Nothing

MsgBox i

Next i

End Sub


Vielen Dank schonmal!

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot System Error &H80010108 (-2147417848). The object
24.11.2010 10:03:07 Martin
NotSolved
24.11.2010 12:52:19 Severus
NotSolved