Clever-Excel-Forum

Hallo Forenmitglieder,

ich habe folgendes Problem:

Mir liegt eine riesige Excel-Datei vor, die ich bisschen aufräumen möchte. Dabei geht es darum, dass ich einen Befehl benötige, der mir bestimmte Spalten kopiert. Ich brauche zum Beispiel Spalte B, dann brauche ich Spalte AM, dann Spalte BX usw. Also sprich jede 38. Spalte. Das wäre bisschen aufwändig alles manuell zu kopieren.

Ich habe es schon versucht über folgenden Code:


Aber irgendwie funktioniert das auch nicht wirklich. 
Oder geht das mit VBA irgendwie?
Vielleicht weiß ja einer, wie ich das hinkriege.
Besten Dank
kiso0480

Hallo Kiso,

also, wie viele Spalten hast Du denn und wo sollen die hin?
Mit dem Index wird es gehen, Du musst Dir nur einen passenden mathematischen Zusammenhang ausdenken. Ich habe hier mal jede 2. und jede 3. Spalte verarbeitet. Geht bestimmt auch schöner, ist aber erst mal ein Ansatz.

Arbeitsblatt mit dem Namen 'Tabelle1'
	A	B	C	D	E	F	G	H	I	J	K	L
1	1	2	3	4	5	6	7	8	9	1	3	5
2	1	2	3	4	5	6	7	8	9	1	4	7

Zelle	Formel
J1	=INDEX(A:F;ZEILE();(SPALTE()-10)+1)
K1	=INDEX(B:G;ZEILE();(SPALTE()-10)+1)
L1	=INDEX(C:H;ZEILE();(SPALTE()-10)+1)
J2	=INDEX($A:$I;ZEILE();(SPALTE()-9)+2*(SPALTE()-10))
K2	=INDEX($A:$I;ZEILE();(SPALTE()-9)+2*(SPALTE()-10))
L2	=INDEX($A:$I;ZEILE();(SPALTE()-9)+2*(SPALTE()-10))

Diese Tabelle wurde mit Tab2Html (v2.5.0) erstellt. ©Gerd alias Bamberg