Gruppe
Datei
Problem
Bei Ändern des Pfades in Zelle B1 oder des Dateinamens in Zelle B2 soll die jeweilige Datei geöffnet werden.
ClassModule: Tabelle1
Private Sub Worksheet_Change(ByVal Target As Range)
Dim sFile As String
If Intersect(Target, Range("B1:B2")) Is Nothing Then Exit Sub
sFile = Range("B1").Value & "\" & Range("B2").Value
If Dir(sFile) = "" Then
Beep
MsgBox "Datei " & sFile & " wurde nicht gefunden!"
Else
Workbooks.Open sFile
End If
End Sub