Makroprobleme mit Excel 2003 > 2007
08.06.2009 17:29:54
Peter
seit der Umstellung von Excel 2003 auf excel 2007 habe ich mit einigen Makros probleme mit der Ausführung.
Der unten aufgeführte Code soll die Namen (Fußzeile) in den Diagrammen ändern.
Dies funktionierte unter Excel 2003 aber nicht mehr unter Excel 2007.
Würde mir jemand bei der Fehlebehebung helfen.
(Dieses Makro hat mir ein freundlicher Helfer hier erstellt)
Private Sub Makro37()
' Tastenkombination: Strg+Umschalt+X
Dim iClick As Integer
iClick = MsgBox( _
Prompt:="Wollen sie wirklich den Namen in allen Diagramme auf M.xxx ändern?", _
Buttons:=vbYesNo)
If iClick = vbYes Then
Call NameFusszeile("M.xxx")
ElseIf iClick = vbNo Then
Exit Sub
End If
End Sub
Private Sub NameFusszeile(strName As String)
'Ändern des Namens in der rechten Fusszeile der Diagramme
Dim objDiagramm As Chart, intSheetNr As Integer
Application.ScreenUpdating = False
Application.EnableEvents = False
For intSheetNr = 11 To 1 Step -1
Sheets("Nr." & intSheetNr).Select
Select Case intSheetNr
Case 1
Set objDiagramm = ActiveSheet.ChartObjects("Diagramm 19").Chart
Case 2
Set objDiagramm = ActiveSheet.ChartObjects("Diagramm 3").Chart
Case 3 To 11
Set objDiagramm = ActiveSheet.ChartObjects("Diagramm 1").Chart
End Select
objDiagramm.PageSetup.RightFooter = strName ****** Hier liegt das Problem
Next
Sheets("Grobe-Analyse").Select
Set objDiagramm = ActiveSheet.ChartObjects("Diagramm 2").Chart
objDiagramm.PageSetup.RightFooter = strName
Sheets("Eingabe").Select
Range("D14").Select
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub
Gruß Dieter
Anzeige