Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 11:16:26
SUMMEWENN erweitern
16.10.2025 09:40:53
Mehrere Konferenzen ohne Personenüberschneidung terminieren
16.10.2025 00:15:51
Passwort im Herbersforum ändern
15.10.2025 16:22:17
Datum ist nicht Datum :(
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1528to1532
1528to1532
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Diagramm Erzeugen und Daten auswählen

Forumthread: Diagramm Erzeugen und Daten auswählen

Diagramm Erzeugen und Daten auswählen
09.12.2016 10:40:31
Nermin
Hallo liebe Community,
wie bekomme ich es hin, dass wenn ich ein Tortendiagramm per Makro erstellen lasse, er einen bestimmten Datenbereich (der variabel ist) in dem Diagramm darstellt. Ich habe ein Makro aufzeichnen lassen und bin schon so weit, dass das Diagramm erzeugt wird, aber er mir nicht die richtigen Daten auswählt. 
Sub DiagrammErzeugen()
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlPie
ActiveChart.SetSourceData Source:=Range( _
"Materialbedarf!$D$6:$D$13;Materialbedarf!$L$6:$L$13")
End Sub

Die Zeilen sind bei mir variabel, die Spalten jedoch fest. Geht das irgendwie mit einer IF Bedingung und einer For Schleife?
Lieben Gruß und Frohe Weihnachten,
Nermin
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Diagramm Erzeugen und Daten auswählen
09.12.2016 11:09:12
baschti007
Also ich würde das so machen
Gruß Basti
Sub DiagrammErzeugen()
Dim AChart As ChartObject
Dim lastRow As Long
With ActiveSheet
lastRow = .Cells(.Rows.Count, 12).End(xlUp).Row
Set AChart = .ChartObjects.Add(50, 40, 300, 200)
With AChart
.Chart.ChartType = xlPie
.Chart.ChartWizard Source:=Worksheets("Materialbedarf").Range("L6:L" & lastRow)
End With
End With
End Sub

Anzeige
AW: Diagramm Erzeugen und Daten auswählen
09.12.2016 11:23:20
Nermin
Hey Basti,
kommt dem schon nahe aber der Diagrammtitel stimmt nicht und die Bezeichnungen der Tortenstücke auch nicht.
Trotzdem vielen Dank!
AW: Diagramm Erzeugen und Daten auswählen
09.12.2016 11:32:36
baschti007
Ja wenn du mehr Bereiche haben willst dann So
Gruß Basti
sonst musst du mal eine muster Datei hochladen wie es aussehen soll
Sub DiagrammErzeugen()
Dim AChart As ChartObject
Dim lastRow As Long
With ActiveSheet
lastRow = .Cells(.Rows.Count, 4).End(xlUp).Row
Set AChart = .ChartObjects.Add(250, 40, 300, 200)
With AChart
.Chart.ChartType = xlPie
.Chart.SetSourceData Source:=Range("Materialbedarf!$D$6:$D$" & lastRow & ",Materialbedarf!$L$ _
6:$L$" & lastRow), PlotBy:=xlColumns
End With
End With
End Sub

Anzeige
AW: Diagramm Erzeugen und Daten auswählen
09.12.2016 11:43:12
Nermin
Hey Basti,
jetzt funzt es genauso wie ich es wollte :).
Vielen Dank!!!
MFG
Nermin
;

Forumthreads zu verwandten Themen

Datenquelle eines Diagramms mit VBA verändern
mgr

hallo, ihr excel-götter!
leider hab ich im archiv nichts entsprechendes gefunden und werfe mein anliegen daher hier ein.
ich habe eine datei, die daten statistisch aufbereitet, unter anderem in form eines torten-diagramms.
dieses tortendiagramm wird mit daten befüllt, die durch eine...
21.11.2008 11:45:45
Thread-ID: 1026676
4 Beiträge
Anzeige
Änderung Datenquelle für Diagramm über VBA
Tom

Hallo,
habe probiert über folgenden Eingabe die Datenquelle eines Diagrammes mittels Angabe von Range und Cells dynamisch zu machen:
ActiveChart.SetSourceData Source:=Sheets("Data").Range(Cells(1, 13), Cells(DatZeile, 12 + DatSpalte))
bekomme aber eine Fehlermeldung: Anwendungs oder...
17.09.2010 12:20:11
Thread-ID: 1178272
15 Beiträge
Datenquelle von Diagramm im VBA auslesen
Diagramm

Hallo Leute,
ich habe folgendes Problem.
Ich mir mittels
'Altes Diagramm kopieren
Sheets(TabellenNamE_Alt).Select
Sheets(TabellenNamE_Alt).Copy Before:=Sheets("Volumen für Grafiken berechnet")
'Greife das neue Blatt und benenne es neu
ZwischennamE = TabellenNamE_Alt...
24.01.2011 16:56:58
Thread-ID: 1197063
3 Beiträge
Anzeige
VBA Chart maximale Länge Diagrammdatenbereich
Philipp

Liebe Forum Gemeinde,
ich habe ein kleines Problem bei der Erstellung von dynamischen Charts in Excel VBA.
Ich habe in Excel eine Reihe an Tabellenblätter (Name) für das ich jeweils in weiteres Tabellenblatt (Name-Chart) erstelle. In das Name-Chart Blatt soll dann jeweils der Inhalt von...
15.12.2012 15:45:19
Thread-ID: 1291007
9 Beiträge
Diagrammtools: Bestimmte Daten auswählen
Anito

Hallo zusammen,
ich habe ein kleines Problem bzgl. meiner Balkendiagrammdarstellungen. Und zwar möchte in einer Reihe nicht alle Datenpunkte für die Darstellungen verwenden, sondern ich möchte es so formatieren, dass nur die Daten im Diagramm dargestellt werden, bei denen bspw. ein X über d...
07.02.2013 08:12:07
Thread-ID: 1298096
3 Beiträge
VBA Diagramm MousDown mit mehreren Datenreihen
Matthias

Hallo Forum,
ich hab durch dieses Forum schon einiges gelernt. Vielen Dank dafür. Dennoch befinde ich mich eher im Anfangsstadium was VBA angeht.
Mein Problem ist die Beschriftung von Datenpunkten in einem Diagramm mit mehreren Datenreihen. Mit dem folgenden Code (unten) kann ich per Mo...
18.07.2013 13:57:17
Thread-ID: 1323088
4 Beiträge
Anzeige
Balkendiagramm Daten auswählen
Suse

Hallo,
also ich habe eine wahrscheinlich supersimple Frage:
Ich habe eine Tabelle mit Überschriften und den Spalten A und B in der X-Achse. Daraus habe ich jetzt ein Balkendiagramm (Gestapelte Säulen) erstellt. Da ich zuviele Datensätze habe und man kaum was erkennen kann, wollte ich zw...
19.10.2013 10:49:05
Thread-ID: 1334973
6 Beiträge
VBA Diagrammdaten aus anderer var. Datei
SunnyJenny

Hallo zusammen.
Vielleicht weiß jemand wie man mir weiterhelfen kann...
Ich habe in einer vorgefertigten Datei mehrere Diagrammen.
Außerdem habe ich mehrere weitere Dateien, die jeweils als Tag benannt sind.
ich möchte, dass die Diagramme der vorgefertigten Datei die Daten aus e...
10.12.2014 14:21:45
Thread-ID: 1397229
5 Beiträge
VBA: Diagramm von Datenquelle lösen
Sabine

Hallo,ich habe ein Problem:
ist es möglich, per VBA erstellte Diagramme per VBA von ihrer Datenquelle zu lösen ohne dass die Daten im Diagramm verloren gehen? (Wenn möglich ohne Kopieren oder Schließen der Datenquelle...)Vielen Dank und schöne Grüße,
Sabine

26.07.2002 16:27:29
Thread-ID: 141234
2 Beiträge
Datenauswahl Diagramm mit VBA steuern
martin

Hallo Liebe Forumsteilnehmer,
vor einiger Zeit habe ich hier bereits einen Beitrag gepostet. "Franz" hat mit weitergeholfen, das habe ich aber erst heute gesehen. Nun ist der Thread bereits geschlossen.
Nun zum Thema:
In meiner Bsp. Datei ist es bereits möglich, dass ich ein neues...
11.05.2017 14:01:23
Thread-ID: 1557797
9 Beiträge
Diagramm/ Datenreihe auswählen
Kevin

Guten Morgen liebes Forum! =)
Ich habe eine Frage bezüglich Diagramme und deren Funktion die Daten auszuwählen.
In meiner Excel Datei gibt es ein Diagramm, welches in dieser Arbeitsmappe auf 60 weiteren Tabellenblätter vorhanden ist. Als ich die Diagramme in die anderen Tabellenblätter...
16.05.2017 08:57:12
Thread-ID: 1558566
9 Beiträge
Diagramm Daten mir VBA Auswählen
Luftikus

Hallo an Alle,
hier ist mein Code Schnippsel:
With .SeriesCollection.NewSeries
.Name = Range(Cells(4, 4), Cells(lngLetzte, 4)).Cells(lngReihen).Value
.XValues = "='" & Range(Cells(4, 4), Cells(lngLetzte, 4)).Cells(lngReihen).Value & "'!$F$8:$F$32"
.Values = "='" &...
22.06.2017 15:10:45
Thread-ID: 1565301
6 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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