Office: Bei Schleife in nächste Spalte springen

Hallo,

ich hänge gerade mit meinen Code fest und finde leider auch durch googeln nicht das richtige für mich. Ich bin auch absolut kein VBA-Profi.
Vielleicht könnt ihr mir ja helfen.

Das ist meine Quell-Tabelle:

A B C D E F G H I
1 Kst1 Kst2 Kst3 Kst4 Kst5 Kst6 Kst7 Kst8
2 Kto1 10 23 76
3 Kto2 26 76 92
4 Kto3 54 97 24
5 Kto4 73 23 40



Nun möchte ich eine neue Zieltabelle mit den Werten aufbauen:

A B C D E
1
2 Kto1 Kst1 Betrag
3 Kto2 Kst1 Betrag
4 Kto3 Kst1 Betrag
5 Kto4 Kst1 Betrag
6 Kto1 Kst2 Betrag
7 Kto2 Kst2 Betrag
8 Kto3 Kst2 Betrag
9 Kto4 Kst2 Betrag
10Kto1 Kst3 Betrag
usw.

Mit dem jetzigen Code kopiert er 4x die Werte (Variable i) der Kst1 in die neue Mappe (variable a).
Wie muss ich den Code ändern, dass nach dem ersten Durchlauf der Zeilen in die nächste Spalte springt? Ausserdem muss auch die Kst fixiert sein.

Code:

Ich hoffe, es war halbwegs verständlich was ich eigentlich möchte und ihr könnt mir helfen.

Vielen Dank im voraus.
Gruß,
Djerun

:)

 

Moin!
Lade mal ein "richtiges" Beispiel hoch.
Denn wie Du siehst, zerschießt die Forensoftware das Layout.

Gruß Ralf

 

Aber klar, ist dann natürlich viel verständlicher.
Dank & Gruß,
Djerun

 

Moin!
Ich sehe ehrlich gesagt keinen Sinn in Deinem Soll-Zustand.
So etwas würde ich immer mittels Pivot-Tabelle, hier erstellt aus der Tabelle Neu, machen.
Dann hat man imo die beste Übersicht:

[parsehtml]<table border="1" cellspacing="0" style="font-family:Calibri,Arial; font-size:11pt; background-color:#ffffff; "> <colgroup><col style="font-weight:bold; width:30px; " /><col style="width:124px;" /><col style="width:49px;" /><col style="width:49px;" /><col style="width:49px;" /><col style="width:109px;" /></colgroup><tr style="background-color:#cacaca; text-align:center; font-weight:bold; font-size:8pt; "><td > </td><td >E</td><td >F</td><td >G</td><td >H</td><td >I</td></tr><tr style="height:18px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >1</td><td >Summe von Betrag</td><td >KST</td><td > </td><td > </td><td > </td></tr><tr style="height:18px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >2</td><td >Sachkonto</td><td style="text-align:right; ">34</td><td style="text-align:right; ">45</td><td style="text-align:right; ">4357</td><td >Gesamtergebnis</td></tr><tr style="height:18px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >3</td><td style="text-align:right; ">248000</td><td style="text-align:right; ">54356</td><td style="text-align:right; ">54356</td><td style="text-align:right; ">54356</td><td style="text-align:right; ">163068</td></tr><tr style="height:18px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >4</td><td style="text-align:right; ">248100</td><td style="text-align:right; ">245</td><td style="text-align:right; ">245</td><td style="text-align:right; ">245</td><td style="text-align:right; ">735</td></tr><tr style="height:18px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >5</td><td style="text-align:right; ">248200</td><td style="text-align:right; ">23452</td><td style="text-align:right; ">23452</td><td style="text-align:right; ">23452</td><td style="text-align:right; ">70356</td></tr><tr style="height:18px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >6</td><td style="text-align:right; ">248210</td><td style="text-align:right; ">24</td><td style="text-align:right; ">24</td><td style="text-align:right; ">24</td><td style="text-align:right; ">72</td></tr><tr style="height:18px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >7</td><td style="text-align:right; ">248300</td><td style="text-align:right; ">425625</td><td style="text-align:right; ">425625</td><td style="text-align:right; ">425625</td><td style="text-align:right; ">1276875</td></tr><tr style="height:18px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >8</td><td style="text-align:right; ">248310</td><td style="text-align:right; ">2</td><td style="text-align:right; ">2</td><td style="text-align:right; ">2</td><td style="text-align:right; ">6</td></tr><tr style="height:18px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >9</td><td style="text-align:right; ">300100</td><td style="text-align:right; ">25</td><td style="text-align:right; ">25</td><td style="text-align:right; ">25</td><td style="text-align:right; ">75</td></tr><tr style="height:18px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >10</td><td style="text-align:right; ">300101</td><td > </td><td > </td><td > </td><td > </td></tr><tr style="height:18px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >11</td><td style="text-align:right; ">300102</td><td style="text-align:right; ">2345</td><td style="text-align:right; ">2345</td><td style="text-align:right; ">2345</td><td style="text-align:right; ">7035</td></tr><tr style="height:18px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >12</td><td style="text-align:right; ">300103</td><td style="text-align:right; ">345</td><td style="text-align:right; ">345</td><td style="text-align:right; ">345</td><td style="text-align:right; ">1035</td></tr><tr style="height:18px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >13</td><td style="text-align:right; ">300202</td><td style="text-align:right; ">2</td><td style="text-align:right; ">2</td><td style="text-align:right; ">2</td><td style="text-align:right; ">6</td></tr><tr style="height:18px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >14</td><td style="text-align:right; ">306000</td><td style="text-align:right; ">45</td><td style="text-align:right; ">45</td><td style="text-align:right; ">45</td><td style="text-align:right; ">135</td></tr><tr style="height:18px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >15</td><td >Gesamtergebnis</td><td style="text-align:right; ">506466</td><td style="text-align:right; ">506466</td><td style="text-align:right; ">506466</td><td style="text-align:right; ">1519398</td></tr></table>[/parsehtml]Excel Tabellen im Web darstellen >>

 

Hallo,

du hast natürlich recht, dass sich der Soll-Zustand auch durch eine Pivot-Tabelle lösen lässt.
(siehe Pivot-Tabelle im Anhang)

Allerdings hat meine echte Datei über 80 Spalten (Kst).
Da ist der Aufwand mit der Pivot-Datei auch etwas höher (ziehen und teilweise Anzahl auf Summen ändern, etc..).

Daher wollte ich das etwas eleganter per VBA lösen *wink.gif*

Schönen Gruß,
Djerun