Pop up Fenster/Bestätigungsfeld in CALC Einfügen bevor Makro ausgeführt wird

[hoosy]

Moin,

ich löse mit einer Schaltfläche ein Makro aus und ich möchte, dass vor der Ausführung des Makros ein Pop up Fenster erscheint.

Mit den Schaltfächen:

"O.K." --> Dann wird das Makro ausgeführt

"Abbrechen" --> Dann wird das Makro nicht ausgeführt

und einem

°Eingabefeld° --> hier möchte ich eine Zahl eingeben können, die in einer definierten Zelle abgebildet wird.


Durch den klick auf "O.K." soll das Makro ausgeführt werden, unabhängig davon, ob das Eingabefeld genutzt wurde, oder eben nicht.


Bisher habe ich die Makros immer über "Aufzeichen" erstellt und hab dann einfach mit der Maus das angellickt, was das Makro dann später umsetzen soll.

Wie man Makros selber schreibt, weiß ich leider nicht, aber ich hätte gedacht, man findet so eine Möglichkeit eines Pop Up Fenster wie oben beschrieben auch in der normalen Menüstruktur. Da bin ich aber nicht fündig geworden.

Habt ihr einen Tip für mich oder ist das o.g. nicht umsetzbar?

Viele Grüße

hoosy

[Karolus]

Hallo

Code: Alles auswählen

sub main
  doc = thisComponent
  sheet = doc.Sheets.getByName("Tabelle1")
  cell = sheet.getCellRangeByName("B5")
  answer = msgbox("?? willst du das wirklich ??", 4)
  select case answer
    case 6
      cell.FormulaLocal = inputbox("Du Teufelskerl, gib bitte eine Zahl ein")
    case 7
      print "Feigling"
end select
end sub

[hoosy]

Hallo, super und Vielen dank, aber, wie integriere isch denn das Makro in meine bestehenhenden Makros? copy/paste bekomme ich Fehlermeldungen.

Finde ich sowas nicht auch in der Menüstruktur?

VG

[Karolus]

Das sind gerademal zehn Zeilen Code, die du miteingeschaltetem Verstand durchlesen und verstehen musst!
Wenn bei dir diese Codezeile angemeckert wird, existiert bei DIR die Tabelle mit Namen Tabelle1 nicht…ich denke es ist zumutbar das du solches entsprechend anpasst.