Der folgende Code blendet alle Zeilen aus, bei denen man in der 6. Spalte den Wert 0 eingibt:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim rng As Range
Set rng = Columns(7)
If Not Application.Intersect(Target, rng) Is Nothing Then
If Target.Value = 0 Then
Rows(Target.Row).EntireRow.Hidden = True
End If
End If
End Sub
Der Code funktionierte normalerweise super, jetzt musste das Arbeitsblatt aber geschützt werden, damit nicht jeder Hans Wurst in den Formeln herumspielt etc.
Also habe ich das Menü "Extras" --> "Schutz" --> "Blatt schützen" ausgewählt und als Passwort "qwert" eingegeben.
Dummerweise funktioniert jetzt mein Makro nicht mehr, denn es gibt folgende Fehlermeldung aus, wenn es versucht eine Zeile auf Hidden = True zu setzen:
"Laufzeitfehler 1004: Die Hidden-Eigenschaft des Range Objektes kann nicht festgelegt werden"
Markiert ist dann die Zeile:
Rows(Target.Row).EntireRow.Hidden = True
*heul* Hat da jemand eine Idee?
Vielen Dank schonmal,
Zottel