Worksheet_Change
11.02.2005 11:18:52
murks
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