1. Wasserpegeldaten. Spalte A = Mess-Datum ; Spalte B = Wasserhöhe (01.1989 33,04m; 02.1989 33,68m ff.) Davon ca. 200
2. Eine "Zusammenfassung" der Daten. Da ich 200 einzelne Blätter (Stationen entlang eines Flusses) habe, würde ich gerne für jede Station die Monatsmaxima und -Minima ermitteln.
Sprich, Januar: Wie hoch stand das Wasser minmal und maximal in der Aufzeichnungsreihe. Und das für jeden Monat.
Wenn Excel deutsch könnte, würde ich folgendes in die Zelle schreiben: "Zeig mir von allen Januar-Werten den niedrigsten/höchsten"... :19:
Das geht bestimmt mit Pivot - aber da die Daten-Tabellen täglich neue Daten erhalten hätte ich das gerne dynamisch.
- 1 Blatt pro Station mit Datum 1.1989 (TT.YYYY)
für 1.1.1989 - 14.8.2018?
- einmalige Abfrage für die Vergangenheit, tägliche Aktualisierung für aktuelles Datum
offen ist:
1 Blatt oder 1 Datei pro Station
Kenntnisse in VBA
Wenn diese (und event. weitere) Fragen geklärt werden, sollte es möglich sein.
Ja so wie du das dargestellt hast, wäre das schon optimal.
Alles Daten sind in einem Ordner. Ich würde diese Berechung dann einmal in der Datei selber durchführen und danach eine Zusammenfassung wie die deine erstellen.
Spalte A ist als Datum [MM.JJJJ] formatiert. Spalte B als Dezimalzahl.
Die Abfrage muss es auch nicht für alle 200 automatisch machen - das kann ich auch klicken. Wichtig wäre für mich die Formel
Die Abfrage muss es auch nicht für alle 200 automatisch machen - das kann ich auch klicken. Wichtig wäre für mich die Formel
Hallo, das könnte man aber für alle 200 automatisch machen - denke ich. Mit Power Query. Das wäre zudem dynamisch, also wenn Daten (Dateien) dazu kämen...
Gruß Jörg
ich muss mich erst wieder ganz langsam heran robben. Also bitte ich um Nachsicht
"Wer immer tut, was er schon kann, bleibt immer das, was er schon ist." - Henry Ford
dieser Code sollte meine Beispieldatei mit den Werten aller Stationen füllen:
Code:
Sub F_en()
Dim WS As Worksheet: Set WS = ActiveSheet
Dim WSF As WorksheetFunction: Set WSF = Application.WorksheetFunction
Dim Mn(11) As Single
Dim Mx(11) As Single