Excel und VBA: Formeln, Programmierung, Lösungen
Die Excel/VBA-Beispiele
Thema
Datei entsprechend der Eingabe des Dateinamens öffnen
Gruppe
Name
Problem
Bei Eingabe eines Dateinamens in Zelle B2 soll die Datei in dem in Zelle B1 genannten Verzeichnis gesucht und geöffnet werden.
Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.
ClassModule: Tabelle1 Private Sub Worksheet_Change(ByVal Target As Range) Dim sFile As String If Target.Address <> "$B$2" Then Exit Sub sFile = Dir(Range("B1") & "\" & Target) If sFile <> "" Then Workbooks.Open Range("B1") & "\" & sFile Else MsgBox "Arbeitsmappe wurde nicht gefunden!" End If End Sub