Zeilen ausblenden wenn bestimmter Wert
02.03.2015 15:53:58
Fabian
ich möchte in einem Tabellenblatt bestimmte Zeilen aus/Einblenden, wenn in einer Zelle ein entsprechender Wert eingegeben wird.
Nach ein suche im Netz bin ich auf diesen Code gestoßen, der auch soweit funktioniert...
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$T$7" Then
Rows(188).EntireRow.Hidden = (Cells(7, 20) = 0)
Rows(189).EntireRow.Hidden = (Cells(7, 20) = 0)
End If
End Sub
Nun passiert es aber häufiger das ich in der Tabelle Zeilen manuell lösche oder einfüge... danach funktioniert der Code nicht mehr.
Wie kann/muss ich das anpassen, damit der bezug im Code "mit wandert" wenn ich Zeilen lösche/einfüge?
ist es vielleicht möglich den Zeilen "namen" zu geben und diese an den Code zu übergeben anstatt der festen Nummern?
Vielen Dank im Voraus!
Grüße
Fabian
Anzeige