Ampelfunktion
18.10.2013 16:45:44
Stefan
habe ein kleines Problem.
Hatte in der XLS97er Version folgendes Makro:
' Schleife über alle Steuerelemente
For InI = 1 To Shapes.Count
' Namen des Steuerelementes prüfen
If Mid(Shapes(InI).Name, 1, 4) = "Oval" Then
' Zeile die abgefragt werden soll
Select Case Cells(ActiveSheet.Shapes(InI).BottomRightCell.Row, 57).Value
Case "ok"
ActiveSheet.Shapes(InI).Fill.ForeColor.SchemeColor = 11 ' grün
Case "in Arbeit"
ActiveSheet.Shapes(InI).Fill.ForeColor.SchemeColor = 13 ' gelb
Case "Termin"
ActiveSheet.Shapes(InI).Fill.ForeColor.SchemeColor = 10 ' rot
Case "abgeschlossen"
ActiveSheet.Shapes(InI).Fill.ForeColor.SchemeColor = 8 ' schwarz
Case "Muster"
ActiveSheet.Shapes(InI).Fill.ForeColor.SchemeColor = 22 ' grau
Case Else
ActiveSheet.Shapes(InI).Fill.ForeColor.SchemeColor = 9 ' weiß
End Select
Else
ActiveSheet.Shapes(InI).Fill.ForeColor.SchemeColor = 1
End If
Next InI
Welches mir Kreise je nach Zellinhalt eingefärbt hat.
Das Makro läuft leider unter XLS2010 nicht mehr.
Es gibt in XLS ja die Ampelfunktion. Bei der hab ich allerdings das Problem,
dass meine Ampel in Spalte A, B oder C liegt. Der dazugehörige Wert jedoch erst
in Spalte BE (57) ist.
Wer kann mir sagen, wie ich das Macro anpassen muß, so dass dies auch unter XLS10 läuft ?
Oder wer weiß wie man eine Ampelsteuereung (Anzeige z.B. in Spalte A) den Wert dazu jedoch erst in Spalte BE hat ?
Liebe Grüße
Stefan