Hallo und guten Tag,

ich habe ein Problem wo ich Eure Hilfe brauche und zwar möchte ich in Abhängigkeit davon ob in der Spalte CA eine 1 steht werte einblendenm, dies wollte ich mit folgender Schleife erreichen:

~begin~

'marke 1 einblenden
Dim wkb As Workbook, wks As Worksheet, lgZeile As Long
For Each wks In Worksheets
'schutz_aufheben_only '(in wks)
wks.Unprotect (PSWDTP)
'alle Zeilen einblenden
'zeilen_einblenden_all
Rows("11:6000").EntireRow.Hidden = False
lgZeile = 1
Do
If wks.Cells(lgZeile, 1).Value = 1 Then wks.Rows(lgZeile).Hidden = True
lgZeile = lgZeile + 1
Loop Until lgZeile = 65536 Or wks.Cells(lgZeile, 79) = "Ende"
'schutz_setzen_only '(in wks)
wks.Protect Password:=PSWDTP, Contents:=True, Scenarios:=True, UserInterfaceOnly:=True
Next wks

Nur leider funktioniert das überhaupt nicht, excel hört weder bei dem Wort Ende auf noch wird irgendetwas ausgeblendet.

Was mache ich hier verkehrt?!

Danke schonmal für Eure Hilfe


Steffen