Ich habe Folgendes Problem ich würde gerne Zeilen Einblenden wenn Bsp. Zelle
A3 >0
dann spalte B Einblenden, Wenn
B3>0
dann Spalte C Einblenden Und das bis zu 10 Spalten
A3 >0
dann spalte B Einblenden, Wenn
B3>0
dann Spalte C Einblenden Und das bis zu 10 Spalten
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long
Range("B1:J1").EntireColumn.Hidden = True
For i = 1 To 10
Columns(i + 1).Hidden = IIf(Cells(3, i) = "" And Cells(3, i + 1) = "", True, False)
Next i
End Sub
Der Code gehört ins Codemodul des Tabellenblattes, auf dem er sich auswirken soll.