Sub Transponieren()
'Die Daten stehen in Spalte "A" in vierer-Blöcken
'zwischen den daten ist jeweils eine Leerzeile
'Die Daten werden ab "B1" eingefügt
Dim intC As Integer
Dim lngRow As Long
Dim lngR As Long
lngRow = 1
Do
For intC = 1 To 4
Cells(lngRow, intC + 1) = Cells(lngR + intC, 1)
Next
lngRow = lngRow + 1
lngR = lngR + 5
Loop While lngR < 1000 'Anzahl der Zeilen
End Sub
Sub Transponieren()
'Die Daten stehen in Spalte "A" in vierer-Blöcken
'zwischen den daten ist jeweils eine Leerzeile
'Die Daten werden ab "B1" eingefügt
Dim intC As Integer
Dim lngRow As Long
Dim lngR As Long
lngRow = 1
Do
For intC = 1 To 4
Cells(lngRow, intC + 1) = Cells(lngR + intC, 1)
Next
lngRow = lngRow + 1
lngR = lngR + 5
Loop While lngR < 1000 'Anzahl der Zeilen
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen