Darstellung aktiver Zelle

[Elektro]

Hallo,

ich such eine Möglichkeit die Darstellung der aktiven Zelle zu ändern.
Entweder als Rahmenfarbe oder den ganzen Hintergrund.
Ich nutze 3.6.5.2

Gruß Rolf

[boser]

Öh,
Zelle anklicken und oben Hintergrundfarbe ändern ??? Meinst du das ?
Ansonsten bitte ein bisschen Ausführlicher, bzw. eine Beispieldatei hoch laden.

[Elektro]

Hallo,

ich meine die aktive Zelle in der der Cursor gerade steht.
Ich würde gerne die Hintergrundfarbe ändern oder einen farbigen Rahmen einstellen.
Ich habe Tabellen mit dickeren Zellen-Umrandungen, dann ist der normle Rahmen der aktiven Zelle nicht zu sehen.

Gruß Rolf

[pmoegenb]

Hallo Rolf,
wenn unter Extras/Optionen.../LibreOffice Calc/Allgemein die Option Selektion in Spalten-/Zeilenköpfen hervorheben aktiviert ist, kannst Du die aktive Zelle auch so erkennen.
Mit Hausmittel sehe ich sonst keine andere Möglichkeit. Du kannst ja mal gucken, ober Du hier eine Extension dafür findest.

[Elektro]

Hallo,

danke für die Tipps, meine gewünschter Effekt ist leider nicht dabei.
Ich warte dann mal weiter ab ob noch jemand eine Idee hat.

Gruß Rolf

[F3K Total]

Hallo,
nach meiner Information ist die Selektionsfarbe betriebssystemabhängig.
Du kannst Dir mit diesen zwei Makros helfen:

Code: Alles auswählen

global ooldevent as object
global bfirst as boolean

Sub S_change_cellbackcolor_in_actual_row(event)
    if not bfirst then goto 100
    S_remove_cellbackcolor_in_old_row
    100:
    if event.supportsservice("com.sun.star.sheet.SheetCellRange") then
        event.CellBackColor = RGB(255,190,0)
        ooldevent = event
        bfirst = true
    endif
End Sub

Sub S_remove_cellbackcolor_in_old_row
    ooldevent.CellBackColor = -1
End Sub

Binde das Makro S_change_cellbackcolor_in_actual_row an das Tabellenereignis (rechte Maustaste auf den Tabellenreiter->Tabellenereignisse...) Auswahl geändert
Gruß R

[Elektro]

Hallo R,
danke für den Tipp !!!!
Ich habe zwar etwas gebraucht bis ich das Makro eingebunden hatte ( ist alles sehr verwirrend für den normalen Anwender)
Aber der Effekt ist genau das was ich gesucht habe - ein Erkennung der aktiven Zelle (in deinem Makro = oranger Hintergrund) bei dickeren Umrandungen einer Zelle
Gruß Rolf

[F3K Total]

Schön das es klappt,

( ist alles sehr verwirrend für den normalen Anwender)

... wenn man es einmal verstanden hat, eröffnen sich ungeahnte Möglichkeiten in OpenOffice/LibreOffice ...

in deinem Makro = oranger Hintergrund

in dieser Zeile

Code: Alles auswählen

event.CellBackColor = RGB(255,190,0)

kannst Du jeden anderen gewünschten RGB-Farbwert eintragen.
Gruß R

[LoveSteaks]

Hallo Zusammen,
ich bin neu hier und weiss nicht genau ob man auf einen alten Beitrag antworten kann.
Auf jedenfall war Dein Tipp goldrichtig!
Die aktive Zelle wird orange markiert.
Allerdings wird jeder Zellenhintergrund weiß und alle meine Formatierungen der Hintergrundfarbe sind weg.

Ist es möglich die alte Hintegrundfarbe nicht mit weiß zu überschreiben.

Ich wäre für einen Tipp sehr dankbar.

Gruß
Uwe

[unwissend]

Hallo,
nach meiner Information ist die Selektionsfarbe betriebssystemabhängig.
Du kannst Dir mit diesen zwei Makros helfen:

Code: Alles auswählen

global ooldevent as object
global bfirst as boolean

Sub S_change_cellbackcolor_in_actual_row(event)
    if not bfirst then goto 100
    S_remove_cellbackcolor_in_old_row
    100:
    if event.supportsservice("com.sun.star.sheet.SheetCellRange") then
        event.CellBackColor = RGB(255,190,0)
        ooldevent = event
        bfirst = true
    endif
End Sub

Sub S_remove_cellbackcolor_in_old_row
    ooldevent.CellBackColor = -1
End Sub

Binde das Makro S_change_cellbackcolor_in_actual_row an das Tabellenereignis (rechte Maustaste auf den Tabellenreiter->Tabellenereignisse...) Auswahl geändert
Gruß R

Ich verstehe das leider nicht! Kann das bitte jemand für leihen verständlich machen? Tabellenreiter ist noch klar, dann Ereignisse, Aktion zuweisen dort Auswahl geändert wählen, aber wie dann weiter? Ich habe leider eine Sehschwäche und das wäre genau das richtige für mich.
VG Unwissend