Makro-das checkbox prüft

[writeme]

Hallo Leute,

es geht um folgendes:

Ich brauche ein Makro, das eine Checkbox(Checkbox1) prüft ob sie angehakt ist...
Wenn sie angehakt ist, soll automatisch ein anderes Makro (Makro-x) ausgeführt werden
Wenn sie jedoch nicht angehakt ist, soll auch hier automatisch ein anderes Makro (Makro-Y) ausgeführt werden..

Vllt könnt ihr mir helfen.. stehe total auf dem Schlauch und habe nur ganz wenig Erfahrung mit Makros

[clag]

Hallo writeme,

guckst du mal hier
viewtopic.php?f=18&t=63207#p240798

fast wie für dich gemacht, brauchst du nur noch deine beiden Codeblöcke einfügen.

[writeme]

Danke für die Antworten.

@clag : Ich wüsste nicht in wie fern mich das weiterbringt. Ich brauche definitiv eine Checkbox und keine Schaltfläche.

@foobar^2 : Super danke, das hilft schonmal etwas.

[clag]

Hallo wrtieme,

@clag : Ich wüsste nicht in wie fern mich das weiterbringt. Ich brauche definitiv eine Checkbox und keine Schaltfläche.

dann hast du es dir nicht vermutlich angeschaut denn der Unterschied hierzu

Code: Alles auswählen

sub statuscheck
odoc=thiscomponent
mycheck = oDoc.drawpage.forms.getByIndex(0).getByName("Markierfeld 1")
	if mycheck.state=1 then
		msgbox "checkbox is on"
	endif
	if mycheck.state=0 then
		msgbox "checkbox is off"
	endif
end sub

ist nicht sehr groß

[Karolus]

Hallo

Binde folgendes ans Ereignis 'Status geändert' der Checkbox (Markierfeld ?)

Code: Alles auswählen

Sub Main(args)
    msgbox "ich bin" & (IIf( args.Selected, "", " nicht")) & " selektiert"
End Sub

Karolus

[writeme]

Nun verstehe ich ^^
Oh man.. ich sag ja... blutiger Anfänger.. xD

Danke für den schlag aufn Hinterkopf
Super Hilfe !

[writeme]

Nochmal kurz eine Frage.. ich möchte jetzt anstatt die Meldung "Checkbox on" bzw "Checkbox off" einmal ein Makro x bzw Makro y ausführen lassen. geht das?

[clag]

Hallo writeme,

ich möchte jetzt anstatt die Meldung "Checkbox on" bzw "Checkbox off" einmal ein Makro x bzw Makro y ausführen lassen. geht das?

dann ruf anstelle der "checkbox" das entsprechend Makro auf

[Karolus]

Hallo

Code: Alles auswählen

Sub Main(args)
    If args.Selected then
    	mond
    else
    	erde
    end if
End Sub

Sub mond
msgbox "hallo Mond"
End Sub

sub erde
msgbox "hallo Erde"
end sub

Karolus