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

Hintergrundfarbe

Forumthread: Hintergrundfarbe

Hintergrundfarbe
26.03.2003 19:44:48
André
Hallo alle zusammen,

ich benötige eure Hilfe. Ich möchte ein kleines Programm schreiben, bei dem in einer Arbeitsmappe beim
Eingeben der Zahlenwerte 1 bis 30 jeweils eine andere Zellhintergrundfarbe erscheint. Wie kann man das
bewirken.
Danke im voraus


Anzeige

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

Betreff
Datum
Anwender
Anzeige
Re: Hintergrundfarbe
26.03.2003 20:00:45
ChrisL

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Nummer As Byte

On Error GoTo errorhandler
Nummer = Cells(Target.Row, Target.Column)

Select Case Nummer
Case 1
Cells(Target.Row, Target.Column).Interior.ColorIndex = 3
Case 2
Cells(Target.Row, Target.Column).Interior.ColorIndex = 4
'Case 3 etc.
End Select


Exit Sub
errorhandler:
End Sub

Gruss
Chris

Anzeige
Re: Hintergrundfarbe
26.03.2003 20:54:00
PeterW

Hallo Chris,

für 30 Farben (soll die Bedingung nur für eine Tabelle oder - wie angefragt für eine MAPPE!! gelten) kann man sich viel Schreibarbeit sparen:

.
.
Select Case Target.Value
Case 1
Target.Interior.Colorindex = 3
.
.
.

Gruß
Peter

Re: Hintergrundfarbe
28.03.2003 19:44:34
André

Danke,

ich teste am Wochenende und melde mich, wenn es funktioniert

mfg

André

Anzeige
Re: Danke Euch allen
29.03.2003 12:41:21
André

ich war mit "select case" schon auf den richtigen Weg. Mir fehlten die Details.
Jetzt funktioniert es wie gewünscht.

Danke für die schnelle Hilfe

mfg
André

;

Beliebteste Forumthreads (12 Monate)

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