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:)
|