Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 12:46:38
Nutzereingaben Speichern und Laden
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
26.04.2024 11:38:46
Acrobat PDF Formularfelder mit Excel ausfüllen
26.04.2024 11:23:04
zählen wenn - aber nur die selektierten Zeilen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1732to1736
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1732to1736
1732to1736
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Excel VBA Diagramm erstellen

Excel VBA Diagramm erstellen
07.01.2020 15:25:55
Andreas
Guten Mittag,
habe ein Problem beim Versuch ein Diagramm per Makro zu erstellen.
Ich habe dazu den groben Vorgang per Rekorder aufgezeichnet, nun läuft das Makro leider noch nicht ganz perfekt.
Sub Pareto()
Dim wks As Worksheet: Set wks = ActiveSheet
wks.Range("A10:A45,AH10:AH45").Select
ActiveSheet.Shapes.AddChart2(366, xlRegionMap).Select
ActiveSheet.ChartObjects("Diagramm 5").Activate
End Sub
Das Makro sollte eig. zwei Spalten markieren und dann ein einfaches Diagramm (Säulen) erstellen.
Leider kann ich entweder nur 1x das Diagramm erstellen lassen oder gar nicht (bei älteren Excelversionen)
Ich glaube es liegt an der letzten Zeile "ActiveSheet.ChartObjects("Diagramm 5").Activate" Hier spreche ich das Diagramm 5 an. Sollte der Bezug nicht genauer sein und nicht der Name eines Diagramms sein?
Kann mir hier jemand weiterhelfen? Wie muss ich das Makro schreiben?

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Excel VBA Diagramm erstellen
07.01.2020 22:13:29
Regina
Hallo Andreas,
der von Dir gezeigte Code, kann nicht ausschließlich das Ergebnis einer Makroaufzeichnung sein.
Es wird außerdem kein Säulendiagram erstellt, sondern ein, erst in neueren Versionen verfügbares, Länderdiagramm.
Der folgende Code erzeugt ein einfaches Säulendiagram auf Basis der Zellen A1 bis B4:
    ActiveSheet.Shapes.AddChart2(201, xlColumnClustered).Select
ActiveChart.SetSourceData Source:=Range("Tabelle1!$A$1:$B$4")
Gruß Regina
AW: Excel VBA Diagramm erstellen
09.01.2020 15:34:56
Andreas
Hallo Zusammen,
vielen Dank für die Hilfe.
Ich habe jetzt folgenden Code erstellt:
Sub Pareto()
Dim wks As Worksheet: Set wks = ActiveSheet
wks.Range("A10:A44,AH10:AH44").Select
ActiveSheet.Shapes.AddChart2(201, xlColumnClustered).Select
ActiveChart.SetSourceData Source:=wks.Range("A10:A44,AH10:AH44")
End Sub
Bei mir funktioniert dieser wie erwartet.
Leider jedoch bei einer älteren Excelversion (2010) nicht.
Kann mir jemand sagen woran das liegt?
Anzeige
AW: Excel VBA Diagramm erstellen
09.01.2020 15:42:13
Pierre
Hi,
ich vermute, es liegt an der 201. 

ActiveSheet.Shapes.AddChart2(201, xlColumnClustered).Select
Versuche bei 2010 mal stattdessen die 51.
Gruß Pierre
Falsch verstanden
09.01.2020 15:49:30
Pierre
Sorry, ich habe nochmal genauer gelesen.
AddChart2 wurde erst 2013 eingeführt, folglich geht es mit 2010 gar nicht.
AW: Falsch verstanden
09.01.2020 16:05:24
Andreas
Somit kann ich mir mit Excel 2010 keine Diagramme per Makro ausgeben lassen?
AW: Excel VBA Diagramm erstellen
09.01.2020 15:58:40
Andreas
Hallo Pierre,
Sub Pareto()
Dim wks As Worksheet: Set wks = ActiveSheet
wks.Range("A10:A44,AH10:AH44").Select
ActiveSheet.Shapes.AddChart2(51, xlColumnClustered).Select
ActiveChart.SetSourceData Source:=wks.Range("A10:A44,AH10:AH44")
End Sub
Leider funktioniert dieser auch nicht (sowohl auf 2016 als auch 2010 nicht)
Anzeige
VBA Diagramm erstellen
09.01.2020 16:29:10
Beverly
Hi Andreas,
selbstverständlich kann man auch in allen Vorgänderversionen Diagramme per VBA erstellen - und zwar nach diesem Prinzip:
Sub DiaErstellenUniversell()
Dim wks As Worksheet: Set wks = ActiveSheet
With wks.ChartObjects.Add(150, 150, 400, 300).Chart
.ChartType = xlColumnClustered
.SetSourceData Source:=Union(wks.Range("A10:A45"), wks.Range("AH10:AH45"))
End With
End Sub

AW: Excel VBA Diagramm erstellen
08.01.2020 08:36:15
Beverly
Hi,
wie im anderen Beitrag bereits geschrieben - das Länderdiagramm gibt es erst in einer neueren Excelversion, nicht jedoch in Excel2016 und älter.
Wenn du ein jeweils neu erstelles Diagramm ansprechen willst, ohne seinen Namen zu kennen, lässt sich das so realisieren:
ActiveSheet.ChartObjects(ActiveSheet.ChartObjects.Count)

Du brauchst das ganze aber überhaupt nicht, wenn du dich in einer With-Anweisung auf das neu erstellte Diagramm beziehst - nach diesem Prinzip:
    Dim wks As Worksheet: Set wks = ActiveSheet
With wks.Shapes.AddChart2(366, xlRegionMap).Chart
.SetSourceData Source:=Union(wks.Range("A10:A45"), wks.Range("AH10:AH45"))
End With

Das unnötige Selektieren kannst da dabei auch gleich umgehen.

Anzeige
AW: Excel VBA Diagramm erstellen
09.01.2020 16:28:28
Andreas
Hallo Beverly,
mir geht es nicht darum ein Diagramm anzusprechen, sondern erstmal eines zu erstellen.
Mir reicht dabei ein ganz normales Säulendiagramm und kein Länderdiagramm.
Dennoch vielen Dank schonmal für die Hilfe und Viele Grüße

38 Forumthreads zu ähnlichen Themen

VBA Grafik erstellen
Robert

Hallo,
ich möchte eine Grafik per VBA erstellen.
Die X-Werte habe ich per Namen defniert,die Y-Werte ebenso. Allerdings sind diese Werte jeweils nciht zusammenhängend (also als X-Werte z.B.: B11,B14,B22, usw).
Wie kann ich denn nun mit diesem Namen eine Grafik über VBA erstellen?
05.08.2009 05:43:19
Thread-ID: 1093614
6 Beiträge
Anzeige
Wie erstelle ich eine TAB- Datein
hindenberger@gmx.de

Hallo,
für ein Statistil-Tool brauche ich einen Excel-Datei o.ä. als *.tab Datei.
Wie erzeuge ich diese?
Danke
23.11.2009 11:18:48
Thread-ID: 1119394
3 Beiträge
VBA: diagramm nach Checkbox-Auswahl erstellen
Jonathan

Hallo liebe Experten,
ich stehe vor folgenden Problem:
In einem Excel-Sheet werden ca. 100 Arbeitsplätze verwaltet.
Jeder Arbeitsplatz hat in diesem Sheet eine Tabelle mit mit 8 Zeilen und 18 Spalten. Die Tabellen sind untereinander angeordnet.
Jede Tabelle (bzw. jeder Arbeitsp...
21.12.2009 15:47:14
Thread-ID: 1125372
4 Beiträge
Anzeige
Wie erstelle ich ein Scrollfeld?
Stefan S.

Hallo,ich habe eine mehrspaltige Tabelle, auf die ich mit einem Suchkriterium via SVERWEIS zugreife. Wie kann ich in die Zelle,
in der ich das Suchkriterium eingebe, gleich automatisiert alle Suchwerte aus der vorhandenen Tabelle als Auswahl formatieren?
(oder auch Scrollfeld genannt)Gruß...
10.06.2002 12:45:28
Thread-ID: 127470
2 Beiträge
diagramm automatisch erstellen
Anna

Hallo,
ich habe ein excel-problem, ich hoffe mir kann jemadn dabei helfen: ich möchte gerne automatisch ein Diagramm aus meinen Daten erstellen, da ich min. 30 datensätze (jeweils ein eigenes diagramm) habe und nicht für jedes die daten von hand nocheinmal neu in das diagramm eingeben möch...
13.07.2012 14:46:11
Thread-ID: 1270855
2 Beiträge
Diagramm automatisch erstellen
Jens

Hallo,
Ich bin auf der Suche nach einem Makro für Excel 2013 um aus einer 8808 Daten umfassenden Spalte (Spalte F beginnend mit Zeile 2 - Zeile 8809) immer jeweils 72 dieser Daten zu einem Liniendiagramm zusammenzufügen und neben den entsprechenden Abschnitt zu platzieren.
Da es sich th...
19.06.2013 12:06:54
Thread-ID: 1318502
29 Beiträge
Diagramm je Zeile automatisch erstellen - Teil 2
Thorsten

Am 2013-07-12 habe ich unter "Diagramm je Zeile autmatisch erstellen" von Franz (fsc) bereits eine sehr gute Antwort bekommen. Allerdings bitte ich dazu nochmal um Hilfe, denn ich möchte die Tabelle um weitere Werte als "nur" die 52 Kostenstellen erweitern.
Wo kann ich die Begrenzung aufheb...
09.08.2013 10:11:36
Thread-ID: 1326270
6 Beiträge
VBA - Diagramm erstellen via Recorder läuft nicht
Matthias

Hallo zusammen,
Vorweg: Ich habe keine Kenntnisse in VBA, nur mit dem Recorder zum Teil gearbeitet, aber ich denke ein Makro würde mir eine Menge Arbeit ersparen.
Zum Problem:
Ich bin schon seit längerer Zeit dabei ein Diagramm über den Makrorecorder zu erstellen, aber es funktionie...
06.09.2013 10:35:26
Thread-ID: 1329757
8 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
2
2
3
2
1
1
28
5
7
6
3
2
1
6
1
2
2
3
1
5
10
4
3
5