Vorlage statt neuer Tabelle öffnet sich
09.02.2004 07:48:07
Ralf
Leider öffnen sich beim Anklicken der Links die Vorlagen selber und nicht ein neues Dokument/Arbeitsblatt.
In Word funktioniert das ganze über einen Trick, jedoch nicht in Excel! Es kommt die Meldung "Kann Kopie nicht öffnen, während die Mustervorlage geöffnet ist." Folgender Code stand in der Vorlage:
Private Sub Workbook_Open()
If ActiveWorkbook.Name = ThisWorkbook.Name Then
Workbooks.Add Template:=ThisWorkbook.FullName
ThisWorkbook.Close SaveChanges:=wdDoNotSaveChanges
End If
End Sub
Selbst über einen Umweg über ein Hilfsarbeitsblatt habe ich es nicht geschafft.
Vorlage:
Private Sub Workbook_Open()
Workbooks.Open ("C:\IniVorlage\StartXL.xls")
End Sub
StartXL.xls:
Private Sub Workbook_Open()
Dim w As Workbook, strTemp As String
For Each w In Application.Workbooks
If Trim(Right(w.FullName, 4)) = ".XLT" Then
strTemp = w.FullName
w.Close savechanges:=wdDoNotSaveChanges
Workbooks.Add (strTemp)
End If
Next w
ThisWorkbook.Close savechanges:=wdDoNotSaveChanges
End Sub
Nach dem Öffnen der Vorlagendatei wurde weder diese noch die Start-Datei geschlossen und schon gar nicht eine neue Datei auf Grundlage der Vorlage.
Was muss ich tun?