Excel VBA PasteSpecial mit xlPasteSpecialOperationAdd funktioniert nicht

Question

Ich versuche, einen Code, den ich mit dem Makro-Recorder erstellt, um zu arbeiten. Die Tabelle, die ich verwende, hat einige Spalten, die nur Zahlen oder Daten enthalten sollten, aber aus irgendeinem Grund werden einige der Werte als Text gespeichert.

Um es zu lösen, entschied ich mich für Kopieren und Einfügen 0 an alle diese Zellen. Wenn ich es manuell mache, funktioniert es gut. Also habe ich Excel-Makrorecorder gestartet, um den Code zu bekommen. Ich habe einige Änderungen an dem generierten Code vorgenommen, um ihn lesbarer und sauberer zu machen, aber eigentlich funktioniert weder der ursprüngliche Code noch meine Version davon.

Der Code ist wie folgt:

Range("F1").Value = 0 
Range("F1").Copy 
Set rngPaste = Range(Range("D3:E3"), Range("D3:E3").End(xlDown)) 
rngPaste.PasteSpecial Paste:=xlPasteValues, Operation:=xlPasteSpecialOperationAdd, 
              _ SkipBlanks:=False, Transpose:=False 
Set rngPaste = Range(Range("G3:J3"), Range("G3:J3").End(xlDown)) 
rngPaste.PasteSpecial Paste:=xlPasteValues, Operation:=xlPasteSpecialOperationAdd, 
              _ SkipBlanks:=False, Transpose:=False 
Application.CutCopyMode = False 

Irgendwelche Ideen, warum dies nicht funktioniert?

Vielen Dank im Voraus!

Answer 1

Anstelle der Zugabe Null versuchen diese (es auf meinem Test funktionierte)

With Range(Range("D3:E3"), Range("D3:E3").End(xlDown)) 
    .Value = .Value2 
End With 
With Range(Range("G3:J3"), Range("G3:J3").End(xlDown)) 
    .Value = .Value2 
End With