loop på text

Prøv med:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    For Each c In Range("a1:a22").Cells
        If c.Value = "abc" Then
            Rows("23:24").EntireRow.Hidden = False
            Exit Sub
        End If
    Next
End Sub

Ret A1:A22 til G13:G22.

skal c ikke dimmes som cell?
den fejler ved c.

c.value : method or data member not found?

har den nu :), men den unhider altså ikke

Mystisk. Det gør den fint hos mig, hvis der altså står abc i en af de celler, den looper gennem. Men husk at der er forskel på 'abc' og 'Abc' eller 'ABC'. Hvis den skal kunne gøre det altid, uanset store/små bogstaver, så ret til:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    For Each c In Range("a1:a22").Cells
        If Ucase(c.Value) = "ABC" Then
            Rows("23:24").EntireRow.Hidden = False
            Exit Sub
        End If
    Next
End Sub

Arrrhhh - den er case sensitive - it works!
smider du et svar - takker :

Ja, det er den :-). Her er et svar.