Werte von anderer Mappe Transponieren
anderer
Im unteren Code versuche ich von einer Arbeitsmape "Schichtvorlagen.xls"
Werte in die Arbeitsmape "Sortierer.xls" einzufügen.
Leider komme ich da nicht weiter.
Beide Arbeitsmappen befinden sich in einen Ordner.
Könnte mir dazu bitte jemand weiterhelfen?
Gruß
Heinz
Sub Transponieren()
Application.ScreenUpdating = False
Application.CutCopyMode = False
Application.DisplayAlerts = False
Sheets("Schichtplan Sortierer").Range("C6:K36").Copy
Sheets("Jänner").Range("C500").PasteSpecial Paste:=xlPasteValues, Transpose:=True
'Schrumpfer
Sheets("Schichtplan Schrumpfer").Range("C6:G36").Copy
Sheets("Jänner").Range("C509").PasteSpecial Paste:=xlPasteValues, Transpose:=True
'Vorarbeiter Jänner
Sheets("Schichtplan VA").Range("G6:K36").Copy
Sheets("Jänner").Range("C514").PasteSpecial Paste:=xlPasteValues, Transpose:=True
'QS Jänner
Sheets("Schichtplan QS").Range("G6:K36").Copy
Sheets("Jänner").Range("C519").PasteSpecial Paste:=xlPasteValues, Transpose:=True
Application.CutCopyMode = True
Application.ScreenUpdating = True
End Sub