Office: Strom und Gasverbrauch: Fehlende Tage automatisch in Tabelle hinzufügen

Hallo!

ich habe seit 5 Jahren in meiner Wohnung immer mal wieder meinen Strom und Gas Zähler notiert. Allerdings habe ich dies sehr unregelmäßig gemacht, sodass die Auswertung in Excel nicht besonders aussagekräftig ist (Unterschiedliche Zeiträume und sehr unterschiedliche Verbräuche.)

Zurzeit habe ich eine Liste mit allen Zählerständen in Spalte B und dem Datum in Spalte A.

Mein Ziel ist es, dass für jedes fehlende Datum (Es sind viele Fehlende, ich habe durchschnittlich jede Woche etwa einmal den Stand aufgeschrieben), eine eigene Zeile automatisch berechnen zu lassen aus den Werten davor und danach.

Wenn ich also beispielsweise die Werte
2021.06.01, 13700
2021.06.03, 13740
2021.06.17, 13879
habe, wäre es ideal wenn ich automatisch eine Zeile für 2021.06.02 mit dem Wert 13.720 eingetragen wird, also eben den Wert auf die fehlenden Tage aufteilen könnte.

Ist dies möglich? Es wäre schon super, wenn ich für die fehlenden Zeilen automatisch das Datum hinzufügen könnte. Ein Komplettpaket irgendwie wäre natürlich ideal.

Vielen Dank im Voraus! :)

 

ja das ist mit VBA möglich.

Die meisten bauen Deine Datei nicht nach. Die Zeit hat schon jemand investiert.

Ein Nachbau sieht meist anders aus als das Original. <B>Darum sollte das Original verlinkt werden.</b>
Die meisten möchten es am Original testen um den gleichen Fehler zu erhalten.

Der Name einer hochgeladenen Mappe wird im Beitrag automatisch angezeigt, sodass es bei Verwendung von aussagekräftigen Namen leichter fällt, sie später im Ablageordner wiederzufinden und sie gedanklich einem bestimmten Thema zuzuordnen. Namen wie Muster*, Test*, Mappe*, Beispiel*, Fehler*, Kalender*, UserForm* , Forum* usw. sind so allgemein, dass eine Zuordnung zu einem Thema unmöglich gemacht wird.
Es sollte ein aussagekräftiger Name sein.

Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten ändern. Schaue Datei
http://hajo-excel.de/gepackt/fremd/Datei_verschluesseln.zip

Ich führe keine Liste unrter welchem Namen die Datei gespoeichert ist.
Der Dateiname steht ja im Beitrag.

Das ist nur meine Meinung zu dem Thema.

Benutze hier im Forum die Funktion zum hochladen. Falls Du die nicht benutzen möchtest, beachte, von unsicheren Servern wie z.B. www.file-upload.net lade ich keine Datei runter. (lt. Einschätzung meines Virenprogramms)

 

Hallo Hajo,
Danke für deine schnelle Antwort. Ich kann gerne meine Datei hochladen.
Dort befinden sich allerdings bereits mehr berechnete Informationen drin (Täglicher Verbrauch etc.)

Mit VBA Kenne ich mich bisher gar nicht aus. Kann ich die Tabelle auch "weiterführen" um die Werte auch in der Zukunft neu berechnen zu lassen?

Danke vielmals

 

Danke für die Datei. Du hast Extra eine XLSX Datei hochgeladen in der kein Makro gespeichert werden kann. Du wolltest das Makro dann selber an Deine Bedingungen anpassen. Ich speichere die Datei nicht unter einem neuen Namen der Dateiname steht ja im Beitrag.
Viel Erfolg.
Ich habe es nur beim letzten Wert geprüft.

Code:

Option Explicit

Sub Werte()
    Dim LoLetzte As Long
    Dim LoI As Long
    Dim LoJ As Long
    Dim DoWert As Double
    LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)
    Application.ScreenUpdating = False
    For LoI = LoLetzte - 1 To 3 Step -1
        If Cells(LoI - 1, 1) - Cells(LoI, 1) > 1 Then
            DoWert = (Cells(LoI - 1, 3) - Cells(LoI, 3)) / (Cells(LoI - 1, 1) - Cells(LoI, 1) - 3)
            For LoJ = 1 To Cells(LoI - 1, 1) - Cells(LoI, 1) - 2
                Rows(LoI).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
                Rows(LoI).ClearContents
                Cells(LoI, 1) = Cells(LoI + LoJ, 1) + LoJ
                Cells(LoI, 3) = Cells(LoI + 1, 3) + DoWert
            Next LoJ
        End If
    Next LoI
    Application.ScreenUpdating = True
End Sub

Gruß Hajo

 

Lieber Hajo,

Zunächst vielen lieben Dank für die Unterstützung und das Makro. Das wäre weit über meine Kenntnisse herausgegangen und funktioniert größtenteils genau so, wie ich es mir gewünscht hatte.

Zwei kleine Probleme habe ich allerdings mit dem Skript.
1) Es werden zwar die fehlenden Tage "aufgefüllt", allerdings nicht der letzte Tag vor dem nächsten Termin. Zwischen dem 07.07.2017 und dem 20.07.2017 fehlt beispielsweise der 19.07.2017. Dies ist bei jedem Wert der Fall.

2) In beiden Mappen wird das Makro irgendwann mit einem Fehler beendet. Bei Strom am 13.10.2017 und bei Gas am 04.12.2020. Ich kann nicht feststellen, was bei den Werten das Problem auslöst, außer, dass bei Gas zwischen dem 04.12.2020 und dem vorigen Wert eine Differenz von 0 liegt. Doch dies kommt auch bei anderen Werten bereits vor.

Die Fehlermeldung ist "Laufzeitfehler '11' Division durch null". Im Code wird die folgende Zeile markiert:

Code:

DoWert = (Cells(LoI - 1, 3) - Cells(LoI, 3)) / (Cells(LoI - 1, 1) - Cells(LoI, 1) - 3)

Erneut vielen lieben Dank für die hilfreiche Unterstützung.

 

office-hilfe.com/support/threads/interpolation-auf-feste-zeitpunkte.54624/