Gruppe
Datei
Problem
Wie kann ich aus einem Dialog aus einem festgelegten Vorlagenordner eine Vorlage auswählen und eine darauf basierende Arbeitsmappe laden?
StandardModule: basMain
Sub VorlageAuswaehlen()
Dim vTemplate As Variant
Dim sFolder As String, sAct As String
sAct = CurDir
sFolder = Range("B1").Value
ChDrive Left(sFolder, 1)
ChDir sFolder
vTemplate = Application.GetOpenFilename( _
"Vorlagen(*.xlt), *.xlt")
If vTemplate = False Then Exit Sub
Workbooks.Add vTemplate
ChDrive Left(sAct, 1)
ChDir sAct
End Sub