Textfarbe im Label = rot

Forumthread: Textfarbe im Label = rot
5 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Textfarbe im Label = rot

16.01.2004 14:21:32

Frederik Fuhrmann

Hallo!
Ich möchte die Zahlen in mehreren Labels in Abhängikeit ihres Wertes rot od. schwarz darstellen, wer kann mir weiterhelfen?

For Each Object In Pruefungsergebnis
    If Left(Object.Name, 9) = "Label_Abw" Then
        If Object.Caption < 0 Then
            Object.Color = "rot"
        End If
    End If
Next Object

Danke im Vorraus,
Gruß
Frederik

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Textfarbe im Label = rot

16.01.2004 14:42:55

xXx
AW: Textfarbe im Label = rot

16.01.2004 14:45:47

Frederik Fuhrmann
AW: Textfarbe im Label = rot

16.01.2004 15:09:00

Frederik Fuhrmann
AW: Textfarbe im Label = rot

16.01.2004 19:06:16

Ulf
AW: Textfarbe im Label = rot

19.01.2004 08:25:37

Frederik Fuhrmann

AW: Textfarbe im Label = rot

16.01.2004 14:42:55

xXx

Hallo,
als Anregung:
Object.ForeColor=RGB(255,0,0)
Gruß aus'm Pott
Udo
http://www.excelerator.de

P.S. Das Forum lebt auch von den Rückmeldungen an die Antworter!

AW: Textfarbe im Label = rot

16.01.2004 14:45:47

Frederik Fuhrmann

Hallo Udo!
Danke schonmal für den Ansatz!
Gruß
F.

AW: Textfarbe im Label = rot

16.01.2004 15:09:00

Frederik Fuhrmann

Hallo Udo!
Habe das zwar hinbekommen, würde aber gerne nur den ABS des Labels auslesen, nach meiner Methode geht das nämlich nicht:

For Each Object In Pruefungsergebnis.Controls
    If Left(Object.Name, 9) = "Label_Abw" Then
        If Object.Caption > TextBox_Tonnen_kritisch Then
            Object.ForeColor = RGB(255, 0, 0)
        End If
    End If
Next Object

Gruß
F.

AW: Textfarbe im Label = rot

16.01.2004 19:06:16

Ulf

For Each Object In Pruefungsergebnis.Controls
If Left(Object.Name, 9) = "Label_Abw" Then
If Abs(CDbl(Object.Caption)) > CDbl(TextBox_Tonnen_kritisch) Then
Object.ForeColor = RGB(255, 0, 0)
End If
End If
Next Object
Ulf

AW: Textfarbe im Label = rot

19.01.2004 08:25:37

Frederik Fuhrmann

Guten Morgen Ulf!
Danke!
Gruß
F.

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