Worksheet_Change

Bild

Betrifft: Worksheet_Change von: murks
Geschrieben am: 11.02.2005 11:18:52

hallo

habe da was mit meinen kargen vba kenntnissen was ausprobieren wollen
aber esnt geht nich

Private Sub Worksheet_Change(ByVal Target As Range)
'cursor springt von a6 bis f6 nach rechts
    If Intersect(Range("A6:f6"), Target) Is Nothing Then Exit Sub
    If Target.Cells.Count <> 1 Then Exit Sub
    Target.Offset(0, 1).Select
'End If
    'Blattschutz aufheben
    ActiveSheet.Unprotect
    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
     End If
End If
End Sub


kann mir da einer was helfen
gruss
murks
Bild


Betrifft: geschlossen von: murks
Geschrieben am: 11.02.2005 13:40:32

oT


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Combobox: Verhindern von manueller Eingabe"