Microsoft Excel

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