variabler name für excelmappe
26.04.2009 20:57:58
meixner
möchte eine Tabelle aus einer Excelmappe in eine andere kopieren.
Dabei öffne ich per Makro eine Excelmappe, deren Namen sich mit dem Datum täglich ändert.
z.B heute heisst die Datei: DAX2009042005 (immer das gestrige Datum)
Aus dieser Datei muss ich in eine andere Datei eine Tabelle kopieren. Klappt aber wegen dem Datum nicht, dass sich täglich ändert? Kann mir jemand einen Tip geben? Unten das Makro...
Sub kopieren()
Dim arbeitsmappe As String
arbeitsmappe = "C:\Fonds\DAX" & Format(Date - 1, "YYYYMMDD")
Application.Workbooks.Open arbeitsmappe
Dim mappe1 As Workbook
Dim mappe2 As Workbook
Application.ScreenUpdating = False
Set mappe1 = Workbooks("test.xls")
Set mappe2 = Workbooks("DAX & Format(Date-1, YYYYMMDD.xls") HIER KLAPPT NICHT!!!!!!!!!!!!!!!
mappe1.Worksheets(1).Range("a6:a20").Copy
mappe2.Worksheets(2).Activate
ActiveSheet.Paste Destination:=Worksheets(2).Range("b3:b20")
Application.ScreenUpdating = True
Set mappe1 = Nothing
Set mappe2 = Nothing
End Sub
vielen Dank.
dani