Skript übersetzen

[flashstep]

Guten Tag,

ich als völliger Neuanfänger mit LibreOffice würde einen darum bitten mit Sinntechnisch dieses Skript zu überarbeiten, sodas es auch in LibreOffice als Makro klappt:

Code: Alles auswählen

Sub zelle_loeschen()

Dim Zelle As Range


Set Zelle = Range("A1:A8")
For Each Zelle In Sheets("Tabelle1").UsedRange
If IsEmpty(Zelle) Then
Zelle.Select
ActiveCell.EntireRow.Delete
End If
Next
End Sub

[lorbass]

Skripts und ihre Überarbeitung gehören in den Bereich LibreOffice Programmierung.

Sinntechnisch dieses Skript zu überarbeiten, sodas es auch in LibreOffice als Makro klappt

Bevor sich jemand die Arbeit damit macht, solltest du mal probieren, nach einer Musterlösung in Michael Dannenhöfers →  StarBasic / OpenOffice.org Basic FAQ → 7.4.6 Wie kann man Zeilen und Spalten einfügen oder löschen? selbst eine Funktion zum Löschen einer Zeile zu erstellen

Gruß
lorbass

[flashstep]

Ich kriege es irgendwie nicht hin. -_-

[karolus]

Hallo
In python:

Code: Alles auswählen

def remove_gaps():
    doc = XSCRIPTCONTEXT.getDocument()
    sheet = doc.CurrentSelection.Spreadsheet
    cursor = sheet.createCursor()
    cursor.gotoEndOfUsedArea(False)
    last = cursor.RangeAddress.EndRow
    crange = sheet.getCellRangeByPosition(0,0,0,last)
    emptys = crange.queryEmptyCells()
    tmp = [ elem.Rows for elem in iterate(emptys) ]             
    for e in reversed( tmp ):
        e.removeByIndex(0, e.Count )
        
def iterate( enumerable_be ):
    enumerable = enumerable_be.createEnumeration()
    while enumerable.hasMoreElements():
        yield enumerable.nextElement()
 

für Übersetzungen nach StarBasic bin ich unterqualifiziert.

Karolus