Hallo liebe VBA Community,
ich habe folgendes Problem und würde es gerne durch ein VBA Makro lösen.
Zunächst einmal habe ich eine Tabelle z.b. mit dem Range von a1: d6.
Local 1 Code |
Gl Code |
Name |
Allocation |
301110 |
301100 |
Zinserträge Karten |
0 |
301111 |
301100 |
Zinserträge Karten IPLCC |
-70 |
301140 |
302200 |
Zinserträge Loans |
80 |
301141 |
303340 |
Zinserträge Loans IP1CL |
0 |
301142 |
305000 |
Zinserträge Loans IP2CL |
100 |
Nun sollte das Makro folgendes machen:
Falls der Wert in Spalte d < 0 ist,
dann sollte folgende Zeile kreiert werden:
DEBIT amount |
CREDITamount |
Account type |
Local1 |
GL Code |
Costcenter |
Product/Partner |
70,00 |
|
G |
301111 |
301100 |
310000 |
999999 |
|
70,00 |
G |
301111 |
301100 |
320000 |
999999 |
Falls der Wert in Spalte d > 0 ist,
sollte folgende Zeile angefügt werden:
DEBIT amount |
CREDITamount |
Account type |
Local1 |
GL Code |
Costcenter |
Product/Partner |
80,00 |
|
G |
301140 |
302200 |
320000 |
999999 |
|
80,00 |
G |
301140 |
302200 |
310000 |
999999 |
So dass, falls ich nur die ersten drei Zeilen berücksichtigen würde, sich folgende Tabelle ergeben würde:
Die Unterschiede liegen in dem Wert für das Costcenter.
DEBIT amount |
CREDITamount |
Account type |
Local1 |
GL Code |
Costcenter |
Product/Partner |
70,00 |
|
G |
301111 |
301100 |
310000 |
999999 |
|
,00 |
G |
301111 |
301100 |
320000 |
999999 |
80,00 |
|
G |
301140 |
302200 |
320000 |
999999 |
|
80,00 |
G |
301140 |
302200 |
310000 |
999999 |
Hat jemand eine Idee? Danke für eure Hilfe.
|