Schaltfläche: Aktiveren und deaktivieren eines Wertes

[karlo123]

Hallo


Und zwar habe ich folgendes Problem:

Ich habe eine Schalftfläche (Markierfeld) kreiert und möchte gerne bei Aktivierung der Schaltfläche in einer bestimmten Zelle einen Wert 1 haben. So weit habe ich es schon gebracht, allerdings würde ich gerne, wenn ich dieses Feld wieder deaktiviere in dem Feld eine 0 haben und hier scheitert es.

Ich habe 2 Makros, simpel 1 und 0 erstellt, die 1 funktioniert. Allerdings gelingt es mir nicht bei Deaktiveiren des Markierungsfeldes eine 0 zu erstellen. Ich vermute mal einen simplen Fehler, aber ich find eihn nicht und habe auch "Versuch und Irrtum" durch


LG


Karlo

[turtle47]

Hallo Karlo,

normalerweise brauchst Du gar kein Makro für diese Aktion.

Schalte den Entwurfsmodus ein und mache einen Rechstsklick auf das Markierfeld.
Dort wählst Du "Kontrollfeld.." aus und da den Reiter "Daten".

Verknüpfte Zelle z.B. "A1"

Referenzwert (ein) = 1 (ohne Gleichheitszeichen)
Referenzwert (aus) = 0 (ohne Gleichheitszeichen)


Entwurfsmodus ausschalten und manuell ausprobieren.

Viel Erfog.

Jürgen

[karlo123]

Hallo Karlo,

normalerweise brauchst Du gar kein Makro für diese Aktion.

Schalte den Entwurfsmodus ein und mache einen Rechstsklick auf das Markierfeld.
Dort wählst Du "Kontrollfeld.." aus und da den Reiter "Daten".

Verknüpfte Zelle z.B. "A1"

Referenzwert (ein) = 1 (ohne Gleichheitszeichen)
Referenzwert (aus) = 0 (ohne Gleichheitszeichen)


Entwurfsmodus ausschalten und manuell ausprobieren.

Viel Erfog.

Jürgen

Danke! Da sieht man doch wie leicht es eigentlich ist

[Karolus]

Hallo
Hallo
Nimm ein Makro, das hin und her schaltet:

Code: Alles auswählen

sub werttoggeln
with thiscomponent.sheets(0).getcellbyposition(0,0)
if  .value = 0 then
	.value = 1
else
	.value = 0
end if
end with
end sub

Gruß Karo

[karlo123]

@Karolus:

Wo muss ich den Befehl ändern, wenn ich die Schaltfläche auf der Tabelle "Standard" habe aber die Werte auf z.B. Tabelle "Test123" haben möchte, da ich selber noch nie Makros programmiert habe?


LG


Karlo

[Karolus]

Hallo

Code: Alles auswählen

with thiscomponent.sheets().getbyname("Test123").getcellbyposition(0,0)

oder

Code: Alles auswählen

with thiscomponent.sheets().getbyname("Test123").getcellrangebyname("A1")

Gruß Karo