LO_Calc ListBox Makro

[Grex]

Hallo zusammen
Da ich leider eine ziemliche „Nuss“ punkto Makros bin, hoffe ich auf Eure Hilfe.
Ich bin dabei, mit LO_Calc (V24.) einen Dialog (Dialog2) mit einem Mask.Feld (Pattermfield1)
und einem Listenfeld (ListBox1) mit Makros zu basteln und komm mit der ListBox nicht weiter.
Gefühlt habe ich das ganze Forum gelesen (wahrscheinlich nicht das richtige)
Das Pattermfield1 „funzt“ so weit, aber bei der ListBox geht nichts … gar nichts, jeder Versuch scheiterte.
Die Listbox1 soll mit einem OK_Button in die Tabelle1 Zelle §D§8 eingetragen werden.
Habe ein Makro gefunden, aber es geht nur außerhalb des Dialoges und ich kann es nicht so umbauen, dass es im Dialog läuft.

DANKE!!!!
LG Grex

Dialog_01.ods

(26.24 KiB) 333-mal heruntergeladen

[F3K Total]

Bitteschön:

Code: Alles auswählen

Dim oDialog2 as Object
Sub Dialog2_Show
	oSheet =  Thiscomponent.sheets.getbyname("Tabelle1")
    DialogLibraries.LoadLibrary("Standard")
    oDialog2 = CreateUnoDialog( DialogLibraries.Standard.Dialog2 )

    if oDialog2.Execute() then
        Dim cell_val
   	    oPatternField1 = oDialog2.GetControl("PatternField1")
        sText = oPatternField1.string
        cell_val = oSheet.getCellByPosition(47,2)   		  		
        if 	aText = "" then	' And dNumber = "" then
            msgbox ("Keine Eingabe, bitte AA LFZ  eingeben",16,"Fehler") 
        else 
            if sText > "" then cell_val.String = sText
        endif
        oListbox1 = oDialog2.GetControl("ListBox1")
        sTextListbox = oListbox1.SelectedItem
        oCell = oSheet.getcellbyposition(3,7)'Zelle D8
        oCell.string = sTextListbox
    endif
END SUB

Gruß R

[Grex]

Hallo F3K
Du bist echt super!!!!
Ich bin Dir wirklich sehr dankbar.
Machst mir eine Riesenfreude und ein verfrühtes Weihnachtsgeschenk
(gleich alle 2 Verpackt echt cool)

Danke nochmal und alles Gute