Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon Platin7 vom 19.11.2020, 17:34 Options
Zeilen einblend verbieten bei Blattschutz
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
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
Antwort 1 von Hajo_Zi vom 19.11.2020, 18:06 Options
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
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
Antwort 2 von nighty vom 19.11.2020, 18:11 Options
hi all :-)
vielleicht hilfreich :-))
gruss nighty
einzufuegen
alt+f11/projektexplorer/DeineArbeitsMappe
zeilen selection wird abgefangen bei doppelclick
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 SubAntwort 3 von Platin7 vom 20.11.2020, 09:12 Options
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
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
Ähnliche Themen
Gruppieren trotz Blattschutz
Patricia 31.05.2007 - 96 Hits - 4 Antworten
Excel Blattschutz und Makros
ch1333 15.08.2007 - 200 Hits - 2 Antworten
Blattschutz Schaltfläche inaktiv
Lextor 12.01.2008 - 39 Hits - 7 Antworten
Wie kann man beim Blattschutz die Gruppierung freigeben?
jaga 29.02.2008 - 55 Hits - 5 Antworten
Blattschutz im Makro
joe2 18.09.2008 - 15 Hits - 1 Antwort
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
