Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Vorlage auswählen und Arbeitsmappe öffnen

Gruppe

Öffnen

Problem

Wie kann ich aus einem Dialog aus einem festgelegten Vorlagenordner eine Vorlage auswählen und eine darauf basierende Arbeitsmappe laden?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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