Sub DatenpoolSepariertTransponieren()
Dim lngZ As Long
Dim wsDatenpool As Worksheet
'Name des Tabellenblattes, das die Liste enthält - bitte anpassen :
Set wsDatenpool = Worksheets("Datenpool")
With wsDatenpool
For lngZ = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
Sheets.Add.Name = .Cells(lngZ, 1) 'Name des neuen Blattes aus Spalte A
.Rows(1).Copy
[A2].PasteSpecial Transpose:=True 'Überschriften transponiert kopieren
.Rows(lngZ).Copy
[B2].PasteSpecial Transpose:=True 'Datenzeile transponiert kopieren
[A1].Select
Next
End With
Application.CutCopyMode = False
Set wsDatenpool = Nothing 'Speicher für Variable wieder freigeben
End Sub
Ich habe den vorher zitierten Quellcode gefunden. Nun habe ich eine große Tabelle.
Ich benötige ein Makro was es schafft aus allen Zeilen ein einzelnes Tabellenblatt zu machen.
Wie sind die Befehle dafür, oder wie ist der obige Quellcode zu lesen?
Außerdem wird immer ein Fehler bei Worksheet ausgegeben, warum? Auch mit anderen Datentypen ging es nicht.
|