Datei über VBA öffnen

[Olerostock]

Hallo zusammen,
ich möchte die Datei "Daten.xlsb" aus dem Pfad "D:\Sammlung\Verträge\Global\2025\" über einen Command Button öffnen und aus dem Tabellenblatt "Ergebnis" die Zellen "K4:R51" kopieren. Nur kopieren
Wie lautet der Code dafür? 

Danke für eure schnelle Hilfe

[Crazy Tom]

moin,

sagt dir der Makrorekorder etwas?

führe deine Schritte von Hand aus und lass den Rekorder dabei mitlaufen
und schon hast du deinen Code den man dann, wenn nötig, noch etwas bearbeiten kann

mfg Tom

[Olerostock]

Moin Tom, 

der Makro-Rekorder sagt mir etwas, aber er nimmt leider nicht den Pfad im Code mit auf. Das lässt mich ja verzweifeln.

Gruß Ole

[cysu11]

Hallo Ole,

der Makrorecorder nimmt das schon auf, du muss natürlich die Datei auch über Excel aufmachen und nicht über den Windows Explorer. ;)

LG, Alexandra

[Crazy Tom]

bei mir sieht das mit dem Rekorder z.B. so aus

Code:

Sub Makro1()
    ChDir "C:\Users\CrazyTom\Documents\Backup\backKonst"
    Workbooks.Open Filename:= _
        "C:\Users\CrazyTom\Documents\Backup\backKonst\Instandhaltung.xlsm"
End Sub

mfg Tom

[Olerostock]

Hi Alexandra,

da hast du recht und jetzt klappt es auch.

Die kopierten Daten möchte ich aber als Werte einfügen und das klappt. nicht. Da bekomme ich immer folgenden Laufzeitfehler.

Code:

Sub Ergebnisseholen()
'
'  Ergebnisseholen  Makro
' NV Werte aus der Report-Datei holen
'
'
    Workbooks.Open Filename:= _
        "C:\Sammlung\Verträge\Global\2025\Daten.xlsb"
    Sheets("RP_NZ").Select
    Range("K4:R52").Select
    Selection.Copy
    Windows("Vergleich Daten April 2025 Test.xlsb").Activate
    Range("B2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _  hier kommt der Laufzeitfehler
        :=False, Transpose:=False
    Windows("Daten.xlsb").Activate
    ActiveWindow.Close
End Sub

---

Hi Tom,

Danke, ich habe es mit dem Makro-Rekorder geschafft. Nur das Einfügen der Daten klappt nicht, siehe meine Antwort bei Alexandra.

Gruß Ole

[knobbi38]

Hallo Ole,

eine ähnliche Frage hast du doch schon mal gestellt:
https://www.clever-excel-forum.de/Thread...e-beziehen

Immer wieder die gleiche Frage zu stellen, gibt keinen Sinn. Du solltest dich schon ein wenig mit VBA beschäftigen, damit du aus solchen Hilfestellungen etwas dazulernen kannst.

Dateinamen und Zellenangabe anzupassen, sollte jetzt nicht so schwer fallen.

Gruß Knobbi38

[cysu11]

Hi Ole,

welche Fehler kommt denn? ;)

LG, Alexandra

[Olerostock]

Hi Alexandra,

Laufzeitfehler 1004
Für diese Aktion müssen alle Zellen die selbe Größe haben.

Ich habe die Zellen in der Datei wo die kopierten Werte eingefügt werden sollen angeglichen und jetzt klappt es auch.

Danke für deine Mühe.

Gruß Ole

[cysu11]

Hi Ole,

hast du verbundene Zellen?

LG, Alexandra