Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

VBA .copy aus variablem Workbook
#1
Hey Leute,

ich habe eine Datei, die in unserem Poolordner liegt und Bezüge zu anderen und neuen Mappen aus dem Poolordner hat, daher würde es keinen Sinn ergeben alle Dateien und Makros einzufügen.

Ich versuche das Problem trotzdem so einfach wie möglich zu beschreiben.

Ich versuche per Makro eine Mappe anzusprechen, die bereits offen ist. Die heißt je nach Monat für Februar bspw. 02_2021_SOLL_IST_Gesamt oder halt für März 03_2021_SOLL_IST_Gesamt

Diese Mappe spreche ich per Makro aktuell so an (Funktioniert auch alles):

Code:
Application.Workbooks("02_2021_SOLL_IST_Gesamt.xlsx").Worksheets("SOLL-IST 01_2021").Range("A1:AP1000").Copy

Jetzt möchte ich natürlich diesen Teil :

Code:
("02_2021_SOLL_IST_Gesamt.xlsx")
variabilisieren.

Versuchen tue ich das mit 

Code:
Dim SIG As String

SIG = Range("E1")
in E1 steht bei meiner Datei genau das 02_2021_SOLL_IST_Gesamt

Und nun würde ich gerne den Code so machen:

Code:
Application.Workbooks("*SIG*"&".xlsx").Worksheets("SOLL-IST 01_2021").Range("A1:AP1000").Copy
funktioniert allerdings nicht

kann mir da jemand helfen. Jede Idee mit Hilfestellungen oder Alternativen würde mir genügen

MfG
Tobi
Antworten Top
#2
Hi,

was soll "*SIG*"
SIG ist doch deine Variable mit dem Mappennamen 

also einfach Application.Workbooks(SIG &".xlsx")
Gruß Jeanie
[-] Folgende(r) 1 Nutzer sagt Danke an Jeanie für diesen Beitrag:
  • CHASiN1994
Antworten Top
#3
gelöscht
Gruß Stefan
Win 10 / Office 2016
Antworten Top
#4
OMG.. einzige Sache die ich nicht ausprobiert habe. 

Many Thanks.
Antworten Top


Gehe zu:


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