Thema: Wert aus geschlossener Arbeitsmappe

• Variablendeklaration
• Quellpfad an String-Variable übergeben
• Quelldateiname an String-Variable übergeben
• Quelltabellenname an String-Variable übergeben
• Name des benannten Bereiches an String-Variable übergeben
• Wenn die Quelldatei im vorgegebenen Verzeichnis nicht existiert...
• Warmton
• Negativmeldung
• Prozedur verlassen
• Fehlerroutine starten
• In Zelle IV1 den Link zur geschlossenen Arbeitsmappe eintragen
• Den Wert aus Zelle IV1 in die TextBox eingeben
• Zelle IV1 leeren

Private Sub cmdOK_Click()
   Dim sPath As String, sFile As String, sWks As String
   Dim sRange As String
   sPath = "c:\test"
   sFile = "test.xls"
   sWks = "Tabelle1"
   sRange = "Auftraggeber"
   If Dir(sPath & "\" & sFile) = "" Then
      Beep
      MsgBox "Datei " & sFile & " nicht gefunden!"
      Exit Sub
   End If
   On Error Resume Next
   Range("IV1").Formula = "='" & sPath & _
      "\[" & sFile & "]" & sWks & "'!" & sRange
   txtImport.Text = Range("IV1").Value
   Range("IV1").ClearContents
End Sub