OpenOffice.info

Hallo

[quote="aqua"]Hab keine Ahnung wovon du da redest :([/quote]

einem Tabellenblattereignis ein Makro zuordnen:
dazu ein [color=#008000]Rechtsklick[/color] mit der Maus im Tabellenblattregister auf den Reiter mit dem Tabellenblattnamen und im aufkommenden
[color=#008000]Kontextmenü > Tabellenereignisse.. -Inhalt geändert > Zuweisen: [Makro] ....[/color] das gewünscht Makro zuordnen.

Hi clag
Vielen Dank für deine Mühe. Der Wert in Grunddaten.B21 wird per Hand eingetragen.
Das Aus- und Einblenden ist zwar falsch rum, aber da muss ich ja nur true und false tauschen, dann ist es genau so wie ich es will.

[quote]Dann verwende das Tabellenereignis Inhalt geändert in von $Grunddaten als Trigger für eine Prüfung von "Modul 1.C34"[/quote]
Hab keine Ahnung wovon du da redest :(

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

Moin aqua,

unter welchen Bedingungen kann sich der Wert in C34 ändern
Zur Zeit steht da [=$Grunddaten.B21] $Grunddaten.B21, was ist dein plan für $Grunddaten.B21?
Erfolgt immer eine Eingabe in $Grunddaten die die Werte verändern kann?

Dann verwende das Tabellenereignis Inhalt geändert in von $Grunddaten als Trigger für eine Prüfung von "Modul 1.C34"

hier Stephans Code etwas abgeändert

[code]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
[/code]

ändere in $Grunddaten.B21 den Wert und beobachte Tabelle Module 1 danach.

[attachment=0]Test+.ods[/attachment]
hilft das weiter?

Ok das stimmt. Hab die Datei mal hochgeladen.

Die Schaltfläche die ausgeblendet werden soll befindet sich auf dem Blatt "Modul1". Der Vergleichspunkt ist entweder C34 auf dem Blatt "Modul1" oder B21 auf Grunddaten.
Gestartet werden soll das am mit dem Speicherbutton auf dem Blatt Grunddaten.

Da wir weder Deine Datei kennen, noch den (angepassten) Code, weiss ich nicht, wie wir Dir hier weiterhelfen könnten.

Hallo aqua,

[quote="aqua"]Hab es mal versucht auf meinen Fall zu übertragen, leider ohne Erfolg..[/quote]
das bedeutet nun was[size=150]?[/size]

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

Wenn der Name der Schaltflähe "Schaltfläche 1" und der Name des sog. Formulars auf dem sich die Schaltfläche befindet "Formular" ist, dann z.B.:

[code]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
[/code]

Gruß
Stephan