5
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
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 7031738598
Url: https://administrator.de/contentid/7031738598
Printed on: April 28, 2024 at 14:04 o'clock
5 Comments
Latest comment
VBA?
Lernst du zum Spass auch Latein oder andere tote Sprachen?
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
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ß
Das sieht auch sehr interessant aus. Danke!
