Zeilen ausblenden wenn
24.02.2018 13:45:17
Karlsson
Habe das Forum schon durchsucht, aber als Anfänger noch keine Lösung umsetzen können. In einem _
Arbeitsblatt werden einige Werte berechnet. Nun möchte ich, dass z.B. wenn die Formel in A42 _
den Wert 0 (0,00) ausgibt, die Zeilen 45-61 ausblenden. Habe mir folgendes Makro _ zusammengeschustert, welches allerdings nur bei manuellen Eingaben zu funktionieren scheint:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim varAusblend As Range
Dim varSchalter As Range
Set varAusblend = ActiveSheet.Rows("45:61")
Set varSchalter = ActiveSheet.Cells(42, 1)
If varSchalter.Value = 0 And varAusblend.Hidden = False Then
varAusblend.Hidden = True
Else
If varSchalter.Value 0 And varAusblend.Hidden = True Then
varAusblend.Hidden = False
End If
End If
End Sub
Wie muss ich es anpassen, dass auch bei Änderungen des Formelresultates die Zeilen ausgeblendet werden?
Mfg, Karlsson