Gruppe
Datei
Problem
Bei Eingabe eines Dateinamens in Zelle B2 soll die Datei in dem in Zelle B1 genannten Verzeichnis gesucht und geöffnet werden.
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