Automatisches Diagramm erstellen
09.11.2017 09:06:24
Matthias
im Rahmen eines Techniker Projekts benötige ich Hilfe beim Auswerten von Sensordaten. Die Messwerte werden automatisiert von einer SPS in eine Exceltabelle geschrieben und anschließend manuel mit einer Datenabfrage in eine neue Tabelle importiert.
Es gibt drei Spalten. Spalte 1 (Column1) beschreibt die Millisekunden jeder Messung, Spalte 2 (Column2) und 3 (Column3) die Abstandswert des jeweiligen Sensors.
Zu dieser Abfrage habe ich mit dem Makrorecorder eine automatische Diagrammerstellung _ aufgezeichnet:
Sub Datenauswertung()
' Datenauswertung Makro
Columns("A:C").Select
ActiveSheet.Shapes.AddChart2(227, xlLine).Select
ActiveChart.SetSourceData Source:=Range("Tabelle1!$A:$C")
Application.CutCopyMode = False
Application.CutCopyMode = False
ActiveChart.FullSeriesCollection(1).XValues = "=Tabelle1!$A:$A"
End Sub
Das Makro funktioniert auch, nur werden die Daten leider nicht richtig dargestellt und die Achsen teilweise falsch zugewiesen.
Die waagrechte Achse (x) soll die Zeit von "Column1" enthalten. Die senkrechte Achse(y) den Weg.
Zu Column2 und Column3 soll jeweils ein Kurvendiagramm erstellt werden.
Dies alles geschieht beim drücken des Buttons "Auswertung". Wird nun eine neu Abfrage eingefügt, soll das vorhergehende Diagramm automatisch gelöscht werden und durch das Diagramm der neuen Abfrage ersetzt werden.
Vielen Dank schonmal für jede Antwort.
Anzeige