Thema Datum  Von Nutzer Rating
Antwort
Rot Dynamisches Diagramm
23.01.2020 23:42:26 Phips
NotSolved
24.01.2020 01:29:43 Gast3333
NotSolved
24.01.2020 06:18:38 Gast59504
NotSolved
25.01.2020 17:36:37 Gast26776
NotSolved
25.01.2020 17:58:39 Gast7214
NotSolved

Ansicht des Beitrags:
Von:
Phips
Datum:
23.01.2020 23:42:26
Views:
840
Rating: Antwort:
  Ja
Thema:
Dynamisches Diagramm

Hallo, Ich arbeite seit kurzem erst mit VBA und hätte ein Problem bei dem ich nicht mehr weiter komme. Wäre toll wenn mir jemand helfen könnte ;). 

Ziel ist es, einen dynamisches Diagramm zu erstellen. Ich habe in der C (den Zeitstempel für die x-Achse - hh:mm:ss) und in der Spalte F/G habe ich zwei Wertreihen.  Ich habe die Zeilen 29:1116 definiert. Das Problem ist aber, das die Werte auch weniger sein können und dann sollte sich das Diagramm anpassen.

Code wäre: 

 Sub Diagramm()

 
  Dim MeinDiagramm As Chart
  
  Dim Rahmen As ChartObject
  Set Rahmen = Worksheets("Auswertung").ChartObjects.Add(60, 220, 617, 230)
  Set MeinDiagramm = Rahmen.Chart
  MeinDiagramm.ChartType = xlLine
 
  MeinDiagramm.SetSourceData Worksheets("Rohwerte").Range("F29:G1116")
  MeinDiagramm.FullSeriesCollection(1).XValues = "=Rohwerte!$C$29:$C$1116"
  MeinDiagramm.FullSeriesCollection(1).Name = "=""SOLL"""
  MeinDiagramm.FullSeriesCollection(2).Name = "=""IST"""
  MeinDiagramm.HasTitle = True
  MeinDiagramm.ChartTitle.Text = "Glühkurve"
  MeinDiagramm.Axes(xlPrimary).HasTitle = True
  MeinDiagramm.Axes(xlPrimary).AxisTitle.Text = "Temp"
  MeinDiagramm.Axes(xlCategory).HasTitle = True
  MeinDiagramm.Axes(xlCategory).AxisTitle.Text = "Zeit[hh:mm:ss]"
 
  Call Diagramm_bearbeiten
End Sub
 
 
Würde mich um Unterstützung freuen
 
Lg Phips 

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
Rot Dynamisches Diagramm
23.01.2020 23:42:26 Phips
NotSolved
24.01.2020 01:29:43 Gast3333
NotSolved
24.01.2020 06:18:38 Gast59504
NotSolved
25.01.2020 17:36:37 Gast26776
NotSolved
25.01.2020 17:58:39 Gast7214
NotSolved