Thema Datum  Von Nutzer Rating
Antwort
Rot Die Methode '_Default' für das Objekt 'Range' ist fehlgeschlagen
22.09.2014 08:41:06 Malina
NotSolved

Ansicht des Beitrags:
Von:
Malina
Datum:
22.09.2014 08:41:06
Views:
997
Rating: Antwort:
  Ja
Thema:
Die Methode '_Default' für das Objekt 'Range' ist fehlgeschlagen

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



 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Die Methode '_Default' für das Objekt 'Range' ist fehlgeschlagen
22.09.2014 08:41:06 Malina
NotSolved

     

nmd runner pk adidas nmd gold adidas stan smith gold adidas stan smith billig adidas superstar