Chart über VBA erstellen

[Micha2005]

Hallo, ich versuche gerade ein Diagramm als Separate Mappe zu erstellen.

Das Problem er findet das Objekt nicht, wobei das Objekt doch mit ThisWorkbook.Charts.Add erstellt werden soll.
Kann mir jemand sagen was ich vergessen hab?

Sub DiagrammÜbung()
    ThisWorbook.Charts.Add 'After:=Worksheets("Archiv Preise")
        With ActiveChart
            .ChartType = xlLine
            .SetSourceData Worksheets("Archiv Preise").Range("A1:F3")
            .Name = "Übung"
        End With
End Sub

Gruß Micha

[knobbi38]

Hallo Micha,

nichts vergessen, nur solltest du das vielleich mit dieser Struktur umsetzen:

Code:

  Dim chtUebung As Chart
 
  Set chtUebung = ThisWorkbook.Charts.Add(After:=Worksheets("..."))
 
  With chtUebung
  ...
  End With

Knobbi38

[snb]

Code:

With ThisWorkbook.Charts.Add
  .ChartType = 4
  .SetSourceData Sheets(1).Cells(1).CurrentRegion
  .Name = "snb"
End With

[Andreas Killer]

Hallo, ich versuche gerade ein Diagramm als Separate Mappe zu erstellen.

Das Problem er findet das Objekt nicht, wobei das Objekt doch mit ThisWorkbook.Charts.Add erstellt werden soll.

Micha,

wenn Du ein Diagramm in einer separaten Mappe, also in einer neuen oder anderen Datei erzeugen, erzeugen willst, wozu dann ThisWorkbook? Der Code passt nicht zur Frage!

Andreas.

[Egon12]

Hallo,
 
die Frage, welche sich mir stellt ist: Braucht es unbedingt ein Chartobjekt? Vielleicht reicht da ja schon ein in ein Shape eingebettetes Chart. Ist nur mal so ein Gedanke von mir.
 
Gruß Uwe

[slowboarder]

Hi
prinzipiell sollte der Code funktionieren, auch wenn es nicht schön und auch nicht sauber ist, aber da nach dem Erstellen eines Objektes (Chart, Sheet, Workbook) dieses auch gleichzeitig aktiviert wird, funktioniert das mit dem ActiveChart.

Dein Fehler kommt daher, dass du "ThisWorkbook" falsch geschrieben hast (ohne das mittlere "k": ThisWorbook")

Verwendest du Option Explicit?
Wenn nein, dann solltest du das tun, dann bekommst du solche Fehler schon früher und deutlicher angezeigt.

Gruß Daniel

[Micha2005]

Danke für die vielen Antworten, hab den Fehler inzwischen auch gefunden...

Hat ein Buchstabe gefehlt!

Ich mach das weniger wegen dem Sinn sondern um mir VBA beizubringen.

Danke & Gruß
Micha

[RPP63]

Ich mach das weniger wegen dem Sinn sondern um mir VBA beizubringen.

Moin!
Gerade deshalb solltest Du Daniels Tipp beherzigen!
Interessantes Lesefutter:
https://www.online-excel.de/excel/singse...6.html?f=4

Gruß Ralf