Wenn Zelle leer, dann Zeilen ausblenden

Hallo liebe Community,

ich würde gerne folgendes realisieren:

In Spalte A befinden siche alle 30 Tage eines Monats; Also 30 Zeilen mit 01.01.2012, 02.01.2012, etc.

In Spalte B werden Zahlen (Ausgaben an dem Tag) eingetragen. Also:


A B
1 01.01.2012 10,-
2 02.01.2012 20,-
3 03.01.2012
4 04.01.2012 30,-


Bei der Eingabe der Ausgaben vom 03.01.2012 wäre ich flexibel. Ob der Wert 0 oder "" ist, wäre egal.

Nun die Frage: Ist es möglich durch eine Formel o.Ä die Zeile 3 bei Eingabe von "0" oder "" in B3 auszublenden? Ich bin deshalb irritiert, da ich ja auch die Zelle mit ausblende, in der in gerade einen Eintrag vorgenommen habe.

Für den Fall, dass Formeln nicht ausreichen und jemand ein Makro dafür kennt, muss ich noch folgendes sagen:

Ich habe überhaupt gar keine Ahnung von Makros. Ich habe weder von deren Programmierung noch von deren Ausführung eine Ahnung. Also habt bitte Nachsicht

vorzüglichste Grüße

Option Explicit

Private Sub Worksheet_Activate()
    Dim rngBer As Range, rngC As Range
    Application.ScreenUpdating = False
    Set rngBer = Range("B2:B32")  
    For Each rngC In rngBer
        If rngC.Value = 0 Then
            Rows(rngC.Row).Hidden = True
        ElseIf rngC.Value <> 0 Then
            Rows(rngC.Row).Hidden = False
        End If
    Next
    Application.ScreenUpdating = True
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim zeile As Integer
zeile = 1
For zeile = 1 To 100
    If Range("b" & zeile).Value = "0" Then  
        Rows(zeile).Hidden = True
            Else
    End If
Next zeile
End Sub