Hallo Forumgemeinde,

stehe vor einem Problem, welches ich trotz intensiver Internetrecherche nicht gelöst bekomme bzw. einen Ansatz, in welche Richtung in Suchen muss. Nachfolgend aufgeführter Code ist von mir im Rahmen eines kleinen Simulationstools in Excel implementiert. Das Ganze wurde unter Excel 2010 erstellt und funktioniert tadellos. Zufälligerweise habe ich dieses Tools nun unter Excel 2013 getestet. Hierbei kommt es beim Aufrufen der genannten Sub zu folgender Fehlermeldung:

"Laufzeitfehler -2147417838 (80010108): Die Methode Hidden ist für das Objekt Range fehlgeschlagen"

Kann mir jemand von euch mitteilen, worin der Fehler liegen könnte? Vielen Dank vorab für euer Input. 

Hier der Code:

Sub SimKBEAusschalten()

    ThisWorkbook.Worksheets("Dashboard").Unprotect DrawingObjects:=False, Contents:=False, Scenarios:=False
    
        If ThisWorkbook.Worksheets("Hilfstabelle").Cells(68, 6) = "an" Then
            ThisWorkbook.Worksheets("Dashboard").Rows("49:49").EntireRow.Hidden = True
            
        Else
            ThisWorkbook.Worksheets("Dashboard").Rows("49:49").EntireRow.Hidden = False
        End If
        
    ThisWorkbook.Worksheets("Dashboard").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    
End Sub

Gruß

Chris