EXCEL-Formel - Laufzeitfehler 28

Ich habe einen VBA, der funktioniert - aber nach einer Weile zu einem Laufzeitfehler 28 führt . Spalte B3: B11 enthält Hide oder Show von einer Funktion = IF (E3 = 0, "Hide", "Show") E3: E11 hat einen Dollarbetrag oder 0 von einem anderen Blatt. Hier ist der VBA

Sub hidelines()
If Range("B3").Value = "Hide" Then
    Rows("3:3").EntireRow.Hidden = True
ElseIf Range("B3").Value = "Show" Then
    Rows("3:3").EntireRow.Hidden = False
    End If
If Range("B4").Value = "Hide" Then
    Rows("4:4").EntireRow.Hidden = True
ElseIf Range("B4").Value = "Show" Then
    Rows("4:4").EntireRow.Hidden = False
    End If
If Range("B5").Value = "Hide" Then
    Rows("5:5").EntireRow.Hidden = True
ElseIf Range("B5").Value = "Show" Then
    Rows("5:5").EntireRow.Hidden = False
    End If
If Range("B6").Value = "Hide" Then
    Rows("6:6").EntireRow.Hidden = True
ElseIf Range("B6").Value = "Show" Then
    Rows("6:6").EntireRow.Hidden = False
    End If
If Range("B7").Value = "Hide" Then
    Rows("7:7").EntireRow.Hidden = True
ElseIf Range("B7").Value = "Show" Then
    Rows("7:7").EntireRow.Hidden = False
    End If
If Range("B8").Value = "Hide" Then
    Rows("8:8").EntireRow.Hidden = True
ElseIf Range("B8").Value = "Show" Then
    Rows("8:8").EntireRow.Hidden = False
    End If
If Range("B9").Value = "Hide" Then
    Rows("9:9").EntireRow.Hidden = True
ElseIf Range("B9").Value = "Show" Then
    Rows("9:9").EntireRow.Hidden = False
    End If
If Range("B10").Value = "Hide" Then
    Rows("10:10").EntireRow.Hidden = True
ElseIf Range("B10").Value = "Show" Then
    Rows("10:10").EntireRow.Hidden = False
    End If
If Range("B11").Value = "Hide" Then
    Rows("11:11").EntireRow.Hidden = True
ElseIf Range("B11").Value = "Show" Then
    Rows("11:11").EntireRow.Hidden = False
    End If
End Sub

Ich versuche, automatisch Nebenrufe zu tätigen, wenn einer der E3: E11 einen Dollarbetrag oder 0 hat

Ich weiß jede Hilfe zu schätzen - ich bin ratlos ... Danke, Ed ...

microsoft-excel microsoft-excel-2010 worksheet-function vba Ed Regis
quelle

VBA gibt es an: Private Sub Workbook_SheetCalculate (ByVal Sh As Object) gibt es an End Sub

Ed Regis

Ihr Code funktioniert einwandfrei (hidelines). Versuchen Sie jedoch, ihn in Private Sub Worksheet_Change (ByVal Target As Range)

Linga,

Hallo Linga - Vielen Dank, dass Sie sich bei mir gemeldet haben. Ich bin nicht mehr immer die Laufzeitfehler 28 aber , es nicht automatisch ausgeführt werden, wenn das Feld durch die Formel geändert wird oder auch wenn ich manuell eingeben ausgeblendet

Ed Regis

@Linga Hallo Linga - Ich bin nicht mehr immer die Laufzeit Error 28 Danke - aber ist es nicht automatisch ausgeführt werden, wenn das Feld durch die Formel geändert wird oder auch wenn ich manuell eingeben ausgeblendet

Ed Regis

Ich

Linga