OpenOffice.info

HAllo ein Makro eines Kollegen bekommen, wie führe ich das nun aus.

es ist folgendermassen aufgebaut.

Sub Main
oSheet = ThisComponent.CurrentController.getActiveSheet()
oCellCursor = oSheet.createCursor()
oCellCursor.GotoEndOfUsedArea(True)
letzte_Zeile = oCellCursor.getRangeAddress.EndRow
For i = 0 To letzte_Zeile
If oSheet.GetCellByPosition(22, i).String = "delete" AND _
oSheet.GetCellByPosition(7, i).Value = 46464 Then
oSheet.Rows.removeByIndex(i,1)
i = i - 1
letzte_Zeile = letzte_Zeile - 1
End If
Next i
End Sub


MFG

Marcus

Bin absoluter Neuling in Makro...

Hallo Marcus,

so ganz weiß ich nicht was Du mit Deiner Frage meinst, und vielleicht wissen das Andere hier ja auf Anhieb, und Du bekommst noch eine exakte Antwort, aber:

Ich verstehe von der Makro-Materie nicht sehr viel, spiele aber gerne damit rum, und versuche mit dem Makro-Rekorder vieles zu erledigen. Was ich eben mal probiert habe war, dass ich Deine Makrosyntax hier rauskopiert habe, in OO hatte ich ein Calc-Dokument geöffnet, dort habe ich über Extras - Makros - Makros verwalten - OOorg Basic den Makrodialog geöffnet und Deine Syntax da reinkopiert. Das Ganze ließe sich dann über Extras - Makros - Makros ausführen eben auch ausführen, bzw. in der Menüleiste mit einem Button verknüpfen etc.

Vielleicht probierst Du diese Handhabung einfach mal aus.

Das Makro darf natürlich nicht aus MSO stammen, und das Calc-Dokument muss die entsprechenden Werte enthalten, auf die zurückgegriffen wird, bzw. das Makro muss dann entsprechend angepasst werden.

Dies als erstes "Brainstorming", vielleicht hilft es Dir ja auf die Sprünge...

Gruß,

Rebecca