Habe den Code jetzt umgeschrieben. Leider bekomme ich immer eine Fehlermeldung wegen des Blattschutzes. Leider weiß ich nicht wo ich es überall positionieren muss, damit es gelingt.

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("C15")) Is Nothing Then

Cells.EntireRow.Hidden = False

    If Range("C15").Value = "Kostenüberschlag +/- 30%" Then
    Rows("840:1048576").EntireRow.Hidden = True
    ElseIf Range("C15").Value = "Kostenberechnung +/- 20%" Then
    Rows("67").EntireRow.Hidden = True
    Rows("67").EntireRow.Hidden = True
    Rows("119").EntireRow.Hidden = True
    Rows("345").EntireRow.Hidden = True
    Rows("507").EntireRow.Hidden = True
    Rows("652").EntireRow.Hidden = True
    Rows("691").EntireRow.Hidden = True
    Rows("840:1048576").EntireRow.Hidden = True
    ElseIf Range("C15").Value = "Kostenanschlag +/- 10%" Then
    Rows("67").EntireRow.Hidden = True
    Rows("75").EntireRow.Hidden = True
    Rows("96").EntireRow.Hidden = True
    Rows("119").EntireRow.Hidden = True
    Rows("122").EntireRow.Hidden = True
    Rows("135").EntireRow.Hidden = True
    Rows("156").EntireRow.Hidden = True
    Rows("180").EntireRow.Hidden = True
    Rows("204").EntireRow.Hidden = True
    Rows("207").EntireRow.Hidden = True
    Rows("218").EntireRow.Hidden = True
    Rows("237").EntireRow.Hidden = True
    Rows("258").EntireRow.Hidden = True
    Rows("275").EntireRow.Hidden = True
    Rows("286").EntireRow.Hidden = True
    Rows("299").EntireRow.Hidden = True
    Rows("308").EntireRow.Hidden = True
    Rows("345").EntireRow.Hidden = True
    Rows("348").EntireRow.Hidden = True
    Rows("359").EntireRow.Hidden = True
    Rows("370").EntireRow.Hidden = True
    Rows("383").EntireRow.Hidden = True
    Rows("400").EntireRow.Hidden = True
    Rows("419").EntireRow.Hidden = True
    Rows("434").EntireRow.Hidden = True
    Rows("455").EntireRow.Hidden = True
    Rows("470").EntireRow.Hidden = True
    Rows("507").EntireRow.Hidden = True
    Rows("510").EntireRow.Hidden = True
    Rows("519").EntireRow.Hidden = True
    Rows("538").EntireRow.Hidden = True
    Rows("559").EntireRow.Hidden = True
    Rows("580").EntireRow.Hidden = True
    Rows("615").EntireRow.Hidden = True
    Rows("652").EntireRow.Hidden = True
    Rows("655").EntireRow.Hidden = True
    Rows("664").EntireRow.Hidden = True
    Rows("691").EntireRow.Hidden = True
    Rows("694").EntireRow.Hidden = True
    Rows("705").EntireRow.Hidden = True
    Rows("720").EntireRow.Hidden = True
    Rows("737").EntireRow.Hidden = True
    Rows("758").EntireRow.Hidden = True
    Rows("767").EntireRow.Hidden = True
    Rows("782").EntireRow.Hidden = True
    Rows("840:1048576").EntireRow.Hidden = True
    ElseIf Range("C15").Value = "" Then
    Rows("42:1048576").EntireRow.Hidden = True
    
End If
End If
End Sub