Hallo Leute
Ich möchte vorgegebene Zeilen ausblenden.
Leider bekomme ich bei unteren Makro die Fehlermeldung
"Typen unverträglich"
Könnte mir bitte jemand weiterhelfen.
Gruß
Heinz
Option Explicit
'Ab Spalte 155 ausblenden
Sub Unten_Ausblenden()
Dim mySheets As Sheets
Application.ScreenUpdating = False
Set mySheets = Sheets(Array("Jänner", "Februar", "März", "April", "Mai", "Juni", "Juli", _
"August", "September", "Oktober", "November", "Dezember"))
Rows("155:156,175,185,206:999").Select
Selection.EntireRow.Hidden = True
Application.ScreenUpdating = True
End Sub