Hallo,

wie oben genannt ist dies mein Problem... Nachdem die Fehlermeldung auftaucht stürzt Excel sofort ab und lässt sich nicht mehr gebrauchen.

Habe schon mehrere Methoden der Programmierung versucht und immer gibt es das selbe Problem.

An sich soll das Programm bei einer Änderung einer Zelle anhand eines Drop-down-Menüs die Zelle nebendran ändern, entweder mit einem Wert oder die Zelle soll geleert und die Farbe geändert werden. Nachdem die Zelle geleert ist muss ein neuer Wert eingetragen werden.

Dies ist mein zweites Problem, da die Zelle sich natürlich immer weider automatisch leert. Gibt es dafür einen Befehl? Null ist wohl nicht das richtige:D

Vielen Dank für eure hilfe:))

Hier mein Code:

Sub Bottom_up()
If Cells(21, 4).Text = "Bottom up Kalkulation" Then
Cells(21, 3) = Null '(In dieser Zeile möchte das Programm debuggen)
Cells(21, 3).Interior.Color = RGB(153, 204, 0)

ElseIf Target = Cells(21, 4) Then

Select Case Cells(21, 4)
Case Is = "Listenpreis"
Cells(21, 3).Interior.ColorIndex = 2
Cells(21, 3) = 0.5

Case Is = "Listenpreis - 5 %"
Cells(21, 3).Interior.ColorIndex = 2
Cells(21, 3) = 0.474

Case Is = "Listenpreis - 10 %"
Cells(21, 3).Interior.ColorIndex = 2
Cells(21, 3) = 0.444

Case Is = "Listenpreis - 15 %"
Cells(21, 3).Interior.ColorIndex = 2
Cells(21, 3) = 0.412

Case Is = "Listenpreis - 20 %"
Cells(21, 3).ColorIndex = 2
Cells(21, 3) = 0.375

Case Is = "Listenpreis - 25 %"
Cells(21, 3).ColorIndex = 2
Cells(21, 3) = 0.333

Case Is = "Listenpreis - 30 %"
Cells(21, 3).ColorIndex = 2
Cells(21, 3) = 0.286

Case Is = "Listenpreis - 35 %"
Cells(21, 3).ColorIndex = 2
Cells(21, 3) = 0.231

Case Is = "Listenpreis - 40 %"
Cells(21, 3).Interior.ColorIndex = 2
Cells(21, 3) = 0.176

Case Is = "Listenpreis - 45 %"
Cells(21, 3).Interior.ColorIndex = 2
Cells(21, 3) = 0.091

Case Is = "Listenpreis - 50 %"
Cells(21, 3).Interior.ColorIndex = 2
Cells(21, 3) = 0

End Select
End If
End Sub