Hallo,

für C9 funktioniert der Code wunderbar. Allerdings hätte ich gerne, dass das von C9 bis IV9 automatische funktioniert. Ein Weg wäre natürlich die Zeilen immer wieder zu kopieren und die Range anzupassen, allerdings doch ein sehr mühsamer weg. Ich denke, dass das besser geht nur sind meine Kenntnisse dahingehend sehr begrenzt.

So sieht der Code aus.

Sub Change

Sheets("Überprüfen").Select

   Select Case Range("C9").Value
        Case 1
            Range("C9").Value = "Schwarz"
        Case 2
            Range("C9").Value = "Blau"
        Case 3
            Range("C9").Value = "Rot"
        Case 4
            Range("C9").Value = "Grün"
        Case 5
            Range("C9").Value = "Gelb"
        Case 6
            Range("C9").Value = "Lila"
        Case 7
            Range("C9").Value = "Pink"
        Case Else
            Range("C9").Value = ""
    End Select

End Sub

Vielen Dank schon mal für die Hilfe:)