Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Daten aus anderer Datei holen

Daten aus anderer Datei holen
20.09.2024 07:24:25
Patz
Hallo,

ich möchte Daten aus einer anderen Excel Datei holen.

Das funktioniert soweit auch super, nur haben ich ca. 100 Tabellenblätter und in jedem hole ich über SVERWEIS die Daten aus der anderen Excel Datei raus.

Wenn ich jetzt mal die Datei ändere müsste ich für alle 100 Tabellenblätter den Namen ändern.

Ich möchte das ich z.B. in Zelle B1 die Formel habe: =SVERWEIS(B8;'C:\Test\[83660.xlsx]PLZ'!$A:$B;2;)

Und in Zelle A1 den Link schreibe, wo ich die Daten raushole. : C:\Test\[83660.xlsx]PLZ

Wie kann ich das in die Formel B1 angeben, das er diese Adresse hier nimmt?

Denn dann brauche ich nur 1 Mal die Adresse von der anderen Datei ändern und bei alle 100 Tabellblätter greift die Formel aus A1 zu.


z.B. so.:in A1 steht: C:\Test\[83660.xlsx]PLZ
in B1 steht: =SVERWEIS(B8;'A1'!$A:$B;2;)

lg. Patz
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Daten aus anderer Datei holen
20.09.2024 08:21:36
Eifeljoi 5
Hallo

Bei soviel Daten mache ich alles ohne Formel und nutze nur Power Query.
Hilfe gewünscht zu PQ?
AW: Daten aus anderer Datei holen
20.09.2024 10:33:16
Patz
Hallo,

hat noch jemand eine Idee wie man mein Problem lösen kann mittels Formeln?

lg. Patz
AW: Daten aus anderer Datei holen
20.09.2024 11:23:29
UweD
Hallo

Über VBA könnte der Pfad zur Datei geändert werden.
Ich habe mal was geschrieben, aber selbst mir, wo ich das Vorgehen kenne sind Fehler passiert und der Ablauf wurde gestört

- Der Pfad steht in A1 auf dem ersten Blatt
- Wird dort was geändert, wird erst ermittelt, was vorher dort stand
- das Makro durchläuft nun alle Zellen, die eine Formel enthalten und tauscht den Vorherpfad durch den neu eingegebene Pfad aus
- das gleiche macht er für alle Tabellenblätter
Das Ganze läuft automatisch ab, bei Änderungen in A1


Fehleranfällig:
- beim ersten Durchlauf, wenn der Pfad in den Formeln nicht zu dem Wert in A1 passt / Das solltest du sicherstellen, bevor du den Code wie folgt reinkopierst
- Auch sollten Die Quelldateien geschlossen sein

Gehe wie folgt vor
- Rechtsclick auf den Tabellenblattreiter (Tabelle1)
- Code anzeigen
- Das hier reinkopieren

Private Sub Worksheet_Change(ByVal Target As Range)

Dim TB As Worksheet, Z, AltFormel As String, NeuFormel As String
On Error GoTo Fehler
Const APPNAME = "Worksheet_Change"

If Not Intersect(Target, Range("A1")) Is Nothing Then

'Alte Formel ermitteln
NeuFormel = UCase(ActiveSheet.Range("A1"))
With Application
.EnableEvents = False
.Undo
AltFormel = UCase(ActiveSheet.Range("A1")) 'alte Formel vor der Änderung
ActiveSheet.Range("A1") = NeuFormel 'Neue Formel wieder reinsetzen
.EnableEvents = True
End With

'Jedes Blatt wird durchlaufen
For Each TB In ThisWorkbook.Worksheets

Application.EnableEvents = False
For Each Z In TB.Cells.SpecialCells(xlCellTypeFormulas, 23) ' alle Zellen mit Formel

'in der Formel wird der Pfad ersetzt
Z.Formula = UCase(Replace(UCase(Z.Formula), AltFormel, NeuFormel))

Next
Application.EnableEvents = True

Next
End If
'*** Fehlerbehandlung
Err.Clear
Fehler:
Application.EnableEvents = True
If Err.Number > 0 Then MsgBox "Fehler in Sub """ & APPNAME & """" & vbCrLf _
& "Fehlernummer: " & Err.Number & vbLf & Err.Description: Err.Clear
End Sub


LG UweD
Anzeige
AW: Daten aus anderer Datei holen
20.09.2024 12:29:51
SF
Hola,
das geht mit Indirekt(). Aber dabei müssen alle Dateien geöffnet sein.
Ansonsten geht das nicht per Formel.
Gruß,
steve1da
AW: Daten aus anderer Datei holen
20.09.2024 08:23:23
Patz
Hallo, damit kenne ich mich nicht aus.

Ich würde gerne bei der alten Variante mit der Formel bleiben.

lg. Patz
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige