per Makro Wert aus einer Zelle in eine ander Zelle als Zahl eintragen

Question

Hallo Zusammen,

Ich hab einen Wert über einen bestimmten Sverweis-Formel in A1 dieser wert möchte ich in F1 kopieren per Makro einfügen, dieser Wert soll aber als Zahl eingefügt werden.
Formel geht eine ganze Tabelle nach somit hab ich es über eine Schleife laufen.

Ursprungsformel:

aobjQuellBlatt.Cells(aQuellZeileEnd, 6) = aobjQuellBlatt.Cells(aQuellZeileEnd, 1)

der wert der so eingesetzt wird wird als Text angesehen und nicht als Zahl. Der darauf zugreifende sverweis funktioniert nicht. geh ich anschließend manuell hin un geb den Wert mit der Tastatur ein erkennt Excel das es einen Zahl ist und somit funktioniert der Sverweis.

Danke im voraus für eure Hilfe und Antwort.

Gruß Dutchi

Answer 1

Hallo Dutchi,

versuch es mal so:

aobjQuellBlatt.Cells(aQuellZeileEnd, 6) = Val(aobjQuellBlatt.Cells(aQuellZeileEnd, 1))

Gruß

M.O.

Answer 2

Bingooooooo
SUPER,,SUPER,,SUPER,,SUPER,,


Danke Danke Gruß Dutchi

Answer 3

SUUUUUPER,
BINGO,BINGO,BINGO,BINGO,

hat funktioniert.

Danke Dutchi

Answer 4

Da ist ja einer ganz aus dem Häuschen ;-).

Gruß

M.O.

Answer 5

Hallo Dutchi,

wenn Du auch Dezimalzahlen übertragen willst, dann:

aobjQuellBlatt.Cells(aQuellZeileEnd, 6).Value = CDbl(aobjQuellBlatt.Cells(aQuellZeileEnd, 1))

Gruß
Rainer