string-Ersetzung mit Excel-VBA (ähnlich dem Excel-ERSETZEN-Funktion)

Ich habe eine Frage bezüglich string-Modifikation. Nehmen wir an, wir haben folgenden string: 4155595208***
in Zelle A1 (10 zahlen und 3 startet).

Nun würde ich gerne ersetzen Sie diese 3 Sterne mit einem leeren Feld und bekommt das Ergebnis in Zelle B1 (also ich will 4155595208 zu bekommen, wie ein Ergebnis). Wenn ich eine normale eingebaute Excel-Funktion würde ich geben Sie den folgenden, was in die Zelle B1:
=SUBSTITUTE(A1,"*","")

Nun würde ich gerne tun, ganz gleich, was mit Excel-VBA. Immer wenn ich versuchte, führen Sie den folgenden code, allerdings bekam ich die Fehlermeldung: "Run-time error '13': Type mismatch".

sub test()
cells(1,2) = "=SUBSTITUTE(M2," * ","")"
end sub

Ich denke das problem kann auftreten, da der Haufen Anführungszeichen, aber ich weiß nicht. Könnte mir jemand helfen bei dieser Sache?

Vielen Dank im Voraus,
Laszlo

InformationsquelleAutor Laszlo | 2012-01-19