Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 14:27:59
Datum wenn Betrag bei jährl. wechselnder Reduzierung 0 wird
18.04.2024 14:14:51
Summewenn letzter Eintrag
18.04.2024 12:28:32
Formelfehler aufgrund Einfügen einer Zeile
18.04.2024 11:51:04
Aus Listbox Spalte als Wert zurück bekommen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1092to1096
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
1092to1096
1092to1096
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Grafik erstellen

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?
Danke und lieben Gruß
Robert

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: VBA Grafik erstellen
05.08.2009 05:43:19
fcs
Hallo Robert,
lese die X- und Y-Werte zunächst in Daten-Felder ein. Danach kannst du dann diese Daten in einem Diagramm verarbeiten.
Franz
Beispiel: 

Sub GenerateDiagram()
Dim X_Werte() As Variant, Y_Werte() As Double
Dim I As Long, Zelle As Range
Dim objChart As Chart, objReihe As Series
I = Application.Range("Bereich_X").Cells.Count
ReDim X_Werte(1 To I)
ReDim Y_Werte(1 To I)
I = 0
For Each Zelle In Application.Range("Bereich_X").Cells
I = I + 1
X_Werte(I) = Zelle.Value
Next
I = 0
For Each Zelle In Application.Range("Bereich_Y").Cells
I = I + 1
Y_Werte(I) = Zelle.Value
Next
'Diagramm anlegen
Application.Goto Reference:="Bereich_X" 'Selection erforderlich, _
damit ein Diagramm mit einer Datenreihe erstellt wird
ActiveWorkbook.Charts.Add
Set objChart = ActiveSheet
With objChart
.ChartType = xlXYScatterLines 'X-Y-Punktdiagram
Set objReihe = .SeriesCollection(1)
With objReihe
.Name = "Test"
.XValues = X_Werte
.Values = Y_Werte
End With
End With
End Sub

Anzeige
AW: VBA Grafik erstellen
08.08.2009 11:35:53
Robert
Hallo Franz,
erstmal vielen Dank für den Code.
Mir wird aber leider nicht klar,
- wofür "Bereich_X" steht und
- wie ich die von mir definierten Namen (ich nenne sie mal Grafik-Xwerte und Grafik-Ywerte) in deinem Code abrufe. Denn es sind immer genau 11 XWerte und 11 YWerte, die in die Grafik kommen und die an der gleichen Stelle berechnet werden. Ich glaube, dein Code ist schon zu kompliziert bzw. zu gut für das was ich suche. Geht das evtl einfacher?
Danke
Robert
AW: VBA Grafik erstellen
10.08.2009 08:15:11
fcs
Hallo Robert,
"Bereich_X" und "Bereich_Y" sind die Namen der Bereiche mit den X- bzw. Y-Werten. Diese muss du dann durch im Code durch die Namen in deiner Datei ersetzen.
Einfacher ist ggf. Beverley's Code. Ich hab ihn aber nicht probiert.
Gruß
Franz
Anzeige
AW: VBA Grafik erstellen
05.08.2009 11:52:52
Beverly
Hi Robert, 
Sub DiaErstellen()
Dim chDiagramm As ChartObject
Set chDiagramm = ActiveSheet.ChartObjects.Add(50, 50, 500, 350)
chDiagramm.Chart.ChartType = xlXYScatterLines
With chDiagramm.Chart.SeriesCollection.NewSeries
.XValues = "=Mappe1!X_Werte"
.Values = "=Mappe1!Y_Werte"
End With
Set chDiagramm = Nothing
End Sub


AW: VBA Grafik erstellen Ergänzung
05.08.2009 11:57:51
Beverly
Hi Robert,
sorry, hatte ich vergessen zu erwähnen: den Namen der Arbeitsmappe, in welcher das Diagrammobjekt erstellt werden soll (im Beispiel die noch nicht gespeicherte Datei Mappe1), musst du natürlich anpassen. Einfacher ist es deshalb so: 
        .XValues = "=" & ThisWorkbook.Name & "!X_Werte"
.Values = "=" & ThisWorkbook.Name & "!Y_Werte"


Anzeige

296 Forumthreads zu ähnlichen Themen

Per VBA Serien Diagramme erstellen
Axel

Hallo,
ich habe ein Problem welches ich noch nicht ganz nachvollziehen kann:
Ich lasse eine Excel Diagramm aus drei Reihen erstellen, wobei ich die Linienstärke einstelle und einen Achsenbezeichnung hinzufüge.
Jetzt das Problem:
Manchmal funktioniert das Skript und manchmal nich...
11.09.2009 01:58:00
Thread-ID: 1101782
3 Beiträge
Anzeige
Per VBA Diagramm erstellen aber
Andreas

Hi,
ich möchte per VBA ein Balken-Diagramm erstellen lassen. Das mit dem normalen Erstellen mittels
wks.SetSourceData Source:=rngData , PlotBy:=xlColumns
ist jedoch nicht das Problem.
Mein Problem liegt darin, dass ich in rngData nun kein Range(...) mehr haben möchte, sondern e...
10.04.2011 17:20:06
Thread-ID: 1209782
3 Beiträge
mehrer Kreis diagramme erstellen mit Best
MIchael

Hallo
ich würde gern verschiedene Kreisdiagramme erstellen, deren GRöße jeweils die Gesamtzahl der einzelnen EInheiten repräsentiert:
Sowas gibts auf Landkarten z.B.:
zu jedem Land wird ein Kreisdiagramm mit dem relativen religionsanteil Anteil der Bevölkerung gemacht.
Die Größ...
10.09.2011 07:32:45
Thread-ID: 1229294
3 Beiträge
Anzeige
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
VBA: Diagramm mit Datumsachse dynamisch erstellen
Jessi

Hallo zusammen,
für eine Auswertung möchte ich ein Diagramm in Excel 2013 erstellen, welches automatisch über ein Makro ergänzt bzw. aktualisiert werden kann. Das heißt mein Diagramm soll dynamisch wachsen können, indem nach und nach immer mehr Arbeitsblätter hinzugefügt und ausgelesen werd...
23.08.2016 14:48:13
Thread-ID: 1510789
7 Beiträge
Diagramme erstellen mit VBA
Dasha

Hallo Leute,
brauche dringend Hilfe!
Ich habe eine Datei mit vielen Spalten und muss viele Diagramme erstellen. Ein Diagramm pro Test.
Spalte 1 = die Nummer eines Tests
Spalte 2 = Testname
Spalte 3 = gemessener Wert
Spalte 4 = Einheit
Spalte 5 = untere Grenze
Spa...
09.08.2017 09:27:00
Thread-ID: 1573411
7 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
2
3
2
2
1
28
5
7
6
6
2
2
3
3
1
10
4
3
7
7
10
12
3
2
3