Hallo Holger,
es hat funktioniert, vielen Dank für deine Hilfe.
Gruss
Loulita
Holger schrieb am 16.04.2009 10:41:55:
Hallo loulita,
deine Spezifikation reicht für einen konkreten Vorschlag nicht aus. Der Abstand zwischen den Beispielspalten ist z.B. 6 und nicht 3. Die Systematik, welche Zeile weche Spalte füllen soll, ist völlig offen.
Befinden sich Quell- und Zielspalten auf einem oder mehreren Tabellenblättern?
Hinweise:
Ein Tabellenblatt aktivierst du mit
sheets("Tabellenblattname").activate
Die letzte beschriebene Spalte der Zeile i auf dem aktiven Tabellenblatt erhälst du z.B. mit
a = Cells(i, Columns.Count).End(xlToLeft).Column
auf einem anderen Tabellenblatt
a = sheets("Tabellenblattname").Cells(i, Columns.Count).End(xlToLeft).Column
den Inhalt einer Zelle sprichst du mit
a=sheets("Tabellenblattname").cells(Zeilennummer,Spaltennummer).value
an, wobei du "Value" auch weglassen kannst wie auch "sheets("Tabellenblattname")." auf dem aktiven Tabellenblatt. Zeilen und spalten beginnen ihre Zählung mit 1.
Daten von einer Zelle in eine andere überträgst du also mit
sheets("Zieltabellenblattname").cells(Zielzeilennummer,Zielspaltennummer).value=sheets("Quelltabellenblattname").cells(Quellezeilennummer,Quellspaltennummer).value
Eine Schleife von der Spalte G bis zu letzten Spalte der Zeile 3 mit der Sprunggröße 6 zur Abbildung der Tabellenwerte in die erste Spalte kannst du z.B. mit
for i=7 to Cells(i, Columns.Count).End(xlToLeft).Column Step 6
sheets("Zieltabellenblattname").cells((i-7)/6+1,1)=sheets("Quelltabellenblattname").cells(3,i)
next i
erreichen.
Wenn du die Reihenfolge der Zeilen z.B. in ein Array eingibst, kannst du z.B.
z=array(3,2,...)
for j=0 to ubound(z)
for i=7 to Cells(i, Columns.Count).End(xlToLeft).Column Step 6
sheets("Zieltabellenblattname").cells((i-7)/6+1,j+1)=sheets("Quelltabellenblattname").cells(z(j),i)
next i
next j
den Kopiervorgang durchführen.
Jetzt musst du selbst etwas basteln.
Ich hoffe, dass meine Hinweise geholfen haben. Den Code habe ich nicht getestet.
Gruß
Holger
loulita schrieb am 11.04.2009 16:49:51:
Hallo zusammen,
ich habe ein kleines Problem:
Ich soll eine Tabelle aufbauen, die Werte stehen in verschieden Plätzen aber in gleichen Zeilen(z.B. die erste Spalte besteht aus G3, M3, S3,....Immer um 3 Spalten weiter und die Zweite aus G2, M2, S2)
Hat jemand eine Idee?
Danke im Voraus
Gruss
loulita
|