FarbenIndexUmsetzen
Volker
Sub FarbenIndexUmsetzen()
With Sheets("Farben").Range("A15")
Select Case .Value
Case 1 'schwarz
.Offset(0, 1).Interior.ColorIndex = 1
Case 3 'rot
.Offset(0, 1).Interior.ColorIndex = 3
End Select
End With
End Sub
Noch einmal Danke!
Aber ich hatte das nicht richtig beschrieben!
Ich möchte das A15 = 1 dann B15 = schwarz
A16 = 3 dann B16 = rot
Wie mach ich das ?
Anzeige