Hallo Zusammen,
ich stehe vor folgender Herausforderung, ich will einen Datenabzug aus einer Datei machen, und das funktioniert auch wunderbar, er kopiert mir die relevanten spalten und speichert sie mir richtig ab.
Jetzt will ich das ganze aber noch dahingehend absichern, dass ich die Quell- und Zieldatei manuell anwählen kann, statt sie mit starren Namen zu versehen.
ich habe schon einiges probiert mit getfilename etc. stehe aber auf dem Schlauch.
Anbei ein Ausschnitt, der den Kopierteil beinhaltet:
Workbooks.Open Filename:="Hier stand der Dateipfad zur Quelldatei" 'Dateipfad
' Hol die Werte aus dem Budgetdokument: Abteilung 1
Windows("Budget.xlsx").Activate
Sheets("8155").Select
Range(Cells(4, spalte_source), Cells(26, 14)).Select
Selection.Copy
'Geh ins Auswertungsdokument und füge dort ein
Windows("Auswertung.xlsb").Activate
Sheets("Prognose").Select
Cells(zeile_auswertung, spalte_auswertung).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Und ich will jetzt quasi am Anfang einmal auswählen können, welche Datei welche ist und dann alles durchführen lassen.
Vielen Dank!
|