ich bräuchte ein kleines Makro mit den ich in die aktuelle Zelle eine 0 schreibe und dann eine Zelle nach oben springe und dort das selbe mache. So lange bis in Zelle G1 eine 1 steht. Ich hab nur noch keine Funktion gefunden die sozusagen die Feiltaste nach oben darstellt.
Code: Alles auswählen
sub Main
oDoc = thisComponent 'Zugiff auf das Dokument
oSheet = oDoc.sheets(0) 'Erstes Tabellenblatt
oZelleA = oSheet.getCellRangeByName("G1")
Do While oZelleA.value < 1
ThisComponent.GetCurrentSelection
ThisComponent.GetCurrentSelection.Value = "0"
Loop
MsgBox ("ENDE")
end sub