Zeilen ausblenden, automatisch wieder einblenden
bertii
wenn in "Tabelle1_Dateneingabe" in Zelle A5 kein Name steht, soll in Tabelle2 die Zeile 5 ausgeblendet werden.
Funktioniert mit dem Marko unten soweit wunderbar, allerdings hätte ich gerne das wenn in "Tabelle1_Dateneingabe" in Zelle A5 ein Name eingetragen wird, die Zeile 5 in Tabelle2 automatisch wieder erscheint. ( funktioniert aber leider nicht )
PS: Die Tabellenblätter haben einen Blattschutz, welcher aber durch das Makro gesteuert wird ?! .
-----------------------------
Private Sub Worksheet_Activate()
Dim Zelle As Range
Application.ScreenUpdating = False
ActiveSheet.Unprotect Password:="xxxxx"
Dim Markierung As Range, Wert As String
Set Markierung = Worksheets("Tabelle1_Dateneingabe").Range("A5:A28", "A30:A53")
For Each Zelle In Markierung
Wert = Zelle.Value
If Wert = "" Or Wert = "0" Then Rows(Zelle.Row).Hidden = True
Next Zelle
ActiveSheet.Protect Password:="xxxxx"
Application.ScreenUpdating = True
End Sub
-------------------------------
würde mich über Eure Hilfe freuen
gruß
Anzeige