Sub Hide()
Dim rng As Range
Dim iRow As Range
Dim hidden_status As Boolean
Set rng = Range("D6:AC118")
For Each iRow In rng.Rows
If Not IsEmpty(iRow.Value) Then
With iRow.EntireColumn
hidden_status = .Hidden 'Error !
.Hidden = Not hidden_status
End With
End If
Next iRow
Ich will die Hide - Funktion anwenden in einem Blatt was schreibgeschützt ist. Es soll in einem schreibgeschützten Bereich. Einen bestimmte Bereich "verstecken" also wegblenden. Aber in diesem Bereich sollte man auch ebenfalls die Möglichkeit haben, etwas reinzuschreiben sobald ich aber etwas eingebe bekomme ich die Fehlermeldung Die Hidden-Eigenschaft des Range Objektes kann nicht zugeordnet werden? Und markiert mir die Zeile wo Error steht^^
Danke an alle=)