Microsoft Excel

Herbers Excel/VBA-Archiv

Makro von Excel 2007 => 2013

Betrifft: Makro von Excel 2007 => 2013 von: Ralf
Geschrieben am: 01.08.2014 08:55:49

Hallo Forum,

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

  

Betrifft: AW: Makro von Excel 2007 => 2013 von: Hajo_Zi
Geschrieben am: 01.08.2014 09:38:26

Hallo Ralf,

bei mir geht es.
Vielleicht?
Date, Left usw fehlt
http://www.ms-office-forum.net/forum/showthread.php?t=148516
NICHT VORHANDEN im VBA Editor, Verweise deaktivieren

GrußformelHomepage


  

Betrifft: AW: Makro von Excel 2007 => 2013 von: Ralf
Geschrieben am: 01.08.2014 09:48:27

Hallo Hajo,

danke, es hat funktioniert.
Warum auch immer.
Es gab tatsächlich einen Verweis. Keine Ahnung warum.
Aber bei dem Environ gab es eine Fehlermeldung.

Sei's drum.

Viele Grüße

Ralf