Zelladressen abfragen und ausgeben

[yeti]

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

[Karolus]

Hallo
Willst du:

Code: Alles auswählen

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

als Funktion aus einer Calczelle aufrufen in der Syntax:

Code: Alles auswählen

=LEERSPALTEN()

Gruß Karo

[Mina1982]

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.