Diagramm erstellen

Forumthread: Diagramm erstellen

Diagramm erstellen

Benni

Hallo zusammen,
ich sitze vor folgendem Problem.
In einem Arbeitsblatt (Messwerte) befinden sich viele Momentenverläufe. In Spalte A befindet sich der für das spätere Diagramm relevante Namen. In Spalte C - AN ,ab Zeile 2, die jeweiligen Punkte (Y-Werte). In Spalte C - AN ,Zeile 1, die jeweiligen X-Punkte.
Grundsätzlich gibt es 3 verschiedene Momentenverläufe wie z.B. Momentenverlauf1 in Zelle 2, Momentenverlauf2 in Zelle 3, Momentenverlauf3 in Zelle 4, Momentenverlauf1 in Zelle 5, Momentenverlauf2 in Zelle 6, usw.
Ich habe gerade in VBA versucht das ganze so zu programmieren, dass 3 Diagramme erstellt werden wo jeweils alle Momentenverläufe1, Momentenverläufe2 und Momentenverläufe3 getrennt enthalten sind. Der Abstand der zwischen den Momentenverläufe1.1 und Momentenverläufe1.2 ist immer +3 (Zeile 2, 5, 8, usw.).
Kann mir jemand bei diesem Problem helfen?
Viel Grüße
Benni

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Diagramm erstellen

04.03.2011 10:36:58

Uwe

Hallo, Benni,
bestimmt kann das jemand, dir bei Deinem Problem helfen.
Aber vielleicht könntest Du helfen, indem Du eine Beispielmappe mit der Struktur, so wie sie für die Umsetzung gegeben ist, bereitstellst. Gut wären da auch Beispieldiagramme, die die Wahl der Daten verdeutlichen.
Gruß,
Uwe

AW: Diagramm erstellen

04.03.2011 10:37:03

Beverly

Hi Benni,

Sub DiasErstellen()
Dim chrDiagramm As Chart
Dim lngZeile As Long
Dim bytDia As Byte
Dim intSpalte As Integer
intSpalte = 1
lngZeile = 2
For bytDia = 1 To 3
Set chrDiagramm = ActiveSheet.ChartObjects.Add(intSpalte, 200, 400, 250).Chart
With chrDiagramm
.ChartType = xlXYScatterLines
.HasLegend = True
.HasTitle = False
For lngZeile = bytDia + 1 To 19 Step 3
.SeriesCollection.NewSeries
With .SeriesCollection(.SeriesCollection.Count)
.XValues = Range("C1:L1")
.Values = Range(Cells(lngZeile, 3), Cells(lngZeile, 40))
.Name = Cells(lngZeile, 1)
End With
Next lngZeile
End With
intSpalte = intSpalte + 400
Set chrDiagramm = Nothing
Next bytDia
End Sub

AW: Diagramm erstellen

04.03.2011 11:42:56

Benni

Hallo zusammen,
hier mal 2 Screenshots der Messwerte bzw. Diagramm.
Userbild

@Beverly: leider kommt bei dem Ausführen eine Fehler.
Viele Grüße
Benjamin

AW: Diagramm erstellen

04.03.2011 14:10:30

Beverly

Hi Benjamin,
ich verwende nun schon Excel2010, aber selbst diese Version kann aus einem hochgeladenen Bild keine Arbeitsmappe machen und das nachzubauen ist der Aufwand einfach zu hoch. Das mit dem Fehler kann ich nicht nachvollziehen, denn bei mir kommt keiner (andernfalls hätte ich den Code auch nicht gepostet). Da musst du dir schon mal die Mühe machen, nicht nur ein Bild sondern deine Arbeitsmappe zur Verfügung zu stellen, damit man das am Original testen kann.

Beliebteste Forumthreads (12 Monate)

Forumthread: Diagramm erstellen

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

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread