|
Hallo,
ich habe untere (verkürzte) Tablle, welches die Einnanhmen ein Gastrobetriebes darstellen sollen. Der Betrieb erwirtschaftet Einnamen, welche entweder mit 7% oder 19% erwirtschaftet werden. Die letzte Spalte sind die Gesamteinnahmen (388,56+252,55=641,11)
| Datum |
Tag |
7% |
19% |
|
Gesamt |
| |
|
|
|
|
|
| 01.10.2024 |
Dienstag |
388,56 |
252,55 |
|
641,11 |
| 02.10.2024 |
Mittwoch |
442,23 |
190,75 |
|
632,98 |
| 03.10.2024 |
Donnerstag |
|
|
|
0,00 |
| 04.10.2024 |
Freitag |
256,15 |
149,75 |
|
405,90 |
| 05.10.2024 |
Samstag |
407,60 |
11,40 |
|
419,00 |
Aus der oberen Tabelle möchte ich nun ein Bucuhungsbeleg mit einem Makroerzeugen. Die Gesamteinnahmen werden im SOLL auf das Konto 1000 gebucht, die beiden anderen Werte im HABEN, wobei die 7% Werte auf das Konto 8300 und die 19% Werte auf das Konto 8400 gebucht werden müssen.
Nachdem ich jetzt eine Weile probiert habe, komme ich auf folgendes Ergebnis:
| Belegdatum |
Buchungstext |
Buchungsbetrag |
Währung |
Sollkonto |
Habenkonto |
| 01.10.2024 |
Umsatz |
0 |
EUR |
1000 |
|
| 01.10.2024 |
Umsatz |
388,56 |
EUR |
|
8300 |
| 01.10.2024 |
Umsatz |
252,55 |
EUR |
|
8400 |
| 02.10.2024 |
Umsatz |
0 |
EUR |
1000 |
|
| 02.10.2024 |
Umsatz |
442,23 |
EUR |
|
8300 |
| 02.10.2024 |
Umsatz |
190,75 |
EUR |
|
8400 |
| 04.10.2024 |
Umsatz |
0 |
EUR |
1000 |
|
| 04.10.2024 |
Umsatz |
256,15 |
EUR |
|
8300 |
| 04.10.2024 |
Umsatz |
149,75 |
EUR |
|
8400 |
Wie ihr sehen könnt, fehlenunter dem Buchungsbetrag beim Sollkonto 1000 IMMER die Gesamteinahmen :-(
Wo ist der Fehler?
Das ist der abschnit für den Übernahe des der Gesamteinanhmen (die Befinden sich in der Quelldatei in spalte G darum cell(i7)
********************************************
' Gesamtbetrag übertragen (mit expliziter Typkonvertierung)
Gesamt = CDbl(wsQuelle.Cells(i, 7).Value) ' Wandle in Double um
.Cells(3) = Gesamt
letzteZeileZiel = letzteZeileZiel + 1
***************************************************
Im Voraus Danke.
Grüße
|