Skjul linier

Smid denne i arkets modul


Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1")) Is Nothing Then
        If Target.Value = 1 Then
            Rows("20:30").Hidden = True
        Else
            Rows("20:30").Hidden = False
        End If
    End If
End Sub

Det ser umiddelbart ud til at virke. Jeg har følgende formel i A1:

=+HVIS(ER.FEJL(G41);1;HVIS(G41=0;1;""))

Problemet er at makroen først sætter igang hvis jeg trykker F2 i cellen efterfulgt af ENTER. Ved du hvorfor den der ikke sker noget før?

Hmm håber du forstår mit problem selv om jeg fik formuleret det rigtig flot.

en ændring i en formel, kan ikke trikke makroen, kun direkte indtastning.

Har du en celle du fysisk ændrer i, for at formlen ændres, så kan vi bruge den

jeps b5 ændrer jeg via en datavalidering hele tiden. Det er navnet på forskellige personer. Funktionærer får værdien 1 frem i A1 og timelønnede ingenting. Derfor skal linerne 20-30 skjules grundet irrelevante beregninger for funktionærer.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B5")) Is Nothing Then
        If [A1]= 1 Then
            Rows("20:30").Hidden = True
        Else
            Rows("20:30").Hidden = False
        End If
    End If
End Sub

Men er det ikke netop tilfældet, som i mit spørgsmål tidligere, at datavalidering ikke svarer til direkte indtastning?

>> nlr2000, det virker da fint i min Excel2000, at få den til at køre på datavaliderings cellen

Jeg bruger Excel 97 SR2. Og det fungerer ikke

Tak tak kabbak, du er sgu en rumhelt til det her. Så kører det for blåt hold. Tusind tak for hjælpen.

et svar ;-))

tak for point