Makro von Excel 2007 => 2013
01.08.2014 08:55:49
Excel
ich benutze seit kurzem Excel 2013 (noch ohne SP1). Nun habe ich ein Problem mit einem alten VBA Code aus Excel 2007. Dort hat er funktioniert. Jetzt nicht mehr.
Kann ich irgendwo einen Kompatibilitätsmodus einstellen, oder muss ich tatsächlich unter Excel 2007 funktionierende Arbeitsmappen händisch überprüfen?
Der Code sieht folgendermaßen aus:
Select Case Worksheets("Sprachauswahl").Range("C10").Value
Case 1: With ActiveSheet.PageSetup
.RightHeader = ""
.CenterFooter = ""
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = "&""Arial,Standard""&10Ersteller: " & Environ("UserName") & Chr(10) & "Datum: " & Format(ActiveWorkbook.BuiltinDocumentProperties(12), "DD.MM.YYYY")
.LeftFooter = "Erstellt mit Version " & Sheets("Info").Range("B1").Value & " vom " & Sheets("Info").Range("B2").Value
.CenterFooter = "&""Arial,Standard""&10Seite &P von &N"
End With
Case 2: With ActiveSheet.PageSetup
.RightHeader = ""
.CenterFooter = ""
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = "&""Arial,Standard""&10Creator: " & Environ("UserName") & Chr(10) & "Date: " & Format(ActiveWorkbook.BuiltinDocumentProperties(12), "MM-DD-YYYY")
.LeftFooter = "Created with Version " & Sheets("Info").Range("B1").Value & " dated " & Sheets("Info").Range("B14").Value
.CenterFooter = "&""Arial,Standard""&10Page &P of &N"
End With
Case Else
End Select
Excel meckert in der Zeile .RightHeader bei dem Befehl Environ.
Kann mir bitte jemand helfen?
Viele Grüße
Ralf