Seite 1 von 1

Hervorhebung aktiver Zellen

Verfasst: So 5. Nov 2017, 11:27
von LoveSteaks
Hallo Zusammen,
ich bin auf der Suche nach einem Skript, dass die aktiven Zellen farblich hervorhebt.
Der frühere gepostete Beitrag war goldrichtig!
Link:
viewtopic.php?f=6&t=11755#p20060

Dort werden die aktiven Zellen orange markiert.
Allerdings wird jeder Zellenhintergrund weiß und alle meine Formatierungen der Hintergrundfarbe sind weg. :? :shock:

Ist es möglich die alte Hintegrundfarbe nicht mit weiß zu überschreiben?
Sondern die vorher gespeicherte Hintergrundfarbe wieder einzufügen?
Mir persönlich fehlen dazu die nötigen Kenntnisse in der Makroprogrammierung.

Für einen Tipp wäre ich sehr dankbar.

Gruß
Uwe

Betriebssytem: Windows 7
Libre Offfice Version 5.1.0.3

Re: Hervorhebung aktiver Zellen

Verfasst: So 5. Nov 2017, 15:44
von mikele
Hallo,
dazu muss dass Makro von F3KTotal etwas ergänzt werden:

Code: Alles auswählen

global ooldevent
global oldcolor


Sub S_change_cellbackcolor_in_actual_row(event) as boolean
    S_remove_cellbackcolor_in_old_row
    if event.supportsservice("com.sun.star.sheet.SheetCellRange") then
        ooldevent = event
        oldcolor=event.CellBackColor
        event.CellBackColor = RGB(255,190,0)
    endif
    S_change_cellbackcolor_in_actual_row=true
End Sub

Sub S_remove_cellbackcolor_in_old_row
    if not (isempty(ooldevent)) then
    	ooldevent.CellBackColor = oldcolor
    end if
End Sub
Das Makro merkt sich nun die alte Hintergrundfarbe und stellt sie wieder her.

Re: Hervorhebung aktiver Zellen

Verfasst: Mo 6. Nov 2017, 08:56
von LoveSteaks
Hallo Mikele,
vielen Dank für die Ergänzung!
Es funktioniert super.
Endlich muss ich nicht mehr auf dem Bildschirm die aktive Zelle suchen.
Gruß
Uwe

Re: Hervorhebung aktiver Zellen

Verfasst: Do 19. Okt 2023, 10:59
von Chip
mikele hat geschrieben:
So 5. Nov 2017, 15:44
Hallo,
dazu muss dass Makro von F3KTotal etwas ergänzt werden:

Code: Alles auswählen

global ooldevent
global oldcolor


Sub S_change_cellbackcolor_in_actual_row(event) as boolean
    S_remove_cellbackcolor_in_old_row
    if event.supportsservice("com.sun.star.sheet.SheetCellRange") then
        ooldevent = event
        oldcolor=event.CellBackColor
        event.CellBackColor = RGB(255,190,0)
    endif
    S_change_cellbackcolor_in_actual_row=true
End Sub

Sub S_remove_cellbackcolor_in_old_row
    if not (isempty(ooldevent)) then
    	ooldevent.CellBackColor = oldcolor
    end if
End Sub
Das Makro merkt sich nun die alte Hintergrundfarbe und stellt sie wieder her.
Hey zusammen,
genau, was ich gesucht habe!
Super Makro! Danke dafür!

Wie kann ich es erweitern, damit nicht nur die Zelle, sondern auch die gesamte Zeile markiert wird?

Vielen Dank im Voraus für Eure Untersützung!

Chipy

Re: Hervorhebung aktiver Zellen

Verfasst: Do 19. Okt 2023, 12:47
von musikai

Re: Hervorhebung aktiver Zellen

Verfasst: Do 19. Okt 2023, 15:44
von Chip
musikai hat geschrieben:
Do 19. Okt 2023, 12:47
Schau mal hier:
viewtopic.php?f=6&t=38911
Super! Cool zu wissen, dass andere auch dieselben Wünsche nach Erweiterungen haben wie man selber. 😏
Danke für den Hinweis, musikai!

Checke noch nicht ganz, welche von den drei Dateien, die angehängt sind, ich genau benötige? 🙈
Ich habe in der Zeile bereits formatierte Inhalte sowie teilweise Hintergrundfarbe.

Danke für Deine Unterstützung!