Supportnet / Forum / Tabellenkalkulation

Hallo Leute! Mit folgendem Code blende ich Zeilen aus! Option Explicit Private Sub Worksheet_Activate() Dim rngBer As Range, rngC As Range Application.ScreenUpdating = False Set rngBer = Range("j6:j100") For Each rngC In rngBer If rngC.Value <> "" Then Rows(rngC.Row).Hidden = True ElseIf rngC.Value = "" Then Rows(rngC.Row).Hidden = False End If Next Application.ScreenUpdating = True End Sub Über einen Blattschutz lasse ich die Eingabe auf bestimmte Zellen zu. Nach dem Makro-Start sind die Zeilen ausgeblendet, lassen sich aber mit einem Doppelklick auf die Zeilen-Zahl wieder einblenden. Hat jemand eine Idee, wie ich das verhindere? Gruss Platin7

Hallo Nick,

ich vermisse in Deinem Codse das Du den Blattschutz aufhebst und setzt. Blende ich Zeilen aus sehe ich nicht die Zeilennummern.
es reicht auch
Rows(rngC.Row).Hidden= rngC.Value <> ""
sind 4 Zeilen weniger.

Gruß Hajo

hi all :-)

vielleicht hilfreich :-))

gruss nighty

einzufuegen
alt+f11/projektexplorer/DeineArbeitsMappe

zeilen selection wird abgefangen bei doppelclick

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If Rows.Select = True Then Cancel = True
End Sub

Hallo zusammen!

Danke für die Hilfe!

Nighty: Dein Ansatz ist glaube ich, was ich suche!
Aber irgendwas mache ich noch falsch bzw. verstehe ich nicht richtig!

Mir geht es darum, dass, wenn das Makro ausgelöst worden ist
und die Datei gespeichert wurde, die Zeile nicht mehr eingeblendet werden kann!
Es geht in diesem Dokument um eine Anonyme Umfrage, nur als Info!

Gruss
Ines

• Gruppieren trotz Blattschutz
• Excel Blattschutz und Makros
• Blattschutz Schaltfläche inaktiv
• Wie kann man beim Blattschutz die Gruppierung freigeben?
• Blattschutz im Makro