Hallo,
Wolfgang Jäth schrieb:
> [...]
Ja, kann ich jetzt nachvollziehen.
Verwende als workaround z.B. eine benutzerdefinierte Funktion, gespeichert in
der
Bibliothek "Standard" im Modul "Module1" des Dokuments, folgenden Inhalts:
Function nichtleere(bereich as String)
x =
ThisComponent.CurrentController.ActiveSheet.getcellRangeByName(bereich).getDataArr
ay()
Dim erg()
j = 0
For i = LBOUND(x()) To UBOUND(x())
tmp = x(i)
IF tmp(0) <> "" Then
Redim Preserve erg(j)
erg(j) = tmp(0)
j = j + 1
End if
Next i
nichtleere=erg()
End Function
Und wende diese wie folgt unter Daten-Gültigkeit an:
Format: Gültigkeit: Zellbereich,
[ ] Leerzeilen zulassen,
[X] Auswahlliste anzeigen,
[X] Einträge aufsteigend sortieren,
Quelle: NICHTLEERE("A1:A8")
Gruß
Jörg
---------------------------------------------------------------------
Abmelden von der Mailingliste: [email protected]
Informationen: http://www.openoffice.org/de/
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
