Ampelschaltung

Computer: Software & Programmierung Office Software
1

Das Makro für eine Ampel habe ich schon geschrieben.
Ich würde aber gerne erreichen, dass unter einem bestimmten Wert grün zwischen zwei Werten Orange und grösser als ein Wert Rot schaltet.
Die Schaltung hab ich. Jedoch leuchten beim grössten Wert alle Farben. Was muss ich eingeben für "zwischen zwei werten
Bsp: 200 rot. Die Farbe soll je alleine erscheinen.

2

hallo.

die ampel wird im tabellenblatt angezeigt, oder wie?
woher kommt die zeit für die ampelsteuerung?
wie sieht dein makro aus?

gruß

michael

3

hi,

ich verstehs nicht ganz. wo soll „die ampel“ stehen? wie soll sie aussehen?

falls es drum geht, eine tabellenzelle mit verschiedenen hintergrundfarben in abhängigkeit des zahlenwerts einer anderen zelle leuchten zu lassen: da brauchst du kein makro. das geht mit „bedingter formatierung“. du klickst die „ampelzelle“ an, wählst menü Format | Bedingte Formatierung, wählst dann statt „Wert ist“ „Formel ist“ und gibst dann die erste bedingung für die zelle an, die abgefragt werden soll.
z.b.
=a1=100;A1[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

4

Ich habe einfach Kreise in eine Clipart Ampel eingefügt. Oval 24/25/26
Private Sub CommandButton1_Click()
If Range(„C4“) >= 3001 Then
ActiveSheet.Shapes(„Oval 24“).Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
End If
If Range(„C4“) 2000 Then
ActiveSheet.Shapes(„Oval 25“).Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 53
Selection.ShapeRange.Fill.Visible = msoTrue
End If
If Range(„C4“)

5

Ich habe eine Clip Art Ampel in Excel kopiert. Dann 3 Kreise gezeichnet und in die Ampel gesetzt . Mit Makro aufzeichnen die Kreise je Rot Orange und grün gefärbt.
Im Makro sind dies dann Objekt oval x …

Du hast mich schon auf die richtige Fährte mit AND gebracht
Danke

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

6

hallo.

stand vorhin etwas aufm schlauch :smile: also:
OFFENES intervall von a zwischen x und y: (a > x) AND (a = x) AND (a y)
alles außer geschl. intervall von a zw. x und y: (a = y)
ok?

gruß

michael