Thema
Arbeitsmappe auswählen und öffnen
Gruppe
Öffnen
Problem
Es soll ein Dateiname ausgewählt und die zugehörige Arbeitsmappe geöffnet werden.
ClassModule: DieseArbeitsmappe Sub WkbOpen() Dim vFile As Variant vFile = Application.GetOpenFilename("Excel-Arbeitsmappe (*.xls), *.xls") If vFile = False Then Exit Sub Workbooks.Open vFile End Sub