Makro erweitern

[elamigo]

Hey,
ich glaube für die meisten eine Kleinigkeit aber ich schaffe es gerade irgendwie nicht. Habe folgendes Makro welches die Zeile ausblendet, in der die Spalte B leer ist. Nun hätte ich das ganze gerne auch. bzw erweitert, dass wenn B und D leer sind bitte die Zeile ausblenden.

Code:

Sub Makro6()

Dim rng As Range
Application.ScreenUpdating = False
For Each rng In Range("B9:B36")
   If rng.Value = "" And rng.Offset(0, 1).Value = "" Then
       Rows(rng.Row).EntireRow.Hidden = True
   End If
Next
Application.ScreenUpdating = True

End Sub

[Elex]

Hi

Offset(0,2)

Gruß Elex

[elamigo]

simple as this    thx