Daten importieren mit Zellenbezug

Hallo liebes Forum!
Ich habe jetzt einige Stunden nach einer Lösung für ein Makro gesucht, jedoch nur Fragmente gefunden, die mir nicht wirklich helfen.
Es geht darum, immer eine bestimmte Range aus Tabellenblatt1 aus einer anderen (Excel)Datei zu importieren. Vom Grundsatz her kein Problem, wenn nicht die Hürde besteht, dass jeden Tag eine andere Datei zu importieren ist, heißt, der Pfad und der Dateiname stets dynamisch ist.
Beispiel:
Pfad der zu importierenden Datei: C:\Beispiel\KW1\Montag, 01.01.2020.xls, Dienstag, 02.01.2020.xls, Mittwoch, 03.01.2020.xls, Donnerstag, 04.01.2020.xls, Freitag, 05.01.2020.xls.... bis C:\Beispiel\KW53\...Freitag, 31.12.2020.xls
Bis C:\Beispiel\ ist der Pfad immer konstant, aber je nach Tagesdatum und KW ist das Auslesen aus einem anderen Unterordner und natürlich einer anderen Datei notwenig.
Mein Ansatzpunkt ist nun der, dass ich in meiner Datei in Tabelle1, B2 das Tagesdatum generieren lasse und in C2 die aktuelle KW.
Nun aber komme ich nicht dahinter, wie ich es hinbekomme, dass das Makro folgendes macht:
Aus C:\Beispiel\Tabelle1C2 & Tabelle1B2 die entsprechende Datei findet und und die Range(z.B. A1:D100) in Tabelle2 A1 einfügt.
Jemand eine Idee?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Public Sub Import() Dim strPfad As String, wbInput As Workbook Application.ScreenUpdating = False With ThisWorkbook.Worksheets("Tabelle2") strPfad "C:\Beispiel\" & .Cells(2, "C") & "\" & .Cells(2, "B") & ".xlsx" Set wbInput = Workbooks.Open(strPfad) wbInput.Worksheets("Tabelle1").Range("A1:D100").Copy .Cells(1, "A").PasteSpecial Paste:=xlPasteValues wbInput.Close False End With Set wbInput = Nothing End Sub

Public Sub Import() Dim strPfad As String, wbInput As Workbook Application.CutCopyMode = False With ThisWorkbook.Worksheets("Tabelle2") strPfad = "C:\Beispiel\" & .Cells(2, "C") & "\" & .Cells(2, "B").Text & ".xlsx" Set wbInput = Workbooks.Open(strPfad) Application.DisplayAlerts = False wbInput.Worksheets("Tabelle1").Range("A1:D100").Copy .Cells(1, "A").PasteSpecial Paste:=xlPasteValues wbInput.Close False End With Application.CutCopyMode = False Set wbInput = Nothing End Sub

Ich nochmal.... die Hilfe, die ich hier bekommen habe, hat wunderbar in meiner Beispieldatei funktioniert. Nun wollte ich das Ganze natürlich für die Datei auf der Arbeit ausarbeiten.
Dazu habe ich nun folgenden Code:

Option Explicit
Sub copieren()
Dim strPfad As String, wbInput As Workbook
Application.CutCopyMode = False
With ThisWorkbook.Worksheets("Invision")
strPfad = "W:\intranet\Teamtreffen\InVison_Listen\" & .Cells(1, "L") & "\" & .Cells(1, "K" _
) & ".xlsm"
Set wbInput = Workbooks.Open(strPfad)
Application.DisplayAlerts = False
wbInput.Worksheets("Tabelle1").Range("A1:D100").Copy
.Cells(2, "A").PasteSpecial Paste:=xlPasteValues
wbInput.Close False
End With
Application.CutCopyMode = False
Set wbInput = Nothing
End Sub

Wenn ich das Makro starten möchte, dann sehe ich auch, dass er genau den richtigen Pfad anspricht und ich weiß auch, dass die Datei dort liegt. Aber es führt dennoch nicht die Funktion aus.
Es erscheint der Fehlerhinweis: Leider konnte "Pfad...\ nicht gefunden werden (es wird der richtige Pfad genannt). Ist es möglich, dass der Pfad verschoben, umbenannt oder gelöscht wurde?
Klicke ich dann auf okay öffnet sich der VBA-Editor und weist den Laufzeitfehler '1004' aus, wo steht, dass auf die gewünschte Datei nicht zugegriffen werden kann, Gründe:
- Name des Dokuments oder Pfad nicht vorhanden --> doch, ist er!
- Das Dokument wird von einem anderen Programm verwendet --> ja, es handelt sich um eine Liste, die auch in einer anderen Excel eingelesen wird - diese Datei MUSS auch den ganzen Tag über geöffnet sein und wird auch ggf. durch einen anderen Nutzer bedient.
-Der Name der Arbeitsmappe, die gespeichert werden soll, ist identisch zu dem Namen eines anderen Dokuments, welches schreibgeschützt ist. --> keine Ahnung, was das Programm mir sagen will?!
Fakt: Wenn ich die Datei manuell/händisch aufrufe, erhalte ich keine Fehlermeldung. Es scheint wohl daran zu liegen, dass ich es über ein Makro mache.
Ich will an der Datei aber keine Änderungen vornehmen, sondern lediglich einen bestimmten Bereich kopieren.
Gibt es eine Möglichkeit, diese Fehlermeldung zu umgehen? Ggf. durch einen Zusatz, o.ä.? Mit der Ergänzung "ReadOnly:=True" etc. habe ich es bereits probiert - klappt leider nicht.
Ich hoffe, es kann mir jemand helfen? Bin für jede Antwort dankbar!!

Beliebteste Forumthreads (12 Monate)

Daten importieren mit Zellenbezug

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread