BITTE helfen Sie uns HEUTE mit einer SPENDE
Helfen Sie das LibreOffice Forum zu erhalten!

❤️ DANKE >><< DANKE ❤️

> KEINE WERBUNG FÜR REGISTRIERTE BENUTZER!<
Ihre Spende wird für die Deckung der laufenden Kosten sowie den Erhalt und Ausbau 🌱 des LibreOffice Forums verwendet.
🤗 Als Dankeschön werden Sie im Forum als LO-SUPPORTER gekennzeichnet. 🤗

Hervorhebung aktiver Zellen

CALC ist die Tabellenkalkulation, die Sie immer wollten.
Antworten
LoveSteaks
Beiträge: 3
Registriert: Mi 1. Nov 2017, 20:05

Hervorhebung aktiver Zellen

Beitrag von LoveSteaks » So 5. Nov 2017, 11:27

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

mikele
Beiträge: 1642
Registriert: Mo 1. Aug 2011, 20:51

Re: Hervorhebung aktiver Zellen

Beitrag von mikele » 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.
Gruß,
mikele

LoveSteaks
Beiträge: 3
Registriert: Mi 1. Nov 2017, 20:05

Re: Hervorhebung aktiver Zellen

Beitrag von LoveSteaks » Mo 6. Nov 2017, 08:56

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

Chip
Beiträge: 4
Registriert: Do 19. Okt 2023, 10:55

Re: Hervorhebung aktiver Zellen

Beitrag von Chip » Do 19. Okt 2023, 10:59

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

musikai
Beiträge: 262
Registriert: Do 14. Mai 2015, 17:53

Re: Hervorhebung aktiver Zellen

Beitrag von musikai » Do 19. Okt 2023, 12:47

Win7 Pro, Sibelius 7.1.3, Lubuntu 15.10, LibO 4.4.7, OO 4.1.3
Free Project: LibreOffice Songbook Architect (LOSA)
http://struckkai.blogspot.de/2015/04/li ... itect.html

Chip
Beiträge: 4
Registriert: Do 19. Okt 2023, 10:55

Re: Hervorhebung aktiver Zellen

Beitrag von Chip » Do 19. Okt 2023, 15:44

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!

An alle, die das LibreOffice-Forum nutzen:


Bitte beteiligen Sie sich mit 7 Euro pro Monat und helfen uns bei unserem Budget für das Jahr 2024.
Einfach per Kreditkarte oder PayPal.
Als Dankeschön werden Sie im Forum als LO-SUPPORTER gekennzeichnet.

❤️ Vielen lieben Dank für Ihre Unterstützung ❤️

Antworten