backcolor

Forumthread: backcolor
5 Beiträge zu diesem Forumthread
Anzeige

Forumthread: backcolor

backcolor

22.10.2007 14:23:00

Kocky

Hallo Ihr,
hab eine Frage, gibt es irgendwo eine auflistung über die Backcolor zahlen?
Möchte via code:
If Label35 (kleinerZeichen)18 Then
Label35.BackColor = 15
End If
die Hintergrundfarbe ändern. nur bräuchte ich die Zahlen für die farbe rot, orange,gelb und grün?
Hat jemand eine Idee
Gruß & Dank
Kocky

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: backcolor

22.10.2007 14:31:00

Peter
AW: backcolor

22.10.2007 14:36:00

Kocky
AW: backcolor

22.10.2007 14:45:00

Harry
AW: backcolor

22.10.2007 14:59:07

Kocky
Frage hat sich erledigt. DANKE an EUCH!

22.10.2007 15:28:40

Kocky

AW: backcolor

22.10.2007 14:31:00

Peter

Hallo Kocky,
versuche doch mal folgendes Makro
For i = 1 To 56
Cells(i, 1).Select
With Selection.Interior
.ColorIndex = i
.Pattern = xlSolid
End With
Next i
End Sub
Das listet alle Farben auf.
Gruß, Peter

AW: backcolor

22.10.2007 14:36:00

Kocky

hallo peter,
schönen Dank schonmal. Die Farben habe ich jetzt, aber die dazugehörigen nummern um es in den Code einzubauen fehlen mir. Hast du da auch noch eine Idee?
Gruß Holger

AW: backcolor

22.10.2007 14:45:00

Harry

Hallo Kocky,
die entsprechen der Zeilennummer.
Ansonsten ergänze dein Makro um


For i = 1 To 56
Cells(i, 1).Select
With Selection.Interior
.ColorIndex = i
.Pattern = xlSolid
End With
Cells(i, 2) = "Farbcode " & cstr(i)
Next i
End Sub

Gruß
Harry

AW: backcolor

22.10.2007 14:59:07

Kocky

Hallo ihr,
bin glaub ich zu blöd wenn ich jetzt
Label35.BackColor = 5
im code habe, wird anstatt blau, schwarz gezeigt.
oder muß es so aufgebaut werden?
Label35.BackColor = RGB(5, 0, 0)
Gruß&Dank
kocky

Frage hat sich erledigt. DANKE an EUCH!

22.10.2007 15:28:40

Kocky

zur vollständigkeit
mit
Label35.BackColor = RGB(5, 0, 0)
werde ich die Farbe selber zusammen stellen.
DANKE
Gruß
Kocky

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