Ich möchte aus einer bestehenden Arbeitsmappe 2 Blätter in eine neue Arbeitsmappe kopieren:
Bekomme aber bei
.copy before....
die Fehlermeldung "Index außerhalb des gültigen Bereichs"
Woran hakt es?
Vielen Dank und Grüße G
Sub Kopieren()
Dim wbNeu As Workbook
Set wbNeu = Workbooks.Add
ThisWorkbook.Activate
With ThisWorkbook.Worksheets("Fehlzeiten")
.Copy before:=Workbooks("wbneu").Sheets(1)
End With
With ThisWorkbook.Worksheets("EinDienst")
.Copy before:=Workbooks("wbneu").Sheets(1)
End With
End Sub