Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon Ulle-gt5 vom 05.03.2022, 20:23 Options
formatierten Wert kopieren
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
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
Antwort 1 von Hajo_Zi vom 06.03.2022, 01:05 Options
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
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
Antwort 2 von Ulle-gt5 vom 06.03.2022, 16:30 Options
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
Copy funktioniert nicht, da sich hinter der formatierten Zahl eine Formel
befindet.
Ich möchte nur die Zahl mit dem € kopieren.
Gruß
Ulle
Antwort 3 von Hajo_Zi vom 06.03.2022, 16:56 OptionsLösung
Hallo Ulle,
dann schreibe Deinen Ausdruck umgekehrt.
ungetestet.
ActiveSheet.Range("B58").Value
=Cells(ActiveCell.Row + 2, ActiveCell.Column + 0)
Gruß Hajo
dann schreibe Deinen Ausdruck umgekehrt.
ungetestet.
ActiveSheet.Range("B58").Value
=Cells(ActiveCell.Row + 2, ActiveCell.Column + 0)
Gruß Hajo
Antwort 4 von Ulle-gt5 vom 07.03.2022, 12:17 Options
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
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
Ähnliche Themen
Excel: einen Wert entsprechend eines Suchkriteriums suchen und einen in der jeweiligen Spalte darunter liegen Wert darstellen
walfon 20.10.2008 - 68 Hits - 5 Antworten
Daten kopieren und im anderen Tabellenblatt wert einfügen
afetincii 03.04.2009 - 417 Hits - 2 Antworten
Einen Wert aus 200 Datein heraus kopieren in eine Datei
Hermann57 29.09.2009 - 237 Hits - 6 Antworten
nach Eingabe formatierten Inhalt kopieren
Ulle-gt5 04.10.2009 - 220 Hits - 13 Antworten
Wert automatisch in andere Zelle kopieren
Holli62 27.01.2010 - 604 Hits - 19 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
