Ich habe ein Problem: Ich möchte von der Datei Schichtplan zum kopieren, in die Datei 2013.Test
Werte Transponieren.
Es funkt.leider nicht wie gewollt.
Könnte mir bitte jemand Helfen ?
Gruß
Heinz
Sub Transponieren()
Windows("Schichtplan zum kopieren.xls").Activate
Sheets("Schichtplan Sortierer").Range("C6:K36").Copy
Windows("2013.Test.xls").Activate
Sheets("Jänner").Range("C500").PasteSpecial Paste:=xlPasteValues, Transpose:=True
Windows("Schichtplan zum kopieren.xls").Activate
Sheets("Schichtplan Schrumpfer").Range("C6:G36").Copy
Windows("2013.Test.xls").Activate
Sheets("Jänner").Range("C509").PasteSpecial Paste:=xlPasteValues, Transpose:=True
End Sub