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!

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/contentid/7031738598

Ausgedruckt am: 22.11.2024 um 00:11 Uhr

5 Kommentare

Neuester Kommentar

VBA?
Lernst du zum Spass auch Latein oder andere tote Sprachen?

Zitat von @SeaStorm:

VBA?
Lernst du zum Spass auch Latein oder andere tote Sprachen?

Ich mag VBA genauso wenig wie der nächste, aber tot ist was anderes.

-Thomas

Genau wie Latein

Hallo

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.