Makro nach ja /nein entscheidung ausführen

[fiz]

Hallo,
Leider kenne ich mich mit Basic nicht aus und habe Makros bisher nur über Aufzeichnung erzeugt.

Nun stehe ich vor dem wahrscheinlich einfachen Problem, dass ich einem aufgezeichten (und funktionierenden) Makro ein "Massagebox" mit "ja" und "nein" button voranstellen will.
Also:

"Haben Sie Änderungen in der Liste vorgenommen"

bei antwort "ja" soll das Makro ausgeführt werden bei Antwort "nein" nicht.

Ich habe zwar im Forum einen Code gefunden, der mir eine entsprechende Box öffnet, aber die Verknüpfung mit dem Makro klappt leider nicht.

Gruß

fiz

[Karolus]

Hallo Fiz

Das sollte etwa so aussehen:

Code: Alles auswählen

sub entscheidung
msg = msgbox("haben sie Änderungen in der Liste vorgenommen ?",4)			
if msg = 6 then
dein Makroname
end if
exit sub
end sub

Die 4 steht für eine Message-box mit 'ja' und 'nein'- Schaltfläche.
Der Wert 6 wird bei Klick auf die Schaltfläche 'Ja' zurückgegeben.

Gruß Karo

Ps. Unter einer "Massagebox" stell ich mir doch etwas anders vor

[fiz]

Hallo Karolus,
vielen Dank für die prompte Antwort,
funktioniert hervorragend.

Wenn es Dir nix ausmacht: Würdest Du mir bitte noch 'ne Zeile anfügen damit sich das Dokument im Falle von "Nein" selbst schließt.
(Ganz normal, mit Nachfrage ob man speichern will oder nicht)

Zur Belohnung gibts auch 'ne Massagebox
http://www.funandsmile.de/popup_image.php/pID/250



Ciao,
fiz

[Karolus]

Hallo Fiz
dort:
http://www.starbasicfaq.de/WiekannmanDo ... l#Zweig127
findest du diesen Code :

Code: Alles auswählen

sub closedok
    odoc=thisComponent
    checkclose=odoc.ismodified()
    if checkclose=false then
               odoc.close(false)
         else
               msgbox "Dokument wurde geändert"
       end if
end sub

Bei dir sollte es reichen wenn du die sub Entscheidung so abänderst :

Code: Alles auswählen

sub entscheidung
msg = msgbox("haben sie Änderungen in der Liste vorgenommen ?",4)         
if msg = 6 then
dein Makroname
end if
thisComponent.close(false)
exit sub
end sub

Gruß Karo

[fiz]

thx a lot