Makro aus Excel 03 geht mit Excel 2010 nicht mehr
Markus
Ich hatte mir unter ERxcel 2003 ein kleines Makro geschrieben mit dem ich bei großen Dateien die Kopfzeile einrichten konnte.
Die funktioniert unter Excel 2003 immer Problemlos.
Seit der Umstellung nach Excel 2010 gibst damit Probleme.
Und zwar kann ich das Makro noch ausführen, doch wenn ich anschließend von einer in die andere Registerkarte wechseln will, stürtzt Excel komplet ab.
Könnt ihr mir sagen was da los ist?
Ich habe schon versucht das Makro neu aufzunehmen und meinen Wünschen enstrechend anzu pasen, auch dises stürtzt jedes Mal ab.
Hier mal der Ursprungscode:
Sub Head_foot()
Application.StatusBar = False
Sheets("Title").Select
lheader = Range("A14").Value
rheader = Range("A15").Value
Dim Counter As Integer
For Each iSheet In ActiveWorkbook.Worksheets
DoEvents
Counter = Counter + 1
With iSheet.PageSetup
.LeftHeader = "&8 " & "Instrument: " & lheader
.RightHeader = "&8 " & "Testname: " & rheader
.CenterHeader = "&8 " & ""
.LeftFooter = "&8 " & "&D" & Chr(10) & ActiveWorkbook.Name
.RightFooter = "&8 " & iSheet.Name
.CenterFooter = "&8 " & "Page - " & "&P" & " of " & "&N"
.PaperSize = xlPaperA4
End With
Next
End Sub