ich habe noch eine Frage. Wie kann ich eine ganze Spalte (E2:E40) aus einem Tabellenblatt kopieren und es in ein anderes Tabellenblatt transponiert einfügen (in die letzte freie Zeile (ab Spalte B))?
Sub Transponieren()
Worksheets("Tabelle1").Range("E2:E40").Copy
Worksheets("Tabelle2").Cells(Rows.Count, "B").End(xlUp).Offset(1).PasteSpecial _
Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
, Transpose:=True
End Sub
MfG Bernd