Wer kann mit einem Makro helfen?
Inhalte der Zeilen in Spalten mit einem Makro Transponieren.
Siehe Beispiel: Danke achim H.
https://www.herber.de/bbs/user/31038.xls
Sub InhaltTransponiertEinfuegen()
On Error Resume Next
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= False, Transpose:=True
End Sub
Sub mitLeerzeilen()
For j = 1 To 10 '(zeilen)
For i = 5 To 35 '(Spalten)
Cells((j - 1) * (35 - 5) + (i - 5) + 2, 37).Value = Cells(j + 1, i).Value
Next i
Next j
End Sub
Sub ohneLeerzeilen()
ausgabezeile = 2
For j = 1 To 10 '(Zeilen)
For i = 5 To 35 '(spalten)
Source = Cells(j + 1, i).Value
If Source <> "" Then
Cells((j - 1) * (35 - 5) + (i - 5) + 2, 37).Value = Cells(ausgabezeile, i).Value
ausgabezeile = ausgabezeile + 1
End If
Next i
Next j
End Sub
Sub mitLeerzeilen()
For j = 1 To 10 '(zeilen)
For i = 5 To 35 '(Spalten)
Cells((j - 1) * (35 - 4) + (i - 5) + 2, 37).Value = Cells(j + 1, i).Value
Next i
Next j
End Sub
Sub ohneLeerzeilen()
ausgabezeile = 2
For j = 1 To 10 '(Zeilen)
For i = 5 To 35 '(spalten)
Source = Cells(j + 1, i).Value
If Source <> "" Then
Cells(ausgabezeile, 37).Value = Cells(j + 1, i).Value
' Cells(j + 1, i).Interior.ColorIndex = 3 'färbt gelesene Zellen rot
ausgabezeile = ausgabezeile + 1
End If
Next i
Next j
End Sub