Datei über VBA öffnen
#1
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
Antworten Top
#2
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
Antworten Top
#3
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
Antworten Top
#4
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
Antworten Top
#5
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
Antworten Top
#6
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
Antworten Top
#7
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
Antworten Top
#8
Hi Ole,

welche Fehler kommt denn? ;)

LG, Alexandra
Antworten Top
#9
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
Antworten Top
#10
Hi Ole,

hast du verbundene Zellen?

LG, Alexandra
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 2 Gast/Gäste