Hallo Mikosch
Mikosch hat geschrieben:Danke erstmal für die Erklärung!
Ich vermute ich komme am besten und sichersten, wenn ich nicht Farben für die Statis verwende sondern eine Extra-Spalte mit Nummern zwischen 1 und 5. Dann stellt das Auswerten kein Problem dar.
Du brauchst gar keine Extraspalte und kannst doch deine Statis als Ziffer in die Zellen schreiben die du bisher mit Farben markiert hast. Die farbige Markierung kannst du dir abhängig von der Statusziffer von folgendem Makro erledigen lassen :
(das Original ist hier kürzlich von Stephan gepostet worden, Danke !)
Sub FarbAenderung_3()
oSelect=ThisComponent.CurrentSelection
oColumn=oselect.Columns
oRow=oSelect.Rows
For n= 0 To oColumn.getCount-1
For m = 0 To oRow.getCount-1
oCell=oselect.getCellByPosition (n, m)
Select Case oCell.String
Case ""
oCell.CellBackColor = -1
Case "1"
oCell.CellBackColor = RGB(0,102, 204)
Case "2"
oCell.CellBackColor = RGB(0,102, 204)
Case "3"
oCell.CellBackColor = RGB(250,255, 102)
Case "4"
oCell.CellBackColor = RGB(0,174, 0)
Case "5"
oCell.CellBackColor = RGB(255,153, 102)
Case "6"
oCell.CellBackColor = RGB(255,51, 51)
End Select
next
next
End Sub
Hier musst du nur noch die RGB-werte an deinen Geschmack anpassen, und den Zellbereich mit den Statis vor dem Starten selektieren.
Gruß
Karo