Aufruf Mustervorlage per Makro
09.08.2004 10:42:06
Karin
ich brauche eure Hilfe. Ich habe eine Mustervorlage erstellt, in der in einer Zelle der Pfad zu einem Ordner steht. Bei Doppelklick auf diese Zelle wird der Explorer mit dem betreffenden Ordner geöffnet. Das funktioniert auch einwandfrei, wenn ich die .xlt-Datei einzeln öffne.
Wenn ich das Öffnen der .xlt-Datei als Makro aufgezeichne, funktioniert das Ganze nicht mehr, sprich bei Doppelklick auf die Zelle mit dem Pfad passiert gar nichts. Was mache ich falsch?
Hier noch die Makros:
In der Personl.xls Aufruf der Musterdatei:
Sub Vorlage_öffnen()
Workbooks.Add Template:="H:\v43\xxx\xxx\Muster.xlt"
End Sub
In der Datei "Muster.xlt" folgendes makro:
Sub auto_open()
Worksheets("Tabelle1").OnDoubleClick = "ExplorerOpen"
End Sub
Sub ExplorerOpen()
Shell "explorer " & Application.Caller, 3
End Sub
Für schnelle Hilfe bin ich sehr dankbar.
Gruß
Karin