Clever-Excel-Forum

Normale Version: Schriftsatz (Pfeil) in 7 Schritten um 180° drehen
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
Hallo zusammen
ich habe mir einen Kalender erstellt in dem (Blutdruck-) Werte eingefügt werden sollen.
Die Eingaben vergleiche ich mit einer Liste, aus der eine Bewertung hervor geht : 1=optimal bis 7=schwere Hypertonie.

Diese Bewertung würde ich in dem Kalender gerne mit einem gedrehten Pfeil anzeigen. 1=Pfeil oben ...2...3...4...5...6.. 7=Pfeil unten.
Das bekomme ich im Prinzip auch alles geregelt,

Mein Problem: ich finde keinen Symbolsatz [Pfeile] die entsprechend gedreht sind.
>was schon funktioniert ist eine bedingte Formatierung >Symbolsatz Pfeile. Problem: das sind leider nur max. 5 Schritte Angry
>Mein Gedanke wäre, selbst einen Symbolsatz [Pfeile gedreht] zu erzeugen. um diese dann einzufügen.

Ich hänge die Tabelle mal mit an, vielleicht hat ja jemand eine Idee für mich.
Es dreht sich im Kalender und die Spalten OO


Gruß Holger
Moin!
Ohne mir die Datei angesehen zu haben:
Es gibt 8 verschiedene Pfeile, die man im Sinne einer Uhrzeit auswerten könnte:
AB
18593
28599
38594
48600
58595
68601
78592
88598

ZelleFormel
B1=UNICODE(A1)
B2=UNICODE(A2)
B3=UNICODE(A3)
B4=UNICODE(A4)
B5=UNICODE(A5)
B6=UNICODE(A6)
B7=UNICODE(A7)
B8=UNICODE(A8)

Gruß Ralf
Hallo Ralf, danke für die Antwort.
Das bekomme ich auch aus der bedingten Formatierung.

Das sind A1 bis A5 fünf Pfeile.
Was ich suche sind 7 Pfeile, in Stufen gedreht bis 180° (nicht 360°)
also fast die doppelte Anzahl an Schritte
Gruß Holger
Nun ja:
Fünf vor zwölf ist ja auch ein bekannter Begriff …  :21:

Der Unicode-Zeichensatz gibt das nicht her.
Denkbar wäre ein (per VBA) gedrehtes Shape.
Führte aber zu einer anderen Krankheit:
Blähungen (der Datei)!

Gruß Ralf
Ja das mit einem eigenen Schriftsatz war auch nur eine Idee, die ganze Geschichte einfach zu gestalten.

Sollte das nicht möglich sein, werde ich für den besten und schlechtesten wert ein anderes Symbol wählen.

Danke und Gruß Holger
Hallo,

ich kenne keine Symbolschrift oder Symbolsätze die das hergeben.

Aber man könnte die Pfeile entsprechend farblich abstufen, z. B. so:
Stufe 1 = Pfeil oben grün
Stufe 2 = Pfeil rechts oben grün
Stufe 3 = Pfeil rechts oben orange
Stufe 4 = Pfeil rechts orange
Stufe 5 = Pfeil links unten orange
Stufe 6 = Pfeil links unten rot
Stufe 7 = Pfeil unten rot

Ich würde das intuitiv genau anders herum machen. Nach oben ist schlecht und rot (da der Blutdruck hoch ist) und nach unten ist grün und gut.
Hallo Michael, danke auch dir für deinen Vorschlag.

Interessant, und nicht Schlecht..

Ich wollte eigendlich erreichen, das jeder Stufe seine eigene Farbe von Grün bis Rot bekommt.
Und das sowohl in den Eingabezellen wie auch bei den Pfeilen.
Mit den sieben Pfeilen hat sich glaube ich erledigt. Geht nicht.

Bei deinem Vorschlag hätte ich in dann in den den Eingabezellen auch nur drei Farben wenn sie synchron mit den Pfeilen sein soll.
Dafür würde sich das Symbol/Farbe immer unterscheiden.
mal schauen.
Im Moment bin ich noch auf dem Trip den besten Wert mit Daumen hoch und den schlechtesten Wert mit Daumen runter zu machen.
Dann bekommen die Stufen dazwischen halt die fünf Pfeile.

Gruß Holger
Hallo!

Eigentlich ist das garnicht so schwer:

A. Besorg dir Type 3 (Testversion), damit kann man sich so einen Zeichensatz basteln, bei dem die Ziffern 1-7 durch einen entsprechenden Pfeil ersetzt werden. Leider muß so ein Spezialfont auf jedem Rechner vorhanden sein, auf dem das Ding läuft.

B. Nicht ganz so hübsch ist diese Lösung, in A1 steht die Zahl (1-7) und in A2 ein Pfeil nach rechts. Dann brauchts nur noch ein VBA, der bei Änderung von A1 entsprechend dreht:

Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim w As Long, n As Long
 
  If Target = Range("A1") Then
 
  n = Target.Value
  Select Case n
    Case 1: w = 90
    Case 2: w = 60
    Case 3: w = 30
    Case 4: w = 0
    Case 5: w = -30
    Case 6: w = -60
    Case 7: w = -90
  End Select
   
  End If
 
 
  Target.Offset(0, 1).Orientation = w
End Sub