Rechenfehler
12.07.2004 23:05:34
Frank
Range("C" & zelle).Activate 'aktiviere zelle c2 oder was auch immer
Range("C" & zelle).Copy 'kopiere den enthaltenen wert
Sheets("irgendeine GmbH").Activate 'wechsel jetz zum Blatt irgendeine gmbh
'der kopierte betrag gehört im blatt in die Spalte C, i war der ausgangspunkt für dir Suche
Range("C" & i).Activate 'aktiviere als die Zelle C i
'Range("C" & i).PasteSpecial 'setze den kopierten Wert ein (:Auskommentiert von mir da es nicht funktionierte und dafür die nächste Zeile eingesetzt)
Range("C" & i).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Selection.NumberFormat = "#,##0.00" 'formatieren der zelle zur zahl
Das funktioniert alles hervorragend, bin ich auch ganz stolz drauf, aber...
Aber die Zahlen werden in den Einzelnen Arbeitsblättern nicht korrekt gerechnet.
Wo liegt das Problem? Hab schon hin und herformatiert, Standard/Text/Zahl/Währung, mein Excel bleibt doof und rechnet falsch. Ich bin ja ein gläubiger Computerfreak und kann nicht glauben das das Problem am Rechner liegt. Es muss was mit dem Datentransfer zu tun haben, da ist ein haken den ich nicht finde. Ihr? Danke für die Hilfe. Bin gern bereit weitere Fragen zu den einzelheiten zu beantworten, wenn es denn der Wahrheitsfindung dient.