OpenOffice.info

gast freedom hat geschrieben:Bearbeiten-Änderungen-Aufzeichnen könnte die Lösung sein.
Allerdings färbt sich nur der Zellenrand, also nicht genau das, was du wolltest.

In den Optionen-Calc-Änderungen kannst du die Farbgebung ändern, wenn du willst.
Damit jeder seine Farbe bekommt, sollten in den Optionen Benutzerdaten eingetragen sein.

clag hat geschrieben:hi

wieviele Farben brauchst du denn?
wie währe es mit Mottco und und zu jeder Zeitspalte/zeile eine Hilfsreiche in der der Ma sein Kürzel einträgt
und dann wird über das Kürzel und BF eingefärbt?

gast freedom hat geschrieben:

Oder meinst du mit "Benutzer" die Anmeldung der Systemoberfläche?

ich meine Extras-Einstellungen-LibreOffice (oder OpenOffice)->Benutzerdaten.
Die kann man zwar verändern, wie und wie oft man will, ist aber nur für einen Benutzer vorgesehen.

global nCurrentcolor as long
Sub S_Insert_Color(changedCell)
    osheet = Thiscomponent.currentcontroller.activesheet
    sSheetname = osheet.Name
    oARange = oSheet.getCellRangeByName("B3:AF22")'Bereich in dem Farben eingetragen werden
    aCurrentRangeaddress = changedCell.Rangeaddress
    if changedCell.AbsoluteName = "$"+sSheetname+".$A$1" then 'Zelle in der der aktuelle Name eingetragen wird
        sName = oSheet.getcellbyposition(0,0).string
        oSheetPersonen = Thiscomponent.Sheets.getbyname("Personen")'Tabellenblatt auf dem die Personen stehen
        oRangePersoenen = oSheetPersonen.getcellrangebyname("A2:B5") 'Bereich in dem die Personen und jeweiligen Farben stehen
        for i = 0 to oRangePersoenen.rows.count - 1
            ocell = oRangePersoenen.getcellbyposition(0,i)
            if ocell.string = sName then 
                nCurrentcolor = oRangePersoenen.getcellbyposition(1,i).cellbackcolor'auslesen der aktuellen Hintergrundfarbe
                changedCell.cellbackcolor = nCurrentcolor
                exit for
            end if
        next i
    else 
        if oARange.queryIntersection(aCurrentRangeaddress).count = 1 then
           changedCell.cellbackcolor = nCurrentcolor
        endif
    endif
End Sub

• Binde das Makro an das Tabellenereignis "Inhalt geändert" (rechte Maustaste auf Tabellenreiter -> Tabellenereignisse ...) der Tabellenblätter auf denen du "Farbeintragungen" machen möchtest.
• Erzeuge in Zelle A1 eine Datengültigkeit, die auf die Namen auf einem zusätzlich angelegten Tabellenblatt "Personen" zugreift.
• Färbe das Feld rechts jedes Namens mit der gewünschten Farbe ein.
• Schreibe den Bereich der Personen und Farben ins Makro (im Beispiel A2:B5)
• Schreibe den Zellbereich in dem die Farben eingetragen werden sollen in das Makro (im Beispiel B3:AF22)

Karolus hat geschrieben:Ben muss doch nur für jeden Benutzer eine Zellvorlage mit dem Namen des jeweiligen Benutzers kreieren ...

Karolus hat geschrieben:Hallo R

Warum so kompliziert, Ben muss doch nur für jeden Benutzer eine Zellvorlage mit dem Namen des jeweiligen Benutzers kreieren, und ( ausser →Daten→Gültigkeit.. für den Namenseintrag in A1 ) folgendes ans Ereignis 'Inhalt geändert' binden:

Code: Alles auswählen

Sub colorize(event)
sheet = event.Spreadsheet
currentaddress = event.RangeAddress
colorrange = sheet.getCellRangeByName("B2:F20") 
if colorrange.queryIntersection(currentaddress).count = 1 then
      'Zellvorlage wird aus A1 ausgelesen und zugewiesen
    event.Cellstyle = sheet.getCellrangeByName("A1").String 
end if
End Sub

Karolus

BenHEP hat geschrieben:D5:AH27, D33:AH55, D61:AH83, usw..

Sub colorize(event)
    sRanges = Array("D5:AH27", "D33:AH55", "D61:AH83")'hier die Zellbereiche eintragen
    osheet = event.Spreadsheet
    acurrentaddress = event.RangeAddress
    aColorranges = ThisComponent.createInstance("com.sun.star.sheet.SheetCellRanges")
    for i = 0 to ubound (sRanges)
        aColorranges.addRangeAddress(oSheet.getCellRangeByName(sRanges(i)).RangeAddress,False)
    next i
    if aColorranges.queryIntersection(acurrentaddress).count = 1 then
        'Zellvorlage wird aus A1 ausgelesen und zugewiesen
        event.Cellstyle = osheet.getCellrangeByName("A1").String 
    end if
End Sub

Wie ergänze ich jetzt die folgenden Seiten in das oben genannte SUB? Die betreffenden Bereiche lauten D5:AH27, D33:AH55, D61:AH83, usw..

Sub color(event)

sheet = event.Spreadsheet
currentaddress = event.RangeAddress
colorranges = array("D5:AH27", "D33:AH55", "D61:AH83") '# entsprechend erweitern'
for each range in colorranges
    range = sheet.getCellRangeByName( range )
    if range.queryIntersection(currentaddress).count = 1 then
        event.Cellstyle = sheet.getCellrangeByName("A1").String
        exit for
    end if
next
End Sub

Erschwerend kommt jetzt noch hinzu, dass ich in einem Dokument ca 10 dieser Jahreskalender, jeweils in einer separaten Tabelle verwalten möchte. Wird davon das SUB beeinflusst? Gerne kann die Auswahl der Farbe EINMAL getroffen werden und dann für alle 10 Tabellen gültig sein. Notwendig ist dies aber nicht. Sie könnte auch auf jeder Tabelle neu wählbar sein - was einfacher zu schreiben ist.

Karolus hat geschrieben:Hallo

Das Dokument öffnet mit der selben Ansicht wie beim letzten schliessen...
( falls an der Stelle eine Änderung gespeichert wurde )

Karolus