Hintergrundfarbe

Forumthread: Hintergrundfarbe
5 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Hintergrundfarbe

Hintergrundfarbe

26.03.2003 20: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

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Re: Hintergrundfarbe

26.03.2003 20:52:25

Fred H
Re: Hintergrundfarbe

26.03.2003 21:00:45

ChrisL
Re: Hintergrundfarbe

26.03.2003 21:54:00

PeterW
Re: Hintergrundfarbe

28.03.2003 20:44:34

André
Re: Danke Euch allen

29.03.2003 13:41:21

André

Re: Hintergrundfarbe

26.03.2003 20:52:25

Fred H

Hallo André

Manchmal hilft de Recherche
https://www.herber.de/forum/archiv/220to224/t221593.htm#221595

Gruß

Re: Hintergrundfarbe

26.03.2003 21: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