Mit Makro in Spalte C letzte Eingabe suchen u. Cursor setzen.

[popofz]

Hallo Forum

Ich habe eine EXCEL 2003 Tabelle die ich auf OO abändern muss da der künftige Anwender nur OO hat. 2 Makros konnte ich mit dem Makrorekorder neu erstellen. Ein anderes Makro kann aber nicht auf diese Weise erstellt werden und ich habe keine Ahnung von Basic und bin somit voll auf Euch angewiesen.
Da die Tabelle etwas lang ist, hatte ich ein VBA Makro das in Spalte C die letzte Eingabe suchte und dort den Cursor für neue Eingaben hin setzte.
Kann mir da jemand das Makro für OOc erstellen?

MfG. Peter

[Karolus]

Hallo

Zeichne folgendes auf:
Klick in C1 -- strg+↓ -- ↓

Mit manueller Kürzung aufs wesentliche:

Code: Alles auswählen

sub Main

dim document   as object
dim dispatcher as object
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$C$1"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())

dim args2(1) as new com.sun.star.beans.PropertyValue
args2(0).Name = "By"
args2(0).Value = 1
args2(1).Name = "Sel"
args2(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoDownToEndOfData", "", 0, args2())

dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args2())
end sub

[Jörg]

So, könnte es gehen.
Läßt sich m.E. aber auch mit dem Recorder machen.

Gruß Jörg

Code: Alles auswählen

 odoc = ThisComponent
        osheet = odoc.sheets(2)                                          'Quellbereich
        orange = osheet.getCellRangeByName("F37:U37")     ' Daten, die eingefügt werden
        orangeAddress = orange.getrangeaddress
        odata()= orange.getdataarray
        oZielSheet = oDoc.sheets(3)                                                             'Zielbereich
        c = oZielSheet.getCellRangeByName("C1:C250").queryEmptyCells        'Spalte C Bereich entsprechend anpassen
        oZielCell = c(0).getcellbyposition(0,0)
        oZielCellAddress = oZielCell.getcelladdress
        X1=oZielCellAddress.column
        Y1=oZielCellAddress.row
        X2=oZielCellAddress.column+(orangeAddress.EndColumn-orangeAddress.StartColumn)
        Y2=oZielCellAddress.Row+(orangeAddress.EndRow-orangeAddress.StartRow)
        oZielrange=oZielSheet.getCellRangeByPosition(X1,Y1,X2,Y2)
        oZielrange.setdataarray(odata())

[Karolus]

Hallo

@Jörg: Hab ich was verpasst, wo steht in der Frage das irgendwelche Daten von a nach b kopiert werden sollen??

[popofz]

Hallo Karolus

Als erstes ein Danke für Deine schnelle Hilfe. Dein Makro macht genau das was ich wollte.
Nun habe ich aber noch ein anderes Problem und hoffe dass Du mir da auch weiter helfen kannst.
Wenn ich über EXTRA Makro Makro ausführen aufrufe kommt folgende Meldung.

OO_JRE-Meldung-1.jpg (16.28 KiB) 4561 mal betrachtet

Nach einem Klick auf OK öffnet sich nach kurzer Zeit ein neues Fenster aus dem ich dann ein Makro auswählen u. starten kann.
Kannst Du mir sagen was und wie ich das Installiere?

Mfg. Peter

[nikki]

http://www.oracle.com/technetwork/java/ ... 33155.html Achte aber darauf, dass Du die 32-bit-Version benötigst und diese unter Extras/Einstellungen.../OpenOffice/Java auch aktiviert werden wird.

[popofz]

Hallo Jörg

Auch Dir ein Danke für Dein Makro. Da das Makro von Karolus das macht was ich wollte habe ich sein Makro genommen.
Ist Dein Makro komplett, oder wäre das eine Ergänzug zu Karolus Makro denn ich vermisse am Anfang das sub.

Mfg. Peter

[popofz]

Hallo Nikki

Danke für Deine Pfeilschnelle Antwort. Läuft die 32 bit Version auf meinem WIN 7 64K?

Mfg. Peter

[nikki]

Läuft die 32 bit Version auf meinem WIN 7 64K?

Du hast aber eine mächtige Maschine. Ich habe nur 64-Bit.
Unter Win.7 64-Bit laufen alle 32-Bit-Programme jedoch unter Win.7 32-Bit keine 64-Bit-Programme.

OO für Windows ist ein 32-Bit-Programm, deshalb benötigst Du JRE in der 32-Bit-Version.

[popofz]

Hallo Nikki

Da hab ich mich wohl vertippt. Ich habe nun mal schnell die Internetadr. aufgerufen die Du angegeben hast aber da finde ich keine 32Bit Version. Siehe nachfolgendes Bild. Erfolgt die Auswahl erst bei der Installation?

OO_IRE-Download.PNG (38.42 KiB) 4525 mal betrachtet

Mfg. Peter

[F3K Total]

Die aktuelle 32-Bit Version ist eine der
Windows x86 - jre-8u45-windows-i586...
Gruß R

[Karolus]

Das installieren der Java-JRE kannst du dir schenken, die wird nicht wirklich gebraucht um Basic auszuführen.

Gehe stattdessen über →Extras→Makros→Makros verwalten→Basic....→→Ausführen

[popofz]

Hallo Karolus

Danke für den Tipp. Zum Testen der Makros reicht mir diese vorgehensweise. Später versuche ich die Makros dann auf Buttons zu legen.

Mfg. Peter