Thema: Mit der Indirekt-Funktion auf geschlossene Arbeitsmappe zugreifen

Home

Gruppe

Funktion

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

Beiträge aus dem Excel-Forum zu den Themen Funktion und INDIREKT

Copy funktioniert nur einmal	Variables Dropdown über Indirekt()
Schreibschutz prüfen funktioniert nicht	Split-Funktion beim Einlesen TXT-Datei
Match Funktion spinnt (?)	SVerweis funktioniert nicht
PasteSpecial funktioniert nicht.	VBA-Code funktioniert nicht mit anderem Office
Hilfe bei der INDEX Funktion	Formel mit INDIREKT
MAX wenn mit Indirekt in Matrixformel	Zelladressen von FunktionsParametern ermitteln
Matrixformel mit Summenfunktion	Formel funktioniert nicht, SVerweis
Makro funktioniert nach Beenden von Excel nicht	VLOOKUP auf Links funktioniert offline
@DAVID Zwei SUMMEWENN funktionen verknüpfen	Zwei SUMMEWENN funktionen verknüpfen
Polynomfunktion	Mit vba Funktionen in Excel Zellen
Rang-Funktion für Strings?	Skript funktioniert nur auf einer seite?!?!
Hyperlink auf Excel-Datei funktioniert nicht	indirekt(verketten.. + sverweis oder alternative
Public Funktion / Variabel	VBA - Suchfunktion - Fehlermeldung
Benutzerdefinierte Funktion	Userform mit Löschfunktion
Frage zu Wenn Dann Funktion	Wenn-Funktion
Frage zur Funktion DISAGIO	Funktion um Chart zu kreieren
Wenn-Funktion verschachtelt	VBA Suchfunktion erweitern
Makro funktioniert nicht richtig	zählenwenn-funktion mit mehreren kriterien
Funktion SVERWEIS	Benutzerdefinierte Funktion in Open Office
Funktion Dezimal -> Zeit/ Variablen-Deklaration	Probleme mit Textfunktionen
Fehler, wenn Variable in Funktion	VBA-Funktion analog =ZELLE("Zeile")
Gültigkeit funktioniert nicht!	Zellausrichtung funktioniert nicht
WENN-Funktion	Hide-Funktion in einem Frame
bereichsnamen mit indirekt zusammensetzen	Suchfunktion
Date Funktion	Matrixformel mit Indirekt() oder welche Alternativ