Daten von Wetterstation mit VBA aufbereiten
Hallo zusammen,
versuche mich gerade an VBA, wie die Aufgabe "nur" mit Excel umzusetzen wäre ist mir bekannt.
Mir liegen Daten von meiner Wetterstation vor. Spalte A Datum 01.01.2022 usw. Spalte C Temperatur
Die Temperatur wird aktuell 288 mal gemessen.
Ich möchte die tägliche Durchschnittstemperatur berechnen und diese Monatsweise in einem Diagramm ausgeben.
Diese Ausgabe soll über einen Button geschehen z.B. Button "Januar".
Habe mal mit dem angehangen Code ein wenig rumgespielt. Allerdings finde ich das mehr schlecht als recht.
Das ganze muss irgendwie smarter gehen.
Wäre über einige Tipps sehr dankbar!
versuche mich gerade an VBA, wie die Aufgabe "nur" mit Excel umzusetzen wäre ist mir bekannt.
Mir liegen Daten von meiner Wetterstation vor. Spalte A Datum 01.01.2022 usw. Spalte C Temperatur
Die Temperatur wird aktuell 288 mal gemessen.
Ich möchte die tägliche Durchschnittstemperatur berechnen und diese Monatsweise in einem Diagramm ausgeben.
Diese Ausgabe soll über einen Button geschehen z.B. Button "Januar".
Habe mal mit dem angehangen Code ein wenig rumgespielt. Allerdings finde ich das mehr schlecht als recht.
Das ganze muss irgendwie smarter gehen.
Wäre über einige Tipps sehr dankbar!
Option Explicit
Sub Temperatur_Januar()
'
' Auswertung der Temperatur im Januar
'
Dim tag_1_1 As Double
Dim tag_2_1 As Double
Dim tag_3_1 As Double
Dim tag_4_1 As Double
Dim tag_5_1 As Double
Dim tag_6_1 As Double
Dim durch_1_1 As Double
Dim durch_2_1 As Double
' Kumulierte Temperatur pro Tag
Range("J2").Select
ActiveCell.FormulaR1C1 = "=SUMIF(C[-9],""01.01.2022"",C[-7])"
Range("J3").Select
ActiveCell.FormulaR1C1 = "=SUMIF(C[-9],""02.01.2022"",C[-7])"
Range("J4").Select
ActiveCell.FormulaR1C1 = "=SUMIF(C[-9],""03.01.2022"",C[-7])"
Range("J5").Select
ActiveCell.FormulaR1C1 = "=SUMIF(C[-9],""04.01.2022"",C[-7])"
Range("J6").Select
ActiveCell.FormulaR1C1 = "=SUMIF(C[-9],""05.01.2022"",C[-7])"
tag_1_1 = Range("J2")
tag_2_1 = Range("J3")
' Tagesdurschnitt bei 288 Einzelmessungen
durch_1_1 = tag_1_1 / 288
durch_2_1 = tag_2_1 / 288
End Sub
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 7031738598
Url: https://administrator.de/forum/daten-von-wetterstation-mit-vba-aufbereiten-7031738598.html
Ausgedruckt am: 25.12.2024 um 19:12 Uhr
5 Kommentare
Neuester Kommentar
Ich mag VBA genauso wenig wie der nächste, aber tot ist was anderes.
-Thomas
Hallo
Dort lassen sich einerseits die Daten passend mit Mittelwert zusammenfassen und andererseits die Daten über DropDowns auf Zeiträume beschränken.
Weiterer Vorteil, kein unsicheres VBA nötig. Vor allem wenn man die Mappe mit weiteren Leuten teilen muss ein nicht zu unterschätzender Punkt.
Gruß
Das ganze muss irgendwie smarter gehen.
Genau für sowas wurden ja eigentlich Pivot-Tabellen/Diagramme erfunden.Dort lassen sich einerseits die Daten passend mit Mittelwert zusammenfassen und andererseits die Daten über DropDowns auf Zeiträume beschränken.
Weiterer Vorteil, kein unsicheres VBA nötig. Vor allem wenn man die Mappe mit weiteren Leuten teilen muss ein nicht zu unterschätzender Punkt.
Gruß