So blenden Sie Zeilen basierend auf dem Wert einer Zelle in VBA

Question

Ich habe das folgende Problem: Nehmen wir an, ich habe eine Formel in Zelle A1. Wenn der Wert größer oder gleich 0,5 ist, möchte ich, dass die Zeilen 2-4 ausgeblendet werden. Hier ist, was ich zur Zeit:

Private Sub Worksheet_Change(ByVal Target As Range) 

Select Case Target.Address 
    Case "$A$1" 
     Rows("2:4").EntireRow.Hidden = (Target >= 0.5) 
End Select 

End Sub 

Vielen Dank im Voraus

Answer 1

den Code Versuchen Sie unter:

Private Sub Worksheet_Change(ByVal Target As Range) 

Select Case Target.Address 
    Case "$A$1" 
     If Target.Value >= 0.5 Then Rows("2:4").Hidden = True 
End Select 

End Sub 

Wenn Sie Ihren Stil der Codierung halten möchten, können Sie die folgende Zeile verwenden:

Rows("2:4").Hidden = (Target.Value >= 0.5)