Gruppe
Datei
Bereich
Name
Thema
Datei entsprechend der Eingabe des Dateinamens öffnen
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