AW: Und wo ist das Diagramm bzw. der Code? - o.T.
05.09.2018 09:30:35
Thomas
Also hier ist der Code:
Ich muss dazu sagen, dass ich ein absoluter Neuling im Thema VBA bin und mir daher Youtube Videos und Forenbeiträge angeschaut habe und somit diese zusammen gestoppelt habe. Daher werden wohl einige Fehler und Verkomplizierungen vorhanden sein.
Es geht darum, dass jede Kalenderwoche ein Mitschrieb von Temperatursensoren gemacht wird. Dieser Mitschrieb wird als .csv gespeichert und soll als Diagramm dargestellt werden. In der hochgeladenen Mappe fehlen in Spalte 1&2 Datum und Uhrzeit. In Spalte 3 werden diese addiert um später im Diagramm die x-Achsen Beschriftung darzustellen. (Dies habe ich gemacht da ich nicht gewusst habe wie ich sonst anstelle der Uhrzeiten nur die Tage anzeigen kann)
Sub Diagramme()
Dim i As Double
Application.ScreenUpdating = False
With Worksheets(1)
Range("F1").Value = "Mittelwert"
Range("G1").Value = "Maximale Temperatur"
Range("H1").Value = "Minimale Temperatur"
Range("C1").Value = "Datum"
For i = 2 To 5000
If Cells(i, 1) "" Then
.Cells(i, 3) = (.Cells(i, 1) + .Cells(i, 2))
Else
Cells(i, 3).Value = " "
End If
If Cells(i, 4) "" Then
.Cells(i, 6) = (.Cells(i, 4) + .Cells(i, 5)) / 2
Else
Cells(i, 4).Value = " "
End If
If Cells(i, 4) "" Then
.Cells(i, 8) = ("26")
Else
Cells(i, 4).Value = " "
End If
If Cells(i, 4) "" Then
.Cells(i, 7) = ("18")
Else
Cells(i, 4).Value = " "
End If
Next i
End With
Application.ScreenUpdating = True
Sheets.Add After:=Sheets(Sheets.Count)
Dim COWa As ChartObject
Dim CHWa As Chart
Set COWa = ThisWorkbook.Worksheets(2).ChartObjects.Add(10, 10, 1000, 300)
Set CHWa = COWa.Chart
CHWa.ChartType = xlXYScatterLinesNoMarkers
CHWa.SetSourceData Worksheets(1).Range("C1:C5000,D1:H5000")
With CHWa.Axes(xlValue)
.HasTitle = True
.MinimumScale = 17
.AxisTitle.Text = "t in °C"
End With
With CHWa.Axes(xlCategory, xlPrimary)
.HasMajorGridlines = True
'.MinimumScale = Range("C2")
'.MaximumScale = Range("C10078")
End With
End Sub
Beste Grüße,
Thomas