Code: Alles auswählen
Sub ausblenden()
tca = ThisComponent.CurrentController.ActiveSheet
If tca.getCellRangeByName("J3").String = "" AND tca.getCellRangeByName("J3").Value = 0 THen
tca.Columns(9).isVisible = False
Else
tca.Columns(9).isVisible = True
End If
If tca.getCellRangeByName("M3").String = "" AND tca.getCellRangeByName("M3").Value = 0 THen
tca.Columns(12).isVisible = False
Else
tca.Columns(12).isVisible = True
End If
End Sub
Gruß
Stephan