Zeilen lassen sich nicht ausblenden
21.01.2009 16:19:36
Kurt
ich habe folgendes Makro für das Ausblenden der Zeilen 23:50,
gebastelt.
Nun wollte ich die Aktion durchführen, leider werden die anderen
Tabellen die Zeilen nicht ausgeblendt nur die Active Tabelle.
Dann ist mit aufgefallen das ich die Zeilen oder auch Spalten
nicht selektieren kann, Warum ?
Es ist kein Schutz drin.
Sub Zeilen_Ausblenden()
Application.ScreenUpdating = False
Dim WsTabelle As Worksheet
For Each WsTabelle In Sheets
WsTabelle.Rows ("24:50")'.Select
Selection.EntireRow.Hidden =True
Next WsTabelle
Range("C4").Select
Application.ScreenUpdating = True
End Sub
mfg Kurt