Hallo zusammen,
habe einen Code zum transponieren eines Sheets aufgezeichnet und ein bisschen ergänzr nur leider funktioniert er nicht, erkennt zufällig jemand den Fehler?
UsedRange.Select
Selection.Copy
Worksheets.Add After:=Worksheets(1)
Worksheets(2).Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
End Sub
Greetz Manfred
|