Office: Format Währung per VBA ändern

Hallo,
ich möchte in einer Tabelle einen Button integrieren, der ein User Form öffnet und folgende Daten abfragt:
- Abfrage(Eingabefeld) Umrechnungsfaktor: (Variablenname "umfaktor")
- Abfrage Fremdwährungssymbol (Variablenname "fremdsymbol")

Mein bisheriger Code
Code:

fügt den kopiert den Wert der Zelle ohne Berechnung wieder ein und behält das Format (im Ursprung immer "€") bei.
Ziel ist aber, den um den "umfaktor" mulitplizierten Wert mit verändertem Währungssymbol "fremdsymbol" einzufügen.

Die Orginalwerte in Euro sind auf dem Sheet "Portfolio". Die sollen auf Knopfdruck wieder im Format € eingefügt werden können. Noch weiter gedacht wäre es vielleicht sinnvoller die Berechnung immer vom Originalwert von "Portfolio" auszuführen, dann würde man ohne Eingabe von Werten im UserForm die Umrechnung mit Faktor 1 vom Orginal durchführen lassen können und das Währungssymbol auf € setzen.

Kompliziert kompliziert... zumindest für mich - Ich kann nur meine ewige Dankbarkeit in Aussicht stellen :-)

:)

 

Also das UserForm habe ich mal ausser Acht gelassen. Den Code zur Veränderung des Währungsformats habe ich wie folgt geschafft, aber:

Schaffe ich es die kopierten Zellen nicht im Orgianlwert sondern multipliziert mit einem Faktor wie eben der Variable "umfaktor" einzufügen oder muß ich das nach dem einfügen in einem spraraten Schritt machen?

Code:

Danke für Eure Hilfe

 

Moin, stranded,

zwei Schritte, erst die Daten kopieren, dann den Umrechnungsschritt - die Daten als Werte kopieren, den Umrechnungsfaktor in eine Zelle und in die Zwischenablage kopieren sowie analog zu Inhalte/Multiplizieren den Bereich erneut bearbeiten:

Code:

Oder in einer Schleife die Zuweisung über Werte und Mulitplikation machen.

 

Hi,

ich würde noch einen Schritt hinzufügen. Schreibe die Variable in eine Zelle kopiere diese, und über "Einfügen", "Inhalte einfügen, "Multiplizieren" werden dann die Zellen multipliziert.

Ein kleines Beispiel:

HTML:

Sub Test()
Range("A1").Copy
Range("C1").PasteSpecial Paste:=xlValues, Operation:=xlMultiply
Application.CutCopyMode = False
End Sub