Hallo zusammen,
ich sehe den Wald vor lauter Bäumen nicht.
Excel2007
Ich wollte eine bedingte Formatierung mit den Symbolen „drei Pfeile farbig“ erstellen. Aber grüner Pfeil nach unten.
Finde die Einstellung nicht. Grüner Pfeil geht immer nach oben.
kann man die Symbole nicht spiegeln?
Gruß Holger
Grüezi Holger
Excel2007
Ich wollte eine bedingte Formatierung mit den Symbolen „drei
Pfeile farbig“ erstellen. Aber grüner Pfeil nach unten.Finde die Einstellung nicht. Grüner Pfeil geht immer nach
oben.
kann man die Symbole nicht spiegeln?
Nein, das kann man meines Wissens nicht.
Verwende eine Hilfsspalte in der Du alle Werte mit -1 multiplizierst und formatiere dann diese Hilfsspalte mit den Pfeilen.
Lege dann fest, dass nur das Symbol, nicht aber der Wert angezeigt wird.
–
Mit freundlichen Grüssen
Thomas Ramel
Nein, das kann man meines Wissens nicht.
Moin moin Thomas,
danke für deine Einschätzung.
Habe jetzt statt Pfeile eine Ampel draus gemacht, geht auch
Verwende eine Hilfsspalte in der Du alle Werte mit -1
multiplizierst und formatiere dann diese Hilfsspalte mit den
Pfeilen.
Lege dann fest, dass nur das Symbol, nicht aber der Wert
angezeigt wird.
So weit war ich auch schon, klar so kann ich die Bewertung umkehren, Problem:
Der grüne Pfeil zeigt immer noch nach oben und der rote nach unten…
Es ist aber sehr positiv, wenn die [Heizöl]-Preise fallen.
Na denn, danke und schöne Grüße
Holger
Excel2007
Ich wollte eine bedingte Formatierung mit den Symbolen „drei
Pfeile farbig“ erstellen. Aber grüner Pfeil nach unten.
Hallo Holger,
mal ein klassischer Ansatz. Starte einmalig „Test“, danach kannste j die Werte in B manuell abändern (die Löschroutine muß noch verbessert werden)
Eiige Eigenschaften von „Pfeil“ können auch raus da Standardeigenschaften.
in Modul "Tabelle1"
Option Explicit
Private Sub Worksheet\_Change(ByVal Target As Range)
Dim Zelle As Range
Set Target = Intersect(Target, Columns(2))
If Target Is Nothing Then Exit Sub
For Each Zelle In Target
If Zelle.Value
in Modul **"Modul1"**
Option Explicit
'
Sub Test()
Dim N
Range("A1").Value = "Datum"
Range("B1").Value = "Preis"
For N = 0 To 6
Cells(N + 2, 1).Value = Date + N
Cells(N + 2, 2).Value = Int(Rnd() \* 20) + 90
Next N
End Sub
'
Sub Gruen(Zelle As Range)
Dim Pfeil
Set Pfeil = ActiveSheet.Shapes.AddShape(msoShapeDownArrow, Zelle.Offset(0, 1).Left, Zelle.Top, 11, 15)
With Pfeil
.Name = "Pfeil" & Zelle.Address(0, 0)
.Fill.Visible = msoTrue
.Fill.Solid
.Fill.ForeColor.SchemeColor = 57
.Fill.Transparency = 0#
.Line.Weight = 0.75
.Line.DashStyle = msoLineSolid
.Line.Style = msoLineSingle
.Line.Transparency = 0#
.Line.Visible = msoFalse
End With
End Sub
'
Sub Loesch(Zelle As Range)
On Error Resume Next ' Naja, nicht ganz so gentlemenlike :smile:
ActiveSheet.Shapes("Pfeil" & Zelle.Address(0, 0)).Delete
End Sub
Gruß
Reinhard
Hallo Holger,
mal ein klassischer Ansatz. Starte einmalig „Test“, danach
kannste j die Werte in B manuell abändern (die Löschroutine
muß noch verbessert werden)
Eiige Eigenschaften von „Pfeil“ können auch raus da
Standardeigenschaften.
Hallo Reinhard, danke für die Hilfe.
Ich habe jetzt schon eine „Ampel“ daraus gemacht, reicht auch.
Wollte ja nur die Tendenz ein wenig deutlicher darstellen.
Was soll ich noch sagen? geht doch, danke!!.
gruß Holger