Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Home Zurück Vor

Download Beispiel-Arbeitsmappe

Thema

Bei Zelleintrag Datei öffnen

Gruppe

Öffnen

Problem

Bei Ändern des Pfades in Zelle B1 oder des Dateinamens in Zelle B2 soll die jeweilige Datei 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 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