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
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
Manchmal hilft de Recherche
https://www.herber.de/forum/archiv/220to224/t221593.htm#221595
Gruß
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
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
ich teste am Wochenende und melde mich, wenn es funktioniert
mfg
André
Danke für die schnelle Hilfe
mfg
André