Thema Datum  Von Nutzer Rating
Antwort
09.01.2019 10:36:24 Alex
Solved
Blau XY-Diagramme erstellen VBA
 10.01.2019 09:37:20 Alex
NotSolved

Ansicht des Beitrags:
Von:
Alex		 Datum:
10.01.2019 09:37:20		 Views:
439		 Rating:
     
Antwort:
  Ja
Thema:
XY-Diagramme erstellen VBA

Ich hab in der Zwischenzeit meinen Code geändert. Das ist der akutelle Stand

 

Sub Diagramme()

Dim ws As Worksheet, WsDiagramm As Worksheet, WsExists As Boolean
Dim Messwerte As Integer, AktChart As Chart, Top As Integer

'Pruefen, ob Abeitsblatt schon existiert, ansonsten anlegen
For Each ws In ThisWorkbook.Worksheets
   If ws.Name = "Diagramme" Then
      Set WsDiagramm = ws
      WsExists = True
   End If
Next ws

If WsExists = False Then
   Set WsDiagramm = Sheets.Add(after:=Sheets("Werte bereinigt"))
   WsDiagramm.Name = "Diagramme"
End If

'Diagramme erstellen pro Messwert
For Messwerte = 1 To 3
   Set AktChart = WsDiagramm.Shapes.AddChart2(227, xlLine, 1, Top, , 200).Chart
   With AktChart
      .HasTitle = True
      .ChartTitle.Text = "Messwert  & Messwerte"
      .SeriesCollection.NewSeries
      .SeriesCollection(1).XValues = Sheets("Werte unbereinigt").Range("$A$11:$A$")
      .SeriesCollection(1).Name = "Werte unbereinigt"
      .SeriesCollection(1).Values = Sheets("Werte unbereinigt").Range("$C$11:$C$").Offset( _
0, Messwerte - 1)
      .SeriesCollection.NewSeries
      .SeriesCollection(2).Name = "Werte bereinigt"
      .SeriesCollection(2).Values = Sheets("Werte bereinigt").Range("$C$11:$C$").Offset(0, _
 Messwerte - 1)
   End With
   Top = Top + 210
Next Messwerte

End Sub


Allerdings bekomme ich einen Laufzeitfehler.
Hat jemand einen Lösungsansatz?

Mfg Alex
 
 
 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
09.01.2019 10:36:24 Alex
Solved
Blau XY-Diagramme erstellen VBA
 10.01.2019 09:37:20 Alex
NotSolved