Und gleich noch eine dumme Frage: In einer Zelle steht eine dreistellige Zahl, ich möchte jetzt die drei Ziffern dieser Zahl addieren und diese Summe in eine andere Zelle übertragen. Hat jemand eine Idee?
Vielen Dank im Voraus
Werner
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B2:B16]) Is Nothing Then Exit Sub
With Target
Select Case .Value
Case 1
.Interior.ColorIndex = 3
Case 2
.Interior.ColorIndex = 4
'usw......
Case Else
.Interior.ColorIndex = xlNone
End Select
End With
End Sub