Excel Code in libre calc verwenden

[jenschmi]

Hallo,
Ich habe ein Excel Makro in mein Calc kopiert.
Es funktioniert aber nicht.

Option Explicit

Private Sub commandbutton1_click ()
ActiveCell.Activate
Selektion.Interior.ColorIndex = 4
Ende Sub

Was muss ich hier ändern?

Vielen Dank schon mal im voraus.
Gruß jenschmi

[mikele]

Hallo,
ich glaube, in VBA müsste es

Code: Alles auswählen

Selection.Interior.ColorIndex = 4

heißen.
Wenn ich es richtig verstehe, möchtest du per Klick auf einen Button die Hintergrundfarbe der aktuelle Zelle festlegen. Calc kennt allerdings ColorIndex nicht.
Folgendes sollte halbwegs funktionieren:

Code: Alles auswählen

Sub commandbutton1_click ()
	Thiscomponent.Currentcontroller.selection.cellbackcolor=rgb(255,0,0)
End Sub

Die Farbe legst du über die RGB-Werte fest (im obigen Schnipsel wäre die Hintergrundfarbe nun rot).

[jenschmi]

Vielen Dank für die schnelle Antwort.

Ich teste das morgen gleich und gebe Bescheid.

Gruß jenschmi

[jenschmi]

Ich habe es doch mal fix probiert.
Wenn ich das Makro über F5 ausführe klappt das wunderbar. Aber wie weise ich dem Button das Makro zu. Sorry für eure Mühe.

Wenn ich auf den Button klicke passiert nichts.

LG jenschmi

[jenschmi]

Hallo,

Hab ein bisschen getüftelt, und hat geklappt.
Danke nochmal für das Makro.

Gruß jenschmi