Blatt Name in Makro ändern
30.09.2004 14:36:45
Sebastian
hab ein kleines Problem, dass für euch Profis bestimmt kein großer Akt ist, für mich aber bis jetzt unlösbar ist. Ich habe ein Makro geschrieben, dass ein Excel File öffnet von da ein Blatt in ein anderes File kopiert. So weit kein Problem, allerdings hat das Blatt folgenden Namen "MTD 2004" was sich jedes Jahr ändert. Jetzt hätte ich gern, dass das Makro am 1.1.2005 den Blatt Namen "MTD 2004" automatisch auf "MTD 2005" ändert.
Vielen Dank. Ich hoffe ihr könnt mir helfen.
Gruß Sebastian
Set wbkAlt = ActiveWorkbook
wbkAltName = ActiveWorkbook.Name
Workbooks.Open "C:\CEE\IGS_CEMA.WK4"
Set wbkNeu = ActiveWorkbook
'
Windows("IGS_CEMA.WK4").Activate
Sheets("MTD 2004").Copy after:=Workbooks(wbkAltName).Sheets(1)
'
wbkNeu.Close savechanges:=False
'
Sheets("MTD 2004").Select
ActiveWindow.Activate
'
Sheets("MTD 2004").Select
Sheets("MTD 2004").Cells.Select
Selection.EntireRow.Hidden = False
Selection.EntireColumn.Hidden = False
'
Sheets("MTD 2004").Range("A1:AK100").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet3").Select
Sheets("Sheet3").Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
'
Sheets("MTD 2004").Select
Sheets("MTD 2004").Columns.AutoFit