[cs]Sub Geschäftsfähig()
Cells(6, 2).ClearFormats
If Cells(4, 2) < 7 Then
Cells(6, 2).Value = "Nicht geschäftsfähig"
Cells(6, 2).Interior.ColorIndex = 3
ElseIf Cells(4, 2) < 14 Then
Cells(6, 2).Value = "Beschränkt geschäftsfähig"
Cells(6, 2).Interior.ColorIndex = 3
ElseIf Cells(4, 2) < 18 Then
Cells(6, 2).Value = "Erweitert geschäftsfähig"
Cells(6, 2).Interior.ColorIndex = 3
Else
Cells(6, 2).Value = "Voll geschäftsfähig"
End If
[/cs]
noch langweiliger
Hihi wie süß die Farben doch sind