Mit folgender Schleife Transponiere ich praktisch die Werte
B1:H1 nach A2:A8.
Sub einf() For a = 2 To 8 Cells(1, a).Copy Destination:=Cells(b, 1) End Sub So sieht die Tabelle aus: als nächstes sollten die Werte der Zeile 9 nach A10:A16 kopiertOption Explicit
Dim a
Dim b
For b = 2 To 8
a = a + 1
Next
b = b + 1
Next
werden usw.
es sind immer 7 Leerzeilen dazwischen.
die Anzahl der zu kopierenden Werte sind auch immer 7
es sollte praktisch noch eine Schleife über 2000 Zeilen
dazukommen, hier hänge ich etwas...
Danke
Gruß Herbert