OpenOffice.info

Danke, Super, das passt :D

sub TestZelle
	oCalc = ThisComponent
	oSheet = oCalc.currentSelection.SpreadSheet
	if oSheet.GetCellRangeByName("A3").String = "" then  msgbox oSheet.Name & " Zelle A3 ist leer " 
end Sub 

Hallo Namrenner,

die Frage ist etwas unpräziese denn [quote="Namrenner"]Zeile 3 & Spalte 1 (A)[/quote] das is ja eine Zelladresse A3

womit der gewünschte Hinweis [quote="Namrenner"]"Diese Zeile ist leer"[/quote] nicht wirklich stimmig ist.

wenn du A3 und leere Zelle meinst dann

[code]
sub TestZelle
oCalc = ThisComponent
oSheet = oCalc.currentSelection.SpreadSheet
if oSheet.GetCellRangeByName("A3").String = "" then msgbox oSheet.Name & " Zelle A3 ist leer "
end Sub [/code]

viel spaß bei den ersten Basic Versuchen

suche Code für:
Zeile 3 & Spalte 1 (A) wenn die leer ist, das in Openoffice Calc eine Infobox kommt und steht "Diese Zeile ist leer".
Danke im voraus.