Link zur Excel-Vorlage

Hallo Jan,

ein Hyperlink geht immer zu einer Datei. Deswegen öffnet der Hyperlink auch die Vorlage und nicht eine Kopie.

Wenn deine Links in einer Excel-Mappe sind, ist Excel ja schon geöffnet und du könntest das dann mit einem Event-Makro in dieser Mappe umgehen.

Im Codefenster des Blattes mit den Links:

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)

Dim FN As String

Dim Pfad As String

FN = Target.Address

Pfad = Left(FN, InStrRev(FN, "\"))

With Application

   .ScreenUpdating = False

   .DisplayAlerts = False

End With

Workbooks(Replace(FN, Pfad, "")).Close savechanges:=False

Workbooks.Add template:=FN

With Application

   .ScreenUpdating = True

   .DisplayAlerts = True

End WithEnd Sub
Der Klick auf den Link öffnet zuerst die Vorlage, schließt sie aber direkt wieder und öffnet dann eine Kopie.

Claus

Hallo zusammen,

vielen Dank für die schnellen Antworten und Lösungen!

Ich habe beides mal getestet und es habt beides Funktioniert.

Vermutlich werde ich die Variante von Claus bevorzugen weil ich sonst für jede Vorlage eine eigene Skriptdatei erstellen müsste.

Trotzdem vielen Dank Andreas.

Gruß

Jan

Ja, das Problem hatte ich schon öfters.

Eine richtig saubere Lösung gibt es dafür nicht, aber Alternativen. Claus hat schon eine gezeigt.

Kopier den Text unten in eine Textdatei und speichere diese mit dem Namen der Volage und der Endung .VBS in dem Verzeichnis der Vorlage ab. Dann erstellst Du den Hyperlink zu der VBS-Datei.

Alternativ kannst Du die datei auch hier runterladen:

https://www.dropbox.com/s/ewf533virb7zgr8/OfficeTemplate.vbs?dl=1

Andreas.

'File:

'  OfficeTemplate.vbs

'

'Problem:

'  A hyperlink from an Office application to an Office template opens the template,

'    instead of creating a new file.

'  The proposed solution 

'    support.microsoft.com/kb/278627 

'  did not work.

'

'Solution:

'  Create a hyperlink to a VBS file that starts the process.

'

'Instructions:

'  Copy this VBScript into the same directory of your template.

'  Rename it so that the VBS file name has the name of the template file in front.

'  Example:

'    Template name: test.dotx

'    VBScript name: test.dotx.vbs

'  Create the hyperlink to the VBS file.

Set fso = CreateObject("Scripting.FileSystemObject")

'Get the name of the template

OurName = fso.GetBaseName(WScript.ScriptName)

'Find all files in our directory

For Each File In fso.GetFolder(fso.GetParentFolderName(WScript.ScriptFullName)).Files

  'Did we found the template?

  If StrComp(OurName, File.Name, vbTextCompare) = 0 Then

    'Invoke the default verb

    CreateObject("Shell.Application").Namespace(0).ParseName(File.Path).InvokeVerb

    'Wait a second to let the application start

    WScript.Sleep 1000

    'Done

    Exit For

  End If

Next

Wenn man Oben in Excel auf den runden Button geht, dann kann man wenn man Neu angeklickt hat auf der linken Seite verschiedene Vorlagen wählen und unter "installierte vorlagen" gibt es bei mir eine Vorlage die nennt sich Kreditberechnung. Aber hab den
Fehler mittlerweile selbst lösen können. In der Formel war ein Fehler bei der Felzuweisung.

Danke für deine Hilfe

Hallo Claus

Danke für deine Antwort

Wie schon gesagt habe ich mein eigenes Design gespeichert = kein Problem

In dem von dir genannten Link heißt es dann .....
Speichern als Vorlage

Also einen solchen "Menü punkt" habe ich schon mal nicht .

Folge ich dem Link heißt es dann unter office 2010 dort weiter

4. Klicken Sie im Feld Speichern unter auf
Excel-Vorlage,

Die Möglichkeit Excel-Vorlage versteckt sich im Auswahl-Feld
Dateityp da kann ich den Dateityp Excel-Vorlge auswählen. (Da könnte meiner Meinung nach die Beschreibung genauer/besser sein)

OK ich hab es ja gefunden,

dann speichere ich meine Vorlage im Ordner C:\Users\Roman\AppData\Roaming\Microsoft\Templates
ab richtig?Schön

Wenn ich jetzt Excel starte öffnet sich ein leeres Arbeitsblatt
aber nicht mit meinem Design!

Jetzt muss ich erst auf

1) Datei klicken dann auf 2) Neu dann auf 3)
Meine Vorlagen dann dort 4) meine Vorlage auswählen und erst jetzt habe ich ein Arbeitsblatt mit meinem design. (=Maus, + 4 Klicks)

Dann ist es doch einfacher/schneller ich klicke nach dem Excel Start in dem leeren Arbeitsblatt auf

1) Seitenlayout und dann auf 2) mein Farbschema und ich habe umgestellt (= Maus + 2 Klicks).

Was ich wollte ist:

Das sich nach dem Excel Start öffnende Arbeitsblatt hat als Standard gleich schon
mein Design und

ich brauche gar keine zusätzlichen Klicks um auf mein design umzustellen.

Gibt es eine solche Möglichkeit nicht?

Vielen Dank

mit freundlichen Grüßen