Office: Makro zum autom. Ausblenden von Zeilen...

Hallo,

ich habe folgendes Makro geschrieben, aber es funkitoniert nicht. Ich weiß nicht warum. Hat jemand eine Idee.
Mein Ziel ist es, alle die Zeilen im Zeilenbereich 1 bis 14 auszublenden, in denen in der Spalte 2 nichts steht.


Sub Ausblenden()
Sheets("Tabelle1").Select
Dim i As Integer
For i = 2 To 14
If Cells(i, 2) = "" Then
Rows("i:i").EntireRow.Hidden = True
End If
Next i
End Sub


Das andere Makro dient dann wieder zum Einblenden. Das Ganze soll mit so einem Button (Knopf) geschehen. Wenn der geklickt wird, soll es sich ausblenden und wenn der entklickt wird soll es sich wieder einblenden.

Bitte Hilfe. Danke
LG

 

Hallo!

Rows(i).Hidden = True