Spalte ausblenden verknüpft mit SVERWEIS

Programmierung unter AOO/LO (StarBasic, Python, Java, ...)

Moderator: Moderatoren

Stephan
********
Beiträge: 12369
Registriert: Mi, 30.06.2004 19:36
Wohnort: nahe Berlin

Re: Spalte ausblenden verknüpft mit SVERWEIS

Beitrag von Stephan »

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

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
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