Code: Alles auswählen
sub Main
tc0 = ThisComponent.Sheets(0)
If tc0.getCellRangeByName("C34").Value <= -1 Then
x = tc0.Drawpage.Forms.getByName("Formular").getByName("Schaltfläche 1")
x.enableVisible = Not(x.enableVisible)
End If
end sub
Stephan
Moderator: Moderatoren
Code: Alles auswählen
sub Main
tc0 = ThisComponent.Sheets(0)
If tc0.getCellRangeByName("C34").Value <= -1 Then
x = tc0.Drawpage.Forms.getByName("Formular").getByName("Schaltfläche 1")
x.enableVisible = Not(x.enableVisible)
End If
end sub
das bedeutet nun was?aqua hat geschrieben:Hab es mal versucht auf meinen Fall zu übertragen, leider ohne Erfolg..
Code: Alles auswählen
sub checkC34
Form = ThisComponent.Sheets(1).Drawpage.Forms.getByName("Formular")
if ThisComponent.Sheets(1).GetCellRangeByName("C34").value < -1 then
Form.getByName("Schaltfläche 1").enableVisible = false
else
Form.getByName("Schaltfläche 1").enableVisible = true
end if
end sub
Hab keine Ahnung wovon du da redestDann verwende das Tabellenereignis Inhalt geändert in von $Grunddaten als Trigger für eine Prüfung von "Modul 1.C34"
einem Tabellenblattereignis ein Makro zuordnen:aqua hat geschrieben:Hab keine Ahnung wovon du da redest