Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

Gas Ablesetabelle in Abrechnungstabelle wandeln

Forumthread: Gas Ablesetabelle in Abrechnungstabelle wandeln

Gas Ablesetabelle in Abrechnungstabelle wandeln
18.05.2025 16:37:01
Volker Tietz
Hallo Zusammen,
ich habe eine Ablesetabelle über zwei Gaszähler:

Zählernummer Ablesedatum Zählerstand MwSt
123456 01.10.2022 200 19%
123456 01.12.2022 300 7%
123456 15.01.2023 450 7%
123456 01.04.2023 820 19%
654321 01.05.2023 333 19%
123456 15.07.2023 950 19%

und eine Abrechnungstabelle mit den MwSt zu jedem Monat
Zählernummer 01.10.2022 01.11.2022 01.12.2022 01.01.2023 01.02.2023 01.03.2023 01.04.2023 01.05.2023 01.06.2023
123456 x x x x x x x x x
so solle es sein => 19% 19% 7% 7% 19% 19% 19% 19%

Das bedeutet:
- Ablesedatum: 15.01.2023, MwSt: 7% → gilt nur bis 31.01.2023.
- Ablesedatum: 01.04.2023, MwSt: 19% → gilt ab 01.02.2023 bis einschließlich April 2023
Der MwSt satz ändert sich nur zum 1. eines Monates!!

Damit ich das auch nächste Woche noch verstehe habe die Formel mit LET geschrieben - aber irgendwie ist der Wurm drinnen.
Hat einer eine bessere Idee und Lösung?
Vielen Dank im Voraus!
Volker

=LET(

zähler; $A2;
datum; B$1;
Ablesedatum; $B$16:$B$26;
Zählernummern; $A$16:$A$26;
Mwsts; $D$16:$D$26;

startmonat; Zeilenweise(Ablesedatum; LAMBDA(d; EDATUM(d;1)));

gültigeSätze;" FILTER(Mwsts; (Zählernummern = zähler) * (startmonat >= datum))";
gültigeDaten;" FILTER(startmonat; (Zählernummern = zähler) * (startmonat >= datum))";

index;" XVERGLEICH(Ablesedatum; gültigeDaten; -1; 1)";
WENNFEHLER(INDEX(gültigeSätze; index); "x")
)


https://www.herber.de/bbs/user/177493.xlsx
Anzeige

14
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Gas Ablesetabelle in Abrechnungstabelle wandeln
18.05.2025 18:45:00
Onur
ZEILENWEISE ?
Selbst erfunden ?
AW: Gas Ablesetabelle in Abrechnungstabelle wandeln
19.05.2025 15:52:23
Volker Tietz
Das war der Versuch die Funktion NACHZEILE (BYROW) in die Lösung einzubauen. Das Internet sagte ich soll ZEILENWEISE verwenden :-( Man soll nicht alles glauben was da steht .
Aber vielen Dank für den Hinweis - seit dem habe ich auch nicht mehr die Fehlermeldung #Name!
Anzeige
AW: Gas Ablesetabelle in Abrechnungstabelle wandeln
19.05.2025 00:08:39
{Boris}
Hi,

Onurs Frage ist berechtigt - was soll "zeilenweise" sein?

Aber check mal vorher alle Daten. Da liegen viele als TEXT vor. Die musst Du erst mal in echte Zahlen / Datümer ändern. Siehe Screenshot - alle rot markierten.

Userbild

Woher soll Excel wissen, dass sich der MwSt-Satz zum 1.2.2025 wieder auf 19% erhöht hat?

VG, Boris
Anzeige
AW: Gas Ablesetabelle in Abrechnungstabelle wandeln
19.05.2025 16:34:35
daniel
Hi
in deiner Beispieldatei sind einige Datums- und Mwst-Werte als Text formatiert.
ist das auch in den Echtdaten so?
Wenn ja, dann bereinige erstmal diese mögliche Ursache und prüfe, ob das Problem damit schon gelöst ist.

Gruß Daniel
AW: Gas Ablesetabelle in Abrechnungstabelle wandeln
19.05.2025 18:49:49
daniel
Hi
meiner Ansicht nach ist das, was du da vorhast, kompletter Unfug, denn die Information, die du auslesen willst, steckt so gar nicht drin.
Die Tabelle sagt dir nur, welchen MwSt-Satz dein Anbieter angewendet hat, aber es steckt keine Information drin, ab wann dieser Satz gilt. Wenn jetzt am 1.4 MwSt-Satz 19% war, kannst du daraus nicht ableiten, ob dieser schon im Februar oder März gültig war, wenn du von diesen beiden Monaten keine Daten hast.
Wenn du für jeden Monat den gültigen MwSt-Satz haben willst, müsstest du eine andere Quelle verwenden, sofern du nicht für jeden Monat mindestens eine Ablesung hast.
Gruß Daniel
Anzeige
AW: Gas Ablesetabelle in Abrechnungstabelle wandeln
19.05.2025 20:28:31
Volker Tietz
Hi Daniel,

alle Informationen stecken in der Abrechnung des Energie/Gas-Lieferanten.

Regel:
- Ein MwSt Satz ändert sich nur zum 1. eines Monates!!
- Da der Gas-Providor nicht alle Kunden an einem Tag ablesen kann - werden die Verbräuche geschätzt.

Beispiel:
Ablesedatum Menge Netto MwSt Brutto
10.11.2022 400qm 300€ 19% 357€ => bis zum 30.11.2022 gelten 19%
15.01.2023 340qm 100€ 7% 107€ => ab dem 1.12.2022 bis 31.01.2023 gelten 7%
01.04.2023 530qm 200€ 19% 238€ => ab dem 1.02,2023 gelten 19%

D.H.
Zwischen dem aktuellen Ablesedatum (01.04.2023) und der vorherigen Ablesung (15.01.2023) muss die 19% für jeden Monat gelten. In diesem Fall: Februar, März, April!

Dank und Gruß
Volker

Dank und Gruß
Volker
Anzeige
AW: Gas Ablesetabelle in Abrechnungstabelle wandeln
20.05.2025 03:15:15
Daniel
Dann beschreibe bitte ohne konkrete Monate zu benutzen, woran man aus den vorhandenen Daten ableiten kann, dass die 7% nur im Januar 2023 gelten und nicht auch um Februar oder März.
AW: Gas Ablesetabelle in Abrechnungstabelle wandeln
21.05.2025 16:03:48
Volker Tietz
Hallo Zusammen,

da ich das Problem mit einer Excel-Formel nicht lösen konnte, habe ich mich mit VBA probiert und ich glaube (noch nicht alles ausgetestet) es funktioniert !
Wobei ich immer noch eine Formel-Lösung bevorzugen würde! Wer eine Idee hat - Bitte posten!
Aber ich würde die Formel voraussichtlich auch anders angehen.
Ich hatte erst die Lösung als ich mir die zwei Schleifen überlegt habe.

Hier die VBA Lösung
- Äußere Schleife: Durchlaufe die Tabelle Auswertung vom Ende also von AK1 bis zum Anfang B1.
- Innere Schleife: Suche von Anfang bis Ende durch die Spalte B2:B der Tabelle Ablesung und finde das Datum mit gleichem Jahr und Monat oder das nächst größere.
- Trage den gefundenen MwSt Satz aus der Spalte D in die Zeile 2 der Auswertung Tabelle.
- Beachte nur die Datensätze bei denen die Zählernummer übereinstimmt!
- Sollte in der Ablesetabelle noch kein Datensatz mit dem Datum aus der Auswertung Tabelle vorhanden sein trage NA ein.

https://www.herber.de/bbs/user/177518.xlsm



Sub MwStProMonat()

Dim wsA As Worksheet: Set wsA = Worksheets("Ablesung")
Dim wsB As Worksheet: Set wsB = Worksheets("Auswertung")

Dim suchZählernummer As String
suchZählernummer = Trim(wsB.Range("A2").Value)

Dim lastRowA As Long
lastRowA = wsA.Cells(wsA.Rows.Count, 1).End(xlUp).Row

Dim ablesedaten As Variant
Dim mwstwerte As Variant
Dim zählernummern As Variant

zählernummern = wsA.Range("A2:A" & lastRowA).Value
ablesedaten = wsA.Range("B2:B" & lastRowA).Value
mwstwerte = wsA.Range("d2:d" & lastRowA).Value

Dim col As Long
Dim letzterMwSt As Variant
letzterMwSt = "NA"

' Durchlaufe Tabelle Auswertung von rechts nach links (Zeile 1)
For col = wsB.Cells(1, Columns.Count).End(xlToLeft).Column To 2 Step -1

Dim monatB As Date
monatB = wsB.Cells(1, col).Value

Dim gefunden As Boolean: gefunden = False
Dim i As Long

' Von unten nach oben durch Tabelle Ablesung
For i = UBound(ablesedaten) To 1 Step -1
If Trim(zählernummern(i, 1)) = suchZählernummer Then
Dim datumA As Date
datumA = ablesedaten(i, 1)

' Wenn Ablesedatum im selben Monat wie das Datum in Tabelle Auswertung
If Month(datumA) = Month(monatB) And Year(datumA) = Year(monatB) Then
letzterMwSt = mwstwerte(i, 1)
gefunden = True
Exit For
End If
End If
Next i

' Trage entweder den gefundenen oder den letzten gültigen MwSt-Wert in die Auswertung Tabelle ein
If Not IsEmpty(letzterMwSt) Then
wsB.Cells(2, col).Value = letzterMwSt
Else
wsB.Cells(2, col).Value = "NA"
End If
Next col
End Sub

Anzeige
AW: Gas Ablesetabelle in Abrechnungstabelle wandeln
19.05.2025 17:54:19
Volker Tietz
Hallo Daniel,

sollte eigentlich nicht sein! Ich habe aber hoffentlich jetzt alles in der Testdatei angepasst.
Ich sehe das ich einfach nicht weiß, ob dieser Ansatz überhaupt die Lösung sein kann?

Dank und Gruß
Volker

https://www.herber.de/bbs/user/177502.xlsx

Anzeige
AW: Gas Ablesetabelle in Abrechnungstabelle wandeln
19.05.2025 18:05:10
{Boris}
Hi,

jetzt haben sowohl Daniel als auch ich Dich darauf hingewiesen, dass einige Deiner vermeintlichen Zahlen / Daten TEXTE sind - ich hab sie Dir sogar rot markiert.
In der nun angehängten Datei ist aber immer noch alles wie vorher...

VG, Boris
AW: Gas Ablesetabelle in Abrechnungstabelle wandeln
19.05.2025 18:52:14
Volker Tietz
Hallo Boris,

eigentlich habe ich alles korrigiert - ich sehe das die Datumszeile B1:L1 alles Datum-Zellen sind

Auch in der Tabelle unten sind alle Felder richtig formatiert - was mache ich da falsch - ich sehe es nicht?

Dank und Gruß
Volker
https://www.herber.de/bbs/user/177504.xlsx
Anzeige
AW: Gas Ablesetabelle in Abrechnungstabelle wandeln
19.05.2025 18:17:52
BoskoBiati
Hi,

1. ein großer Teil Deiner Datumswerte sind Texte. Diese kannst Du nicht umwandeln, wenn Du die Zellen als Datum formatierst! Eine Möglichkeit; in irgendeine Zelle eine 1 schreiben, die Zelle kopieren, die Datumswerte markieren,Inhalte einfügen --> Multiplizieren!
2. Was stellen die %-Werte in Zeile 2 dar? Welchen Bezug haben diese zu der Tabelle in A15:D21?
3. Ich weiß nicht, wo die Formel in Zeile 2 herkommt, aber die passt garnicht zu Deinen Sollwerten.

Gruß

Edgar
Anzeige
AW: Gas Ablesetabelle in Abrechnungstabelle wandeln
19.05.2025 19:55:34
Volker Tietz
Hallo Edgar,

eigentlich sollten alle Formatierungen nun richtig sein.
Die Prozentwerte aus Zeile 2 sind die MwSt die pro Monat erhoben werden - wegen der Energiekrise wurden die MwSt ja von 19% auf 7% gesenkt nun sind sie wieder auf 19%.

Die Abrechnungstabelle (oben) soll daher auf die Ablesetabelle (unten) zugreifen und sich dort die MwSt für jeden Monat holen!

Zur Frage woher Excel wissen soll wann es welchen MwSt berechnen soll?
a) Der MwSt Satz ändert sich nur zum 1. eines Monates!!
b) Der Gaslieferant stellt die Rechnung an mich so aus:

Ablesedatum Menge Netto MwSt Brutto
10.11.2022 400qm 300€ 19% 357€ => bis zum 30.11.2022 gelten 19%
15.01.2023 340qm 100€ 7% 107€ => ab dem 1.12.2022 bis 31.01.2023 gelten 7%
01.04.2023 530qm 200€ 19% 238€ => ab dem 1.02,2023 gelten 19%

Dank und Gruß
Volker
https://www.herber.de/bbs/user/177505.xlsx
Anzeige
AW: Gas Ablesetabelle in Abrechnungstabelle wandeln
19.05.2025 16:23:31
Volker Tietz
Hallo Boris,

Bezüglich Onurs frage - die habe ich dort beantwortet. Danke

Zur Frage woher Excel wissen soll wann es welchen MwSt berechnen soll?

a) Der MwSt Satz ändert sich nur zum 1. eines Monates!!
b) Der Gaslieferant stellt die Rechnung an mich so aus:

Ablesedatum Menge Netto MwSt Brutto
10.11.2022 400qm 300€ 19% 357€ => bis zum 30.11.2022 gelten 19%
15.01.2023 340qm 100€ 7% 107€ => ab dem 1.12.2022 bis 31.01.2023 gelten 7%
01.04.2023 530qm 200€ 19% 238€ => ab dem 1.02,2023 gelten 19%

Ich hoffe das hilft weiter?
Anbei die neue Tetstdatei.

Dank im Voraus und Gruß
Volker
https://www.herber.de/bbs/user/177501.xlsx


Anzeige
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
14.05.2026 09:50:42
13.05.2026 19:14:18