On Error
Heinz
Habe ein Problem,für die Fehlerbehandlung.
Wenn das Workbooks wkb1 ("Schichtvorlagen.xls")
Nicht vorhanden(geöffnet) ist, dann MsgBox "bla bla"
Code anhalten.
Könnte mir bitte jemand weiterhelfen?
Gruß
Heinz
Option Explicit
Sub Transponieren()
Dim wkb1 As Workbook, wkb2 As Workbook
Set wkb1 = Workbooks("Schichtvorlagen.xls")
Set wkb2 = Workbooks("Sortierer.xls")
Application.ScreenUpdating = False
wkb1.Sheets("Schichtplan Sortierer").Range("C6:K36").Copy
wkb2.Sheets("Jänner").Range("C500").PasteSpecial Paste:=xlPasteValues, Transpose:=True
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub