Zeilen ausblenden/anderes Blatt

[Eizi100]

Hallo zusammen

mit folgendem Code will ich in einem anderen schreibgeschütztem Arbeitsblatt (gleiche Mappe),  einige Zellen ausblenden. Das funktioniert aber nur sporadisch Ab und zu kommt (nicht immer) dann ein Fehler Code "Die Hidden-Eigenschaft des Range-Objektes kann nicht festgelegt werden" wenn ich dem Code

PHP-Code:

Sheets("Zusammenfassung").select 


zufüge, läuft dieser. Hat jemand eine Idee, wie ich das ohne Select bewerkstelligen könnte. Der Hintergrund ist, dass ich die Zellen auf mehreren Blättern ausblenden muss. Ich glaube sowieso, dass in der Datei mehrere Fehler sind, da die Codes aus dem Internet zusammengewürfelt wurden

PHP-Code:

Sub AusblendenZusammenfassung() ' Aus/Einblenden im Blatt Zusammenfassung
Dim k As Range
With Sheets("Zusammenfassung")

Sheets("Zusammenfassung").Protect Password:="", UserInterfaceOnly:=True

For Each k In Sheets("Zusammenfassung").Range("C4:C43, C47:C86  , C90:C129 , C133:C172 , C176:C215 , C219:C258")
If k.Value <> 0 Then
k.EntireRow.Hidden = False
Else
k.EntireRow.Hidden = True
End If
Next k

End With
End Sub 


Falls mir jemand helfen kann, wäre das super

LG
Michael

[Kuwer]

Hallo Michael,

teste es mal so:

Code:

Private Sub CommandButton2_Click()
ActiveCell.Activate 'diese Zeile ist neu
KopieOnr1_A_B
KopieOnr1_C_D
KopieOnr1_E_F
KopieOnr1_G_H

Call AusblendenZusammenfassung
Call Ausblenden467
Call Ausblenden498
End Sub

Siehe dazu hier: Befehlsschaltfläche (CommandButton) - Probleme im Tabellenblatt

Gruß Uwe

[Eizi100]

Hi Uwe
Das ist Perfekt
Ich muss echt sagen. dass so eine kleine Zeile (ActiveCell.Activate) so viel ausmachen kann. Ich wäre auf so etwas sowieso nie draufgekommen

Ich bewundere euch 
Vielen lieben Dank

LG
Michael