Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1092to1096
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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
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
Anzeige

Links zu Excel-Dialogen

ComboBox Label

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige