Habe eine Muster-XL-Datei angelegt mit mehreren Sheets. In jedem Sheet sind unterschiedliche Format-Muster (auch unterschiedliche Zeilenhöhen und Spaltenbreiten) die ich über eine UserForm geteuerte Oberfläche in ein neues Workbook kopieren möchte. Danach die entsprechenden Zellen des neuen Workbooks ebenfalls über die UserForm füllen und das ganze dann ausdrucken.
Zur Zeit hängt mein Fortschritt an dem Problem, dass ich eine Fehlermeldung bekomme wenn ich ein Sheet aus der Musterdatei auswählen will.
Möchte unbedingt mit GetObject arbeiten, da die Musterdatei nicht geöffnet werden soll.
Habe im Deklarationsabschnitt
Dim Musterobjekt As Object 'angegeben
in Private Sub UserForm_Activate() steht dann ua.
ChDir "C:\Monatsplan"
sPath = "C:\Monatsplan\"
Set Musterobjekt = GetObject(sPath & "muster.xls")

Beim Aufruf in der entsprechenden Sub geht das hier schief:
Musterobjekt.Sheets("4 Sonntage").Select
Cells.Select
Selection.Copy
Workbooks.Add
Cells.Select
ActiveSheet.Paste
VBA meldet bei Musterobjekt.Sheets("4 Sonntage").Select einen Laufzeitfehler 1004. Die Select-methode des Worksheet-Objects konnte nicht ausgeführt werden!
HAbe das ganze auch schon mit
Workbooks.Open (sPath & "Muster.xls")
Sheets("5 Sonntage").Select
Cells.Select
Selection.Copy
Workbooks.Add
Cells.Select
ActiveSheet.Paste
Application.DisplayAlerts = False
versucht, das geht auch nicht!
Weiß jetzt auch nicht mehr weiter und hoffe, dass mir jemand helfen kann.
Viele herzlichen Dank im Voraus
Gruss Gerd