Seite 1 von 1
Zellen löschen
Verfasst: So, 17.06.2007 19:13
von nixdorf
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
Re: Zellen löschen
Verfasst: So, 17.06.2007 20:06
von turtle47
Hi Nixdorf,
folgendes Makro sucht die erste leere Zelle in Spalte A und löscht dann die unteren Spalten A bis E.
Code: Alles auswählen
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
Viel Erfolg
Jürgen
Re: Zellen löschen
Verfasst: Mo, 18.06.2007 09:31
von nixdorf
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
Re: Zellen löschen
Verfasst: Mo, 18.06.2007 17:00
von Toxitom
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
Re: Zellen löschen
Verfasst: Mo, 18.06.2007 17:39
von turtle47
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.