OpenOffice.info

Hab mich wirklich ein wenig vertan, was VBA angeht. Muss mit beiden Programmen arbeiten. Aber danke für den code Karo. Der hat mir schon sehr viel weiter geholfen. :)

function leer_spalten()
otab = thiscomponent.sheets().getbyName("Tabelle1") 'ggf. Namen anpassen

spalten() = array("B","C","D","F","G","H","I","V","X","Y","AW","AX","BW","BX","BY","BZ","CA","CB","CC","DG")
result = ""
for i = 1 to 1000
	for s = 0 to ubound(spalten())
		if otab.getcellrangebyname( spalten(s) & i).string = "" then
			result = result & "," & spalten(s)
		end if
	next s
next i

leer_spalten = result

end function

=LEERSPALTEN()

Hallo
Willst du:
[code]function leer_spalten()
otab = thiscomponent.sheets().getbyName("Tabelle1") 'ggf. Namen anpassen

spalten() = array("B","C","D","F","G","H","I","V","X","Y","AW","AX","BW","BX","BY","BZ","CA","CB","CC","DG")
result = ""
for i = 1 to 1000
for s = 0 to ubound(spalten())
if otab.getcellrangebyname( spalten(s) & i).string = "" then
result = result & "," & spalten(s)
end if
next s
next i

leer_spalten = result

end function[/code]

als Funktion aus einer Calczelle aufrufen in der Syntax:
[code]=LEERSPALTEN()[/code]

Gruß Karo

Schau dir mal die Funktionen spalte() und zeile() an. Vielleicht reicht das schon...
Und VBA ist das nicht, das ist OOoBasic. Schon ein Unterschied.

Viele Grüße
Yeti