formatierten Wert kopieren

Question

Hallo ihr alle,
habe ein problem beim kopieren.
Zelle "B58" ist formatiert- Währung!
Ich möchte den formatierten Wert kopieren oder per
Makro nach dem einfügen zu Geld machen!


Range("B145").End(xlUp).Select
Cells(ActiveCell.Row + 2, ActiveCell.Column + 0) = ActiveSheet.Range("B58").Value

schon mal Danke
Gruß
Ulle

Answer 1

Hallo Ulle,

wenn Du das Format mit übernehmn wilst mußt Du ,mit Copy arbeiten.
ActiveSheet.Range("B58").copy Cells(ActiveCell.Row + 2, ActiveCell.Column + 0)

Gruß Hajo

Answer 2

Hallo Hajo,
Copy funktioniert nicht, da sich hinter der formatierten Zahl eine Formel
befindet.
Ich möchte nur die Zahl mit dem € kopieren.
Gruß
Ulle

Answer 3

Hallo Ulle,

dann schreibe Deinen Ausdruck umgekehrt.
ungetestet.
ActiveSheet.Range("B58").Value
=Cells(ActiveCell.Row + 2, ActiveCell.Column + 0)

Gruß Hajo

Answer 4

Hallo Hajo,
Danke für deine Denkanstöße!
Bin beim experementieren selber drauf gekommen.
So funktioniert es jetzt!

ActiveSheet.Range("B58").Copy
Cells(ActiveCell.Row + 2, ActiveCell.Column + 0).PasteSpecial Paste:=xlPasteValuesAndNumberFormats

noch mal danke für deine Mühe
Gruß
Ulle