Ausgegraute Schaltfläche ( Ein / Aus ) wenn Wert

Das Tabellenkalkulationsprogramm

Moderator: Moderatoren

tsw68
***
Beiträge: 81
Registriert: Mo, 21.03.2016 07:50

Ausgegraute Schaltfläche ( Ein / Aus ) wenn Wert

Beitrag von tsw68 » Mo, 17.04.2017 08:48

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
********
Beiträge: 10106
Registriert: Mi, 30.06.2004 19:36
Wohnort: nahe Berlin

Re: Ausgegraute Schaltfläche ( Ein / Aus ) wenn Wert

Beitrag von Stephan » Mo, 17.04.2017 10:12

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
***
Beiträge: 81
Registriert: Mo, 21.03.2016 07:50

Re: Ausgegraute Schaltfläche ( Ein / Aus ) wenn Wert

Beitrag von tsw68 » Mo, 17.04.2017 10:20

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

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

HeritzP
*****
Beiträge: 234
Registriert: So, 22.12.2013 11:23

Re: Ausgegraute Schaltfläche ( Ein / Aus ) wenn Wert

Beitrag von HeritzP » Mo, 17.04.2017 10:44

Hallo,

bei mir geht es.
Schaltfläche.ods
(9.47 KiB) 44-mal heruntergeladen
Der Name der Schaltfläche muss Schaltfläche 1 heißen.


Gruß HeritzP

tsw68
***
Beiträge: 81
Registriert: Mo, 21.03.2016 07:50

Re: Ausgegraute Schaltfläche ( Ein / Aus ) wenn Wert

Beitrag von tsw68 » Mo, 17.04.2017 10:50

genau so soll es sein.

Muss Der Butten vieleicht auf Tabelle1 sein?

HeritzP
*****
Beiträge: 234
Registriert: So, 22.12.2013 11:23

Re: Ausgegraute Schaltfläche ( Ein / Aus ) wenn Wert

Beitrag von HeritzP » Mo, 17.04.2017 10:58

Hallo,
tc0 = ThisComponent.Sheets(0)
Sheets(0) ist Tabelle 1, Sheets(1) ist Tabelle 2



Gruß HeritzP

tsw68
***
Beiträge: 81
Registriert: Mo, 21.03.2016 07:50

Re: Ausgegraute Schaltfläche ( Ein / Aus ) wenn Wert

Beitrag von tsw68 » Mo, 17.04.2017 11:14

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
********
Beiträge: 10106
Registriert: Mi, 30.06.2004 19:36
Wohnort: nahe Berlin

Re: Ausgegraute Schaltfläche ( Ein / Aus ) wenn Wert

Beitrag von Stephan » Mo, 17.04.2017 11:14

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

HeritzP
*****
Beiträge: 234
Registriert: So, 22.12.2013 11:23

Re: Ausgegraute Schaltfläche ( Ein / Aus ) wenn Wert

Beitrag von HeritzP » Mo, 17.04.2017 11:37

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

tsw68
***
Beiträge: 81
Registriert: Mo, 21.03.2016 07:50

Re: Ausgegraute Schaltfläche ( Ein / Aus ) wenn Wert

Beitrag von tsw68 » Mo, 17.04.2017 12:19

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
********
Beiträge: 10106
Registriert: Mi, 30.06.2004 19:36
Wohnort: nahe Berlin

Re: Ausgegraute Schaltfläche ( Ein / Aus ) wenn Wert

Beitrag von Stephan » Di, 18.04.2017 08:58

HeritzP hat geschrieben:
Mo, 17.04.2017 11:37
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

Antworten

Wer ist online?

Mitglieder in diesem Forum: Bing [Bot] und 11 Gäste