OOo Basic ListBox füllen (Calc mit Filter)

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: OOo Basic ListBox füllen (Calc mit Filter)

Re: OOo Basic ListBox füllen (Calc mit Filter)

von marc 70 » Di, 25.09.2012 17:14

Hi,
danke für die schnelle Hilfe.
Geht jetzt, so wie es soll.... :D

gruß marc

Re: OOo Basic ListBox füllen (Calc mit Filter)

von Stephan » Mo, 24.09.2012 23:54

Das einzige was ich gefunden hab ist "queryVisibleCells()", bekomme es damit aber leider nicht hin.

hat da jemand eine Idee und kann mir weiterhelfen?
z.B.:

Code: Alles auswählen

Dim aSource()
 
mySheet = oDok.sheets.getByName("Sheet1")
oCellRangeSource = mySheet.getCellRangeByName("A1:A600")

x = oCellRangeSource.queryVisibleCells
zellen = x.getCells.CreateEnumeration 
while (zellen.hasMoreElements())
   zelle = zellen.nextElement()
   tmp = UBOUND(aSource())
   Redim Preserve aSource(tmp+1)
   aSource(tmp+1) = zelle.Value
wend

oDialog1.Model.getByName("ListBox1").StringItemList = aSource()



Gruß
Stephan

OOo Basic ListBox füllen (Calc mit Filter)

von marc 70 » Mo, 24.09.2012 23:23

Hi
ich benutze in einem Dialog eine ListBox.
Sie wird gefüllt aus einem Calc Dokument.
Wenn ich jetzt aber einen Filter, in der Calc Tabelle anwende, werden trotzdem alle Zellen eingelesen.

Code: Alles auswählen

sub
        mySheet = oDok.sheets.getByName("Sheet1")
		oCellRangeSource = mySheet.getCellRangeByName("A1:A600")
	    aSourceDataArray() = oCellRangeSource.getDataArray()
	    reDim aSource(UBound(aSourceDataArray())) as String
		    For I = LBound(aSource()) To UBound(aSource())
		    aDataArrayRow()   = aSourceDataArray(I)
	        aSource(I) = aDataArrayRow(0)
		    Next I
	    oDialog1.Model.getByName("ListBox1").StringItemList = aSource()     
end sub
wie kann man jetzt die ListBox nur mit den sichtbaren Zellen befüllen.
Das einzige was ich gefunden hab ist "queryVisibleCells()", bekomme es damit aber leider nicht hin.

hat da jemand eine Idee und kann mir weiterhelfen?

gruß marc

Nach oben