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

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
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 ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • 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
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • 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

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