AW: Transponieren
18.10.2005 18:02:50
Erich
Hallo BOSSI (?),
schau doch doch mal so nebenbei, was bei https://www.herber.de/forum/faq.htm
unter "Die Kommunikation" über NickNames steht...
Probier mal die folgende Prozedur, die ein neues Sammel-Blatt anlegt, die verwendeten Bereiche aller anderen Blätter kopiert und die Werte in das Sammel-Blatt transponiert einfügt. Wenn außer den Werten auch die Zahlformate übertragen werden sollen, kannst du die auskommentierte (mit "oder" gekennzeichnete) Zeile anstelle der vorherigen Zeile verwenden.
Sub Blaetter_Sammel_Transp()
Dim ws As Worksheet, iRow As Long
Const wsSammel = "Total Data_"
On Error Resume Next
Worksheets(wsSammel).Delete
On Error GoTo 0
Worksheets.Add(Before:=Worksheets(1)).Name = wsSammel
iRow = 1
For Each ws In ActiveWorkbook.Worksheets
If ws.Name <> wsSammel Then
ws.UsedRange.Copy
Cells(iRow, 1).PasteSpecial xlPasteValues, , , True
' oder Cells(iRow, 1).PasteSpecial xlPasteValuesAndNumberFormats, , , True
iRow = iRow + ws.UsedRange.Columns.Count
End If
Next ws
Application.CutCopyMode = False
Cells(1, 1).Select
End Sub
Grüße von Erich aus Kamp-Lintfort (Dies ist ein Gruß.)