[gelöst] Calc: Spaltenwerte kopieren und einfügen

[marc23]

Hallo Zusammen,

ich nutze privat Calc auf einem Linux Rechner und versuche gerade, ein vollkommen simples Makro zu kreiren. Ich habe zwar Erfahrung mit VBA aber mit Basic oder was auch immer das hier sein soll, bin ich überfordert. Habe mir den folgenden Code aus einem "Kochbuch" kopiert:

Code: Alles auswählen

sub test
	dim aData()
	dim oTab as variant, oBereich as Variant, oZielbereich as Variant
	
	oTab = thisComponent.sheets(0)
	oBereich = oTab.getCellRangeByName("A1:A5")

	aData = oBereich.getDataArray()
	
	oZielbereich = oTab.getCellRangeByName("B1:B5")

	oZielbereich.setDataArray(aData)

end sub

Es sollen also einfach nur die Werte einer Spalte die Formeln enthält, in eine andere Spalte kopiert werden. Mit dem obigen Code tut sich aber nichts, d. h. der Code wird scheinbar nicht ausgeführt - hat jemand eine Idee, woran das liegen könnte? Fehlt im Code irgendwas?

[HeritzP]

Hallo,

bei mir funktioniert der Code.
Wie bist du denn vorgegangen?

In den Einstellungen muss die Makrosicherheit ausgewählt werden.

Extras → Optionen ⇉ LibreOffice ⇒ Sicherheit ⇨ Makrosicherheit.

[marc23]

Danke für die schnelle Rückmeldung. Die Makrosicherheit habe ich ausgeschaltet.

Ich hatte zunächst per Recorder ein Makro erstellt und mit einem Button verknüpft (das lief auch) aber da mich der Code komplett überfordert hat, habe ich ihn mit dem oben zitierten Code überschrieben.

Unter Tools -> Macros -> Edit Macros finde ich das Makro und kann es editieren. Wenn ich nun mit dem neuen Code auf den von mir erstellten Button klicke, passiert nichts. Auch wenn ich vom Editor aus auf "Ausführen" klicke, tut sich nichts. Kompilieren bringt auch nichts.

Braucht es vielleicht irgendein Basic Add-On oder so ?

[HeritzP]

Hallo,

die Makrosicherheit muss mind. auf Mittel stehen.

[karolus]

Hallo

Code: Alles auswählen

oTab = thisComponent.sheets(0)

Dein Makro operiert damit auf dem allerersten Tabellenblatt, vielleicht möchtest du aber ein anderes??

was tut sich denn wenn du die code-zeile tauscht gegen:

Code: Alles auswählen

oTab = thisComponent.CurrentController.ActiveSheet

[marc23]

Dein Makro operiert damit auf dem allerersten Tabellenblatt, vielleicht möchtest du aber ein anderes??

Oh weh... was für ein blöder Fehler !! Das war das Problem und das Makro funktioniert einwandfrei! Da bin ich ja froh, denn dieser Code ist für mich deutlich verständlicher als der Code den der Recorder produziert ("uno" und so ).

Vielen Dank