Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
564to568
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
564to568
564to568
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Worksheet_Change

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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
geschlossen
murks
oT

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige