Nun möchte ich gerne jede zweite Spalte untereinander in einer Spalte zusammenführen so das ich zum Schluss nur noch zwei Spalten habe
Vorher A b c d e f g h i j
Nachher
A B
C D
E F
G H
I J
A | B | |
1 | 1 | 1000 |
2 | 2 | 1001 |
3 | 3 | 1002 |
verwendete Formeln | |||
Zelle | Formel | Bereich | N/A |
A1:A3 | =INDEX(Tabelle1!$A$1:$D$263;WENN(REST(ZEILE();263)=0;263;REST(ZEILE();263));AUFRUNDEN(ZEILE()/263;0)*2-1) | ||
B1:B3 | =INDEX(Tabelle1!$A$1:$D$263;WENN(REST(ZEILE();263)=0;263;REST(ZEILE();263));AUFRUNDEN(ZEILE()/263;0)*2) |
Excel-Inn.de |
Hajo-Excel.de |
XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007 |
Add-In-Version 21.10 einschl. 64 Bit |
Sub spaltenRunter()
Dim i&, faktor&
Const bis = 10 ' halt anpassen
Const hoehe = 263
faktor = 1
With Tabelle1
For i = 3 To bis Step 2
' Debug.Print faktor * hoehe + 1
.Range(.Cells(1, i), .Cells(hoehe, i + 1)).Copy .Range("A" & faktor * hoehe + 1)
.Range(.Cells(1, i), .Cells(hoehe, i + 1)).Clear
faktor = faktor + 1
Next
End With
End Sub
Schöne Grüße,