Herbers Excel-Forum - das Archiv

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
Excel-Beispiele zum Thema "letzte Hilfe!"
Letzte nichtleere Zelle ermitteln Letzter Wert in Zeile
Letztes Speicherdatum eintragen Letzter Wert aus einem Bereich
Letztes Speicherdatum in die Fußzeile aller Tabellenblätter Formel bis zur letzten Zeile der Nebenspalte kopieren
Letzte Zelle mit Inhalt suchen Letzte Zelle einer Spalte mit Inhalt aus geschlossener Arbeitsmappe
Letzte Verknüpfung in einem Tabellenblatt löschen Letztes Zeichen der Werte einer Zellauswahl hoch-/tiefstellen