[Gelöst] Makro Calc Dialog Listbox füllen

Antwort erstellen

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: [Gelöst] Makro Calc Dialog Listbox füllen

Re: Makro Calc Dialog Listbox füllen

von retuwe61 » Sa, 14.04.2018 09:05

Danke dir Stephan.
Du hast natürlich Recht.
Gruß
Uwe

Re: Makro Calc Dialog Listbox füllen

von Stephan » Fr, 13.04.2018 23:45

wo der Fehler in der Zeile "oDialog.Model.getByName..." steckt?
In dieser Zeile ist kein Fehler. Hingegen enthält die Variable aListe kein Array, was aber notwendig ist.

z.B.:

Code: Alles auswählen

Sub Dlg_Hersteller
Dim oBib as Object, oDgl as Object
DialogLibraries.LoadLibrary("Standard")
oBib = DialogLibraries.getByName("Standard")
oDgl = oBib.getByName("Dialog1")
oDialog = CreateUnoDialog(oDgl)

Dim oListBox as Object, aListe(12), oForm as Object
oDoc = thisComponent
oSheet = oDoc.Sheets.getByName ("Work")

aSp = array("0", "2", "4", "6", "8", "10", "12", "14", "16", "18", "20", "22")

for i = 0 to 12
oCell = oSheet.getCellByPosition(aSp(i),0)
aListe(i) = oCell.String
'msgbox aListe
if oSheet.getCellbyPosition(aSp(i),0).string = "" then
	exit for
	end if
next i
oDialog.Model.getByName("ListBox1").StringItemList = aListe()
oDialog.execute()
end sub
Gruß
Stephan

[Gelöst] Makro Calc Dialog Listbox füllen

von retuwe61 » Fr, 13.04.2018 23:29

Hallo Miteinander.
Ich möchte eine Listbox auffüllen mit dem Text aus jeder zweiten Zelle in Zeile 1.
Kann bitte jemand einen Blick darauf werfen, wo der Fehler in der Zeile "oDialog.Model.getByName..." steckt?
Vielen Dank.
Gruß
Uwe

Code: Alles auswählen

Sub Dlg_Hersteller
Dim oBib as Object, oDgl as Object
DialogLibraries.LoadLibrary("Standard")
oBib = DialogLibraries.getByName("Standard")
oDgl = oBib.getByName("Dialog1")
oDialog = CreateUnoDialog(oDgl)

Dim oListBox as Object, aListe(), oForm as Object
oDoc = thisComponent
oSheet = oDoc.Sheets.getByName ("Work")

aSp = array("0", "2", "4", "6", "8", "10", "12", "14", "16", "18", "20", "22")

for i = 0 to 12
oCell = oSheet.getCellByPosition(aSp(i),0)
aListe = oCell.String
'msgbox aListe
if oSheet.getCellbyPosition(aSp(i),0).string = "" then
	exit for
	end if
next i
oDialog.Model.getByName("ListBox1").StringItemList = aListe()
oDialog.execute()
end sub

Nach oben