OpenOffice.info

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

z.B. Ordne folgendes Makro dem Tabellenereignis "Auswahl geändert" zu:

[code]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
[/code]
Hinweis: Das eigentlich besser passende Ereignis "Inhalt geändert" dürfte nicht gehen weil es nicht auf Inhaltsänderungen reagiert die von Formeln ausgelöst werden.


Gruß
Stephan