FarbenIndexUmsetzen
Volker
Sub FarbenIndexUmsetzen()
Sheets("Farben").Activate
Range("A15").Select
Select Case ActiveCell.Value
Case 1 'schwarz
ActiveCell.Offset(0, 1).Interior.ColorIndex = 1
Case 3 'rot
ActiveCell.Offset(0, 1).Interior.ColorIndex = 3
End Select
End Sub
Hallo !
Ich möchte das Case 3 'rot auch gemacht werden soll!!
Es ist aber nicht der Fall nur Case 1 'schwarz und dann End Select?
Anzeige