Office: .ClearContents / .Hide Error

Morgen,
undzwar stellen sich mir gerade zwei Probleme.
Zum einen habe ich eine Funktion welche mittels ClearContents den Inhalt eines Blattes löscht:

Code:

Sub bedarfs_tabelle_leeren()
Worksheets("Gesamtbedarf").Select
Range("A36:I50").ClearContents
Range("A53:I67").ClearContents
Range("A70:I84").ClearContents
Range("A104:I118").ClearContents
Range("A121:I135").ClearContents
Range("A138:I152").ClearContents
Range("A155:I169").ClearContents
'Range("A87:I:101").ClearContents
End Sub

Jedoch ist der auskommentierte Bereich A87:I101 nicht löschbar und wird mit einer Fehlermeldung quittiert "Die Methode Range für das Objekt _Global ist fehlgeschlagen. Würde den Bereich ja weglassen, bloß leider ist er genau in der Mitte der Kalkulation. Zellen sind in allen Bereichen gleich formatiert :-?

Weiter unten in der Funktion möchte ich gerne eine Zeile mittels .Hide ausblenden.

Code:

If Range("H50").Value <> "" Then
  Rows(55).Hidden = False
    Else
Rows(52).Hidden = True
End If
ActiveSheet.PrintPreview

Es geht einfach darum, dass die Tabellenköpfe der leeren Bereiche ausgeblendet und nicht mitgedruckt werden. Die Prüfung findet statt und gibt mir auch einen Wert (true,false), die Zeile (hier 52) wird jedoch trotzdem nicht ausgeblendet, auch wenn bei "H50" ein Wert eingetragen ist. Eigentlich ist es doch auch nur eine ganz "normale" Zeile, oder gibt es bei da etwas zu beachten? (Umwandeln des Tabellenkopfes in einen Bereich hat mir auch nix gebracht :-( )

mfg

 

dies ist falsc I:101 schreibe es so I101
auf select kann in VBA zu 99,9% verzichtet werden

 

schreibe es so
Rows(55).Hidden = Range("H50").Value <> ""

 

Den falschen : zwischen I und 101 hatte HaJo bereits angesprochen.

Und falls es mit .hidden, auch mit HaJo's Version, partout nicht klappen will (ich hab da auch schon merkwürdige Erlebnisse gehabt...), dann versuch:

Code:

rows(52).rowheight=0

Gruß, Michael