Nächste freie Zeile nutzen und variable Dateinamen
18.03.2018 21:07:09
Henri
in zwei anderen Fragen brauche ich Eure Hilfe. Daten werden von einer Quelldatei (Kalkulationsvorlage.xlsm) in eine Zieldatei (umsatz_aktuell.xlsx) kopiert.
FRAGE 1)
Und zwar soll in der Zieldatei "umsatz_aktuell.xlsx" jeweils bei neuen Einträgen:
1) die nächste freie Zeile genutzt werden
2) das Format der Zieltabelle gleich bleiben - also nichts zerschossen werden
Der Code ist wie folgt:
Sub umsatzkopieren()
' umsatzkopieren Makro
If MsgBox("Möchtest du die Umsätze in der Datenbank eintragen?", vbYesNo) = vbYes Then
Workbooks.Open "C:\Users\Marvin\Documents\umsatz_aktuell.xlsx"
Windows("kalkulationsvorlage.xlsm").Activate
Sheets("kopieren").Select
Range("A1").Copy
Windows("umsatz_aktuell.xlsx").Activate
Range("C4").Select
ActiveSheet.Paste
Windows("kalkulationsvorlage.xlsm").Activate
Sheets("kopieren").Select
Range("A2").Select
Application.CutCopyMode = False
Selection.Copy
Windows("umsatz_aktuell.xlsx").Activate
Range("D4").Select
ActiveSheet.Paste
Windows("kalkulationsvorlage.xlsm").Activate
Sheets("kopieren").Select
Range("A3").Select
Application.CutCopyMode = False
Selection.Copy
Windows("umsatz_aktuell.xlsx").Activate
Range("E4").Select
ActiveSheet.Paste
Windows("kalkulationsvorlage.xlsm").Activate
Sheets("Nachkalkulation").Select
Range("B2").Select
Application.CutCopyMode = False
Selection.Copy
Windows("umsatz_aktuell.xlsx").Activate
Range("A4").Select
ActiveSheet.Paste
Windows("kalkulationsvorlage.xlsm").Activate
Sheets("Nachkalkulation").Select
Range("A2").Select
Application.CutCopyMode = False
Selection.Copy
Windows("umsatz_aktuell.xlsx").Activate
Range("B4").Select
ActiveSheet.Paste
End If
End Sub
Die Quelldatei hat per Powershell Befehl jedes Mal einen anderen Namen, da es sich bei meinen Mitarbeitern um deren Kalkulationsdatei handelt. Die haben dann ein Kürzel - z.B. MM und den Kundennamen - Beispiel: MM_kunde1.xlsm
Wie kann ich also in dem oben genannten VBA Code eine Auslese-Abfrage eingeben, damit der Code sich bei einer umbenannten Datei nicht zerschiesst bzw. einen Fehler erzeugt?
Ich hoffe auf Eure Hilfe.
VG
Henri
Kann mir jemand hierbei helfen?
Anzeige