Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1092to1096
1092to1096
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ampelreport (Label einfaerben) bei

Forumthread: Ampelreport (Label einfaerben) bei

Ampelreport (Label einfaerben) bei
Peter
Hallo Expertenteam
brauche mal wieder eure Unterstützung
möchte gern einen Ampelreport in einer Userform einbauen
Wenn der Label7 den Wert 100 und größer erreicht färbt sich die Schrift im Label12 grün
bei gleich 98 und kleiner 100 der Label10 gelb und bei kleiner 98 der Label11 rot
In der Userform sind die Label mit Schriftart Webdings formatiert und das n (kleiner Kreis) voreingestellt
Vielen Dank nochmal an alle für die tolle Unterstützung
Gruß Peter Knierim
https://www.herber.de/bbs/user/63617.xls
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Ampelreport (Label einfaerben) bei
04.08.2009 17:02:23
hary
Hallo Peter
geht so. Musst nur einem Ereigniss zuweisen zB. Button klick 

If Label7.Caption >= 100 Then Label12.ForeColor = &HFF00&
If Label7.Caption = 99 Or Label7.Caption = 98 Then Label10.ForeColor = &HFFFF&
If Label7.Caption

Gruss hary
Anzeige
AW: Ampelreport (Label einfaerben) bei
04.08.2009 18:05:06
Peter
Hallo Harry
leider klappt das so nicht bei mir
hier mal der Auszug wie Label7 berechnet wird
wollte deinem code so einfügen
hast noch eine Idee
Private Sub ComboBox2_Change()
Call FuellLabel
If IsNumeric(Label5) And Label5  "" And Label6  "" Then
Label7.Caption = Format(CDbl(Label6) / CDbl(Label5), "0.00%")
If Label7.Caption >= 100 Then Label12.ForeColor = &HFF00&
If Label7.Caption = 99 Or Label7.Caption = 98 Then Label10.ForeColor = &HFFFF&
If Label7.Caption
Gruß Peter
Anzeige
AW: Ampelreport (Label einfaerben) bei
04.08.2009 23:45:07
Jens
Hallo Peter
Auf die Schnelle versuch mal so:
Private Sub ComboBox2_Change()
Call FuellLabel
If IsNumeric(Label5) And Label5  "" And Label6  "" Then
Label7.Caption = Format(CDbl(Label6) / CDbl(Label5), "0.00%")
If CDbl(Label6) / CDbl(Label5) >= 1 Then Label12.ForeColor = &HFF00&
If CDbl(Label6) / CDbl(Label5) = 0.98 Then Label10. _
ForeColor = &HFFFF&
If CDbl(Label6) / CDbl(Label5)
Gruß aus dem Sauerland
Jens
Anzeige
AW: Ampelreport (Label einfaerben) bei
05.08.2009 08:30:34
Peter
Hallo
klappt leider auch nicht
Datentyp unverträglich bekomme ich an gezeigt
Gruß Peter
AW: Ampelreport (Label einfaerben) bei
05.08.2009 08:39:01
Peter
Hallo
hatte einen Denkfehler
alles klappt
Danke
Gruß Peter
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige