Halo,
kann jemand mir helfen mein Macros etwas ändern?
mein Macros blendet Zeilen aus die ein Wert=0 haben oder leer sind. Ich möchte aber die Zellen geschützt haben...!
Was muß ich in den Macros einfügen, demit der den Schützt ausschaltet, die Zeilen ausblendet und dan den Schützt schaltet wieder ein?
CODE:
Sub HideNullwerte()
' Blendet im Bereich der Tabelle alle Zeilen aus in denen sich leere Zellen oder Nullwerte befinden
Dim Markierung As Range, Wert As String
Set Markierung = ActiveSheet.Range("E4:E45")
For Each Zelle In Markierung
Wert = Zelle.Value
If Wert = "" Or Wert = "0" Then Rows(Zelle.Row).Hidden = True
Next Zelle
End Sub
Danke für eure Hilfe
Gruß
Igor