Ausgegraute Schaltfläche ( Ein / Aus ) wenn Wert

[tsw68]

Hallo,

versuche jrtzt schon 3 Tage mein Problem zu Lösen Gegoogelt und nichts gefunden zum Thema.
Vieleicht könnt ihr mir Helfen.

Ich möchte meine Schaltfläche / Button Ausgrauen - Aktivieren/Deaktivieren wenn Wert in Zelle BA15 = 12 ist
so das mann in erst anklicken kann wenn Wert < 12 ist.

jetzt schon vielen Dank !

MFG tsw68

[Stephan]

z.B. diese Makro tut das:

Code: Alles auswählen

sub Main
	tc0 = ThisComponent.Sheets(0)
	x = tc0.Drawpage.Forms.getByName("Formular").getByName("Schaltfläche 1")
	If tc0.getCellRangeByName("BA15").Value = 12 Then 
			x.enabled = False
		Else
			x.enabled = True
	End If
end Sub

man kann es dazu dem Tabellenereignis "Inhalt geändert" zuordnen.



Gruß
Stephan

[tsw68]

Hi.
das Makro habe ich zugewisen es kommt
Basic Laufzeitfehler
Exception aufgetreten

in:
x = tc0.Drawpage.Forms.getByName("Formular").getByName("Schaltfläche 1")

[tsw68]

genau so soll es sein.

Muss Der Butten vieleicht auf Tabelle1 sein?

[tsw68]

Sheets(0) ist Tabelle 1, Sheets(1) ist Tabelle 2

genau das wahr es

Ich muste Sheets(0) ---- in Sheeets(5) ändern für die 6.Tabelle

Alles Super gut.

Für mich [gelöst]

1000. Dank

MFG tsw68

[Stephan]

genau so soll es sein.

dann stimmt aber die Aufgabenstellung nicht denn dort ist die Rede von:

"Aktivieren/Deaktivieren wenn Wert in Zelle BA15 = 12 ist"

So hatte ich das auch in meinem geposteten Makrocode umgesetzt.


Gruß
Stephan

[tsw68]

ich noch mal!

In meinem Fall gibt es nur BA12 für Deactiviert und alles was dadrunter ist Aktiviert
über 12 gibt es nicht.

[Stephan]

Hallo,

es steht halt beides dort. 50/50 Chance.

Aktivieren/Deaktivieren wenn Wert in Zelle BA15 = 12 ist
so das mann in erst anklicken kann wenn Wert < 12 ist.

Gruß HeritzP

Aah ja, stimmt.

Gruß
Stephan