Hallo Ihr Lieben,
bei der Ausführung des nachstehenden Codes bekomme ich die Fehlermeldung: Die Methode Copy is fehlgeschlagen? Kann Jemand von Euch hilfreich eingreifen?
Public Sub Auslagern()
Dim myWorksheet As Worksheet
Sheets(Array("Obedience", "WKKlasseBeginner", "WKKlasse1", "WKKlasse2", "WKKlasse3", "IdentListe", "TurnierBericht")).Copy
For Each myWorksheet In ActiveWorkbook.Worksheets
'myWorksheet.UsedRange = myWorksheet.UsedRange.Value
Next
ActiveWorkbook.SaveAs "C:\Obedience\PSV1912Nbg\Daten\" & UserForm2.TextBox1.Value & "-" & Date
ActiveWorkbook.Close
ThisWorkbook.Saved = True
Vielen Dank für Euere Hilfe
Peter S.