ändere in "Sub Dialog_Anzeigen" die Zeile
Code: Alles auswählen
oLB1_Listener = createUnoListener("list_1", "com.sun.star.awt.XActionListener")
Code: Alles auswählen
oLB1_Listener = createUnoListener("list1_", "com.sun.star.awt.XActionListener")
Gerd