VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Datei entsprechend der Eingabe des Dateinamens öffnen

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

    


Beiträge aus dem Excel-Forum zu den Themen Datei und Name