OpenOffice.info

Hallo Nixdorf,

Thomas hat das ja schon sehr gut beschrieben wie Du den Makrocode einbauen kannst.
Wenn Du Dich eingehender mit dieser Thematik beschäftigen möchtest kann ich Dir
das Buch von Thomas nur wärmstens empfehlen.

Zur Ansicht ein Beispiel als Anlage.[attachment=0]Referenz_Spalte_A.zip[/attachment]

Hey Nixdorf,

Extras - Makros - Verwalten - OOo Basic -> dann den Ort wählen in der linken Listbox (z.B. das Dokument) -> dort eien Bibliothek (z.B. Standard), dann erst ein neues Modul erzeugen (rechts Button Modul erzeugen) -> jetzt öffnet sich die Basic-IDE, dort kannst du das Makro erstellen (oder den Code einfach per Copy&Paste übernehmen).

Gruss
Thomas

Hallo turtle47,

danke für das Macro, aber wo kann ich das Makro nun erstellen? Ich finde bei mir nur die Option Makros aufzeichen.


Gruß Nixdorf

sub Leere_Zelle_Spalte_A_Suchen
	odoc=thiscomponent
	oSheet = ThisComponent.CurrentController.getActiveSheet()
	oEndrow = 0
	while oSheet.getcellbyPosition(0,oEndrow).string <> ""
	oEndrow = oEndrow+1
	wend
	if oEndrow = 0 then
	exit sub
	end if
	z= oEndrow
	oQuelleRange=oSheet.getCellRangeByPosition(0,z,4,65535)
   	oQuellRangeAdresse = oQuelleRange.getRangeAddress
   	oSheet.removeRange( oQuellRangeAdresse, com.sun.star.sheet.CellDeleteMode.UP)
End Sub

Hi Nixdorf,

folgendes Makro sucht die erste leere Zelle in Spalte A und löscht dann die unteren Spalten A bis E.

[code]sub Leere_Zelle_Spalte_A_Suchen
odoc=thiscomponent
oSheet = ThisComponent.CurrentController.getActiveSheet()
oEndrow = 0
while oSheet.getcellbyPosition(0,oEndrow).string <> ""
oEndrow = oEndrow+1
wend
if oEndrow = 0 then
exit sub
end if
z= oEndrow
oQuelleRange=oSheet.getCellRangeByPosition(0,z,4,65535)
oQuellRangeAdresse = oQuelleRange.getRangeAddress
oSheet.removeRange( oQuellRangeAdresse, com.sun.star.sheet.CellDeleteMode.UP)
End Sub[/code]

Viel Erfolg

Jürgen

Hallo,

ich möchte, daß in einer Tabelle, von da an, wo in Spalte A kein Eintrag mehr ist, abwärts alle Zellen der Spalten A - E gelöscht werden. Kann man soetwas automatisch machen lassen?



Gruß Nixdorf