Dynamischer Name der Quelldatei
12.06.2016 15:59:25
Markus
ich möchte aus einer Mappe bestimmte Spalten in eine andere Mappe mittels VBA übertragen. Beide Mappen befinden sich im gleichen Ordner. An sich habe ich schon einen Code, jedoch wird der Name der Quelldatei immer mit dem aktuellen Datum ergänzt. Bedeutet, ich benötige ein Pfad, welcher sich nur auf den Namen der Quelldatei bezieht.
Beispiel: Die Quelldatei hieß gestern: Quelle_11.06.xlsm und heute Quelle_12.06.xlsm. Das Wort Quelle ist immer fester Bestandteil des Dateinamens
Habe dazu folgendes gefunden, jedoch weiß ich nicht, wie ich es sinnvoll in den unteren Code einbauen soll.
Quelle = Dir(strPath & "\*.xlsm")
Loop Until Quelle Workbook.Name
If Quelle = "" Then Exit Sub
Mein Code:
Sub kopieren ()
Workbooks("Quelle.xlsm").Worksheets("Tabelle1").Range("C1:D30").Copy
With Workbooks("Ziel.xlsm").Worksheets("Tabelle1").Range("A1")
.PasteSpecial Paste :=xlValues
.PasteSpecial Paste:=xlFormats
End With
Applications.CutCopyMode=False
Workbooks("Quelle.xlsm").Worksheets("Tabelle1").Range("F1:F30").Copy
With Workbooks("Ziel.xlsm").Worksheets("Tabelle1").Range("D1")
.PasteSpecial Paste :=xlValues
.PasteSpecial Paste:=xlFormats
End With
Applications.CutCopyMode=False
End Sub
Danke.