Lehre Zellen löschen und nach links verschieben (Automatisiert)

[Ginzinger]

Hallo zusammen,

ich spiele mich schon den halben tag und habe bisher nur geschaft ein Makro zu bekommen welches mir eine ganze Zeile oder Spalte löscht.
Zuerst aber mal mein Problem:
In Spalte A1 bis A100 steht immer ein einmaliger Wert, von B1 bis AB100 stehen gelegentlich Werte (Zahlen), die restlichen Zellen sind lehr.
Ich möchte erreichen das alle lehren Zellen gelöscht werden und somit die Werte aus der jeweiligen Zeile in der Spalte weiter nach Links rutschen. Abei ein Beispiel, hier steht 0 für eine Zelle ohne Inhalt und 1 für eine belibige Zahl
DAVOR:
Zeile1/0/0/1/0
Zeile2/0/1/0/1
Zeile3/1/1/0/0
Zeile4/0/0/0/1
DANACH:
Zeile1/1
Zeile2/1/1
Zeile3/1/1
Zeile4/1

Bitte um Hilfe, Danke

[Lupp]

Was eine Lösung per “Makro” betrifft, können andere sicher besser raten. Ich simuliere so etwas lieber mit Hilfe von Formeln. Ob das effizient genug sein kann, hängt vom Umfang der Datensammlung ab. 100 Zeilen und 27 Spalten sind sicher nicht zu viel. Bei Interesse kann ich ein Beispiel vorlegen.

[karolus]

Hallo
Ein schneller Hack per Python-script:

def notempty(x):
    return not len(x)

def main():
    doc = XSCRIPTCONTEXT.getDocument()
    sel = doc.CurrentSelection
    data = sel.FormulaArray
    data = [tuple(sorted(row, key=notempty )) for row in data]
    sel.setFormulaArray(tuple(data))