Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Mit der Indirekt-Funktion auf geschlossene Arbeitsmappe zugreifen

Gruppe

INDIREKT

Problem

Wie kann ich das Problem umgehen, dass ich weder mit der INDIREKT-Funktion noch mit VBA auf geschlossene Arbeitsmappen zugreifen kann?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: basMain

Sub Importieren()
   Dim rng As Range
   Dim sFormula As String, sPath As String
   Dim sWkb As String, sWks As String
   sPath = ThisWorkbook.Path
   sWkb = Range("F1").Value
   If Dir(sPath & "\" & sWkb) = "" Then
      Beep
      MsgBox "Testdatei wurde nicht gefunden!"
   End If
   sWks = Range("F2").Value
   sFormula = "='" & sPath & "\"
   sFormula = sFormula & "[" & sWkb & "]"
   sFormula = sFormula & sWks & "'!"
   For Each rng In Selection.Cells
      rng.Formula = sFormula & rng.Address
   Next rng
   With Selection
      .Value = .Value
   End With
End Sub