1004..Die Select-Methode konnte nicht..
11.11.2007 11:50:56
Peter
mit dem nachfolgenden Code möchte ich die benannten Tabellen aus dem Workbook kopieren, und dann in einem neuen Workbook im angegebenen Pfad speichern.
Ich bekomme jedoch bei der Zeile "Worksheets(Array(.....).select" die Fehlermeldung
1004 Die Select-Methode konnte nicht ausgeführt werden
Public Sub Auslagern()
Application.ScreenUpdating = False
Worksheets("IdentListe").Visible = True
Dim myWorksheet As Worksheet
Worksheets(Array("Obedience", "WKKlasseBeginner", "WKKlasse1", "WKKlasse2", "WKKlasse3", "IdentListe", "TurnierBericht")).Select
ActiveWorkbook.Windows(1).SelectedSheets.Copy
myWorksheet.UsedRange = myWorksheet.UsedRange.Value
ActiveWorkbook.SaveAs "C:\Obedience\PSV1912Nbg\Daten\" & UserForm2.TextBox1.Value & "-" & Date
ActiveWorkbook.Close
ThisWorkbook.Saved = True
Weiss jemand wo der Fehler liegt?
Danke
Peter S.