Zeile ausblenden wenn.....
Steffen
die Liebe Urmila hat mir hier ein Code geschrieben.
Er soll wenn in Mappe1 in die Zelle A5 oder A15 eine 0 steht soll er in Mappe2 die Zeile 9 ausblenden.
Wenn in Zelle A5 oder A15 in Mappe1 nun aber wieder eine andere Zahl, also kein 0 steht, soll er die Zeile 9 in Mappe2 wieder einblenden.
Ich weis leider nicht wo im untenstehenden Programm der Fehler liegt. Er blendet zwar die Zeile aus, blendet sie aber danach nicht mehr ein wenn keine 0 mehr in der Zelle steht.
Wäre über eure Hilfe sehr dankbar!
Gruß
Steffen
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim isect As Range
Set isect = Application.Intersect(Target, Range("A5", "A15"))
If Not isect Is Nothing Then
If Sheets("Mappe1").Range("A5").Value = 0 Or Sheets("Mappe1").Range("A15").Value = 0 Then
Sheets("Mappe2").Rows("9:9").EntireRow.Hidden = True
Else
Sheets("Mappe2").Rows("9:9").EntireRow.Hidden = False
End If
End If
End Sub
Anzeige