Clever-Excel-Forum

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

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

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

Eizi100

Kuwer

Eizi100