Ich habe eine Tabelle wie folgt angelegt:

A        B            C
12       Row1         Click to Hide
12       Row2         Click to Hide
5        Row3         Click to Hide
4        Row4         Click to Hide
12       Row5         Click to Hide

Ich verwende den folgenden vba-Code, um zu versuchen, alle Zeilen auszublenden, die dieselbe Nummer (in Spalte A) wie die activeCell-Zeile haben, auf die der Benutzer geklickt hat, um sie auszublenden.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(ActiveCell, Range("C:C")) Is Nothing And ActiveCell.Value = "Click to Hide" Then


Dim Cell As Range

Application.ScreenUpdating = False

Range("A4").End(xlDown).Select


For Each Cell In Range(ActiveCell, "A4")
Cell.EntireRow.Hidden = ActiveCell.Offset(0, -2)

Next
Application.ScreenUpdating = True



End If

End Sub

Wenn ein Benutzer beispielsweise in Spalte C in Zeile 1 auf "Click to Hide" klickt, sollten alle Zeilen mit der Nummer 12 in Spalte A ausgeblendet werden.

Im Moment, in dem ich einen Fehlercode erhalte, ist der Versatz von Objekt oder Bereich 1004 fehlgeschlagen. Kann mir bitte jemand zeigen, wo ich falsch liege? Danke im Voraus