Guten Tag
Ich habe eine Datei mit folgendem Makro.
Leider verstehe ich nicht, dass das Makro unter Office 2007 nicht mehr geht jedoch unter Office 2003 funktioniert.
Was kann der Grund sein?

' Druckbereich mittels Inputbox beim Abwesenheitskalender Jan-Juli Sub Druckbereich_KW() Dim rng As Range Dim sFind As String On Error GoTo ERRORH Application.ScreenUpdating = False     ActiveWindow.Zoom = 80    With ActiveSheet       Do       sFind = InputBox("Bitte die gewünschte Kalenderwoche eingeben              (01,2,3,4.... bis max.27) !", "erstellt Arbeitsplan mit 5 1/2 Wochen ab KW..")          If sFind = "" Then Exit Sub          If IsNumeric(sFind) And sFind > 0 And sFind Then ' Anzahl Wochen (31)          Set rng = .Range("B2:HP2").Find(what:=sFind, LookIn:=xlValues, lookat:=xlWhole) 'Bereich von Auswahl             If Not rng Is Nothing Then             .PageSetup.PrintArea = .Range(.Cells(rng.Row - 1, rng.Column - 2), .Cells(rng.Row + 78, rng.Column + 36)).Address             .PrintPreview             .PageSetup.PrintArea = ""             Application.ScreenUpdating = True             Exit Sub             End If          Else             If MsgBox("Ungültige Wochennummer!" & vbLf & vbLf & _             "Wiederholen ?", vbRetryCancel + vbExclamation, "Hinweis") = vbCancel Then             Application.ScreenUpdating = True             Exit Sub             End If          End If       Loop    End With ERRORH: Application.ScreenUpdating = True End Sub Gruss Reto