Fehler 1004 bei Division

[sheaven]

Hallo,

Ich bin gerade kurz vorm verzweifeln. Und zwar bringt er mir den Fehler 1004 bei der Zeile mit dem R1C1:

For Each zelle In Worksheets("Tabelle1").Range("D6:D600")
        zelle.FormulaR1C1 = "=RC[-1]/" & base
    Next

Diesen Fehler bringt er aber nicht auf meinem Rechner, sondern nur auf anderen.
Wenn ich die Zeile in: zelle.FormulaR1C1 = "=RC[-1]"
ändere bringt er keinen Fehler mehr. Es muss also an der Division liegen. Die Varibale base ist vom Typ Single und eine Dezimalzahl.
Was ihr was hier sein kann?

thx

 

[vop]

Division durch 0 ?

vop

 

[sheaven]

Nein die Zahl ist eine Decimalzahl.
Habe habe base jetzt mit 1.000.000 multipiziert und die Nachbarzelle auch:

base = base * 1000000
    For Each zelle In Worksheets("Tabelle1").Range("D6:D600")
        zelle.FormulaR1C1 = "=RC[-1]*1000000/" & base
    Next

So geht es, da jetzt kein Komma mehr da ist. Aber warum?
So richtig zufrieden bin ich mit der Lösung noch nicht....

 

[vop]

';' statt '.' ?

 

[sheaven]

Ja irgendwie hängt das mit Punkt und Komma zusammen aber ich verstehe nicht, warum er das nicht rafft. Die variable base lese ich auch nur aus einer Zelle aus. Der kann doch nicht mal mit Punkt und mal mit Komma rechnen, oder doch?

 

[vop]

Vermutlich interpretiert er den Wert aus der Zelle als String!

Zeig doch mal, wo du base ermittelst.

Vermutlich müßtest Du so was wie Value verwenden

vop

 

[sheaven]

Hier habe den Wert von base her:

For Each zelle In Worksheets("Tabelle1").Range("C6:C600")
    If zelle <> 0 Then
        base = zelle.Value
        Exit For
    End If
    Next

Ich suche erste nicht leere Zelle

 

[Shakie]

Wie heißt denn die Fehlermelung? (Also nicht die Nummer sondern die Beschreibung)

 

[sheaven]

"Laufzeitfehler 1004 - Anwendungs- oder Objektdefinierter Fehler"