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

letzte Hilfe!

letzte Hilfe!
11.02.2005 13:31:36
rokki
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



3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: letzte Hilfe!
Udo
...und was ist dein Problem?
Udo
geschlossen
rokki
oT
AW: letzte Hilfe!
Lars
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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige