Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
404to408
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
404to408
404to408
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Daten aus anderen Excel Dateien einlesen ???

Daten aus anderen Excel Dateien einlesen ?
Stefan
Hallo zusammen !
Wir haben folgendes Problem, wobei der ein oder andere vielleicht
eine Lösunf weiss:
Durch die Formel
='C:\Test\[158287.xls]Tabelle1'!B1
wird erreicht, das in der Zelle, in der die Formel steht, der Wert
aus der Zelle B1 der Tabelle 1 aus der Arbeitsmappe 158287.xls
aus dem Verzeichnis C:\Test angezeigt wird.
In diesem C:\Test - Verzeichnis befindet sich aber nicht nur eine,
sondern hunderte Dateien und es soll auf ALLE Zellen B1
ALLER Arbeitsmappen zurückgegriffen bzw. angezeigt werden.
D.h: Es existiert eine Arbeitsmappe (Übersicht.xls),
die in den Zellen A1 bis A100 die Namen der Arbeitsmappen
enthält auf die zurückgegriffen werden soll und in B1 bis B100
sollen die Werte aus den jeweiligen Arbeitsmappen übernommen werden.
Um dies zu automatisieren, soll die Formel
='C:\Test\[158287.xls]Tabelle1'!B1
dahingehend aktuallisiert werden, das der Ausdruck ...[158287.xls]...
in einer Form wie z.B. ...["&A1&".xls]... den Arbeitsmappennamen
automatisch übernimmt.
Alle Versuche führten bisher zu keinem Ergebnis und
endeten mit dem Fehler: #Bezug!

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
Makrovorschlag ...
Volker
Hallo Stefan,
folgendes Makro muesste Dir die Formeln richtig eintragen:

Sub BezuegeEintragen()
Dim Zeile As Integer
Dim DatName As String
For Zeile = 1 To 100
DatName = Range("A" & Zeile)
Range("C" & Zeile).FormulaLocal = "='C:\Test\[" & DatName & "]Tabelle1'!B1"
Next
End Sub

Gruss
Volker Croll
www.crolltools.decolor>
Kleine Korrektur ...
Volker
Hallo Stefan,
hatte versehentlich die Formeln in Spalte C statt in B eingetragen, sorry.

Sub BezuegeEintragen()
Dim Zeile As Integer
Dim DatName As String
For Zeile = 1 To 100
DatName = Range("A" & Zeile)
Range("B" & Zeile).FormulaLocal = "='C:\Test\[" & DatName & "]Tabelle1'!B1"
Next
End Sub

Gruss
Volker Croll
www.crolltools.decolor>
Anzeige
AW: Kleine Korrektur ...
Stefan
Danke !
Hat sehr geholfen.....
Hab das Makro schon etwas erweitert das ich mehrere Zellen
auslesen kann.
Gruss
Stefan

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige