letzte Hilfe!

Bild

Betrifft: letzte Hilfe!
von: rokki
Geschrieben am: 11.02.2005 13:31:36
hallo forum
bin am ende !!!! kann mir jemand helfen?


Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Range("A6:F6"), Target) Is Nothing Then Exit Sub
    If Target.Cells.Count <> 1 Then Exit Sub
    Target.Offset(0, 1).Select
Exit Sub
'Blattschutz aufheben
    ActiveSheet.Unprotect
    Else
    If Target.Column = 5 Then
    If Target.Value = "U" Then
    Target.EntireRow.Hidden = True
    
    
    'Blattschutz aktivieren
    With ActiveSheet
    .EnableAutoFilter = True
    .Protect userinterfaceonly:=True
    End With
       Exit Sub
    End If
    End If
    End If
End If
End Sub

danke
gruss
rokki



Bild

Betrifft: AW: letzte Hilfe!
von: Udo
Geschrieben am: 11.02.2005 13:34:02
...und was ist dein Problem?
Udo
Bild

Betrifft: geschlossen
von: rokki
Geschrieben am: 11.02.2005 13:41:15
oT
Bild

Betrifft: AW: letzte Hilfe!
von: Lars
Geschrieben am: 11.02.2005 13:39:40
Hi Rokkie
https://www.herber.de/forum/messages/566153.html
doppelt posten ist nicht sehr nett!
Und wenn eben schon keiner was wußte lags vielleicht wirklich an der Aufmachung deiner Anfrage.
Gruß Lars
 Bild

Beiträge aus den Excel-Beispielen zum Thema "letzte Hilfe!"