Währung per VBA ändern

Forumthread: Währung per VBA ändern

26.06.2008 08:27:00

micha555

Hallo,
jetzt hoffe ich mal, dass ich nicht vollkommen auf dem Schlauch stehe, aber ich finde keine Lösung für folgendes Problem:
In einer grossen Excel Datei kommen viele Zellen mit Währungsangaben vor. Ich muss auf einen Streich alle Zellen auf eine andere Währung umstellen, also z.B. alle EUR Zellen in USD (2,23 EUR in 3,47 USD).
Da gibt es ja jetzt zwei Probleme zu lösen:
1) Umrechnung: habe ich gelöst, indem ich in jede EUR Zelle mit Formel einen Faktor eingebe (=A1 * SUMME(D9:D13)). Wenn ich jetzt in A1 den ensprechenden Kurs eingebe, sind alle Formelwährungen umgerechnet.
2) Format: Jetzt fehlt noch das Format. Die Idee: ich habe eine Formatvorlage "Test" erstellt, die im Urzustand die Währung mit EUR anzeigt und allen Währungsfeldern zugewiesen. Wenn ich nun die Formatvorlage z.B. in USD ändere, steht in allen Währungszellen "USD"
Also eigentlich gelöst. Was ich um's verrecken nicht hinkriege: Die Formatvorlage per VBA zu ändern. Am besten wäre es, wenn der User einen Button drückt, ne Abfrage "Wohin wollen Sie konvertieren" mit der Auswahl der zur Verfügung stehenden Währungen, per Radiobutton die entsprechende Währung auswählt, VBA greift sich den Kurs aus einer Kurstabelle (bis hierhin alles klar!) und ändert die Formatvorlage "Test" in USD (und das kriege ich nicht hin).
Wie kann ich eine Formatvorlage per VBA ändern? Notfalls auch: wie kann ich allen Zellen mit Formatvorlage "Test" die Formatvorlage "Test_USD" zuweisen?
Oder hat jemand eine ganz andere Idee, wie die Gesamtaufgabe zu lösen ist?
Jetzt hoffe ich, dass jemand von euch sagt: "Meeensch ist der doof, das geht doch ganz einfach" (dann steh ich als Depp da ;-), aber dann ist mein Problem gelöst. Ich such jetzt schon seit Stunden in div. Büchern und im Netz, habe aber nix passendes gefunden.
Danke
Michael

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Währung per VBA ändern

26.06.2008 09:35:23

micha555

AW: Währung per VBA ändern

26.06.2008 09:35:23

micha555

Ok, ok: Schon wieder, kaum die Anfrage gestellt , 10min selber die Lösung gefunden, sorry.
Für alle die das mal brauchen:
Ändern des Formats einer Formatvorlage:
ActiveWorkbook.Styles(NameFormatvorlage).NumberFormat = FormatNeu
Also bei mir z.B.:
ActiveWorkbook.Styles("test").NumberFormat = "#,##0.00"" USD"""
Fertig
Gruss
Michael

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Währungsumrechnung: Wenn Du die Währung von Dollar in Euro umrechnen möchtest, kannst Du eine Formel in Excel verwenden. Zum Beispiel:
```
=A1 * SUMME(D9:D13)
```
Hierbei wird der Wechselkurs in Zelle A1 eingegeben, und die Werte in den Zellen D9 bis D13 sind die Umrechnungsfaktoren.
Format der Zellen ändern: Nutze VBA, um das Währungsformat für eine bestehende Formatvorlage zu ändern. Verwende den folgenden Code:
```
ActiveWorkbook.Styles("Test").NumberFormat = "#,##0.00"" USD"""
```
Damit wird das Format der Formatvorlage "Test" auf USD geändert.
VBA zur Änderung von Formaten: Um die Formatvorlage per VBA zu ändern, erstelle einen Button in Excel und verlinke ihn mit einem VBA-Makro, das die Formatvorlage anpasst. Hier ein einfaches Beispiel:
```
Sub WaehrungAendern()
   Dim neueWaehrung As String
   neueWaehrung = InputBox("Wohin wollen Sie konvertieren? (z.B. USD, EUR)")
   ActiveWorkbook.Styles("Test").NumberFormat = "#,##0.00""" & neueWaehrung & """"
End Sub
```
Dieser Code fragt nach der gewünschten Währung und ändert das Format entsprechend.

Häufige Fehler und Lösungen

Fehler: "Formatvorlage nicht gefunden"
- Lösung: Stelle sicher, dass der Name der Formatvorlage korrekt geschrieben ist und existiert.
Fehler: Falsches Währungsformat
- Lösung: Überprüfe den Code auf Tippfehler im NumberFormat und stelle sicher, dass Du das richtige Währungsformat verwendest.

Alternative Methoden

Falls Du keine VBA-Programmierung nutzen möchtest, kannst Du auch die Excel-Funktion "Währungsumrechnung" direkt in einer Tabelle verwenden. Eine Formel dafür könnte folgendermaßen aussehen:

=WENN(A1="USD";B1*1,2;B1)  ' Beispiel für Wechselkurs von USD zu EUR

Diese Methode ist einfach, jedoch weniger flexibel als die VBA-Lösung.

Praktische Beispiele

Angenommen, Du hast eine Tabelle mit Preisen in EUR und möchtest diese in USD umrechnen. Du könntest eine neue Spalte hinzufügen und die folgende Formel verwenden:

=B2 * Wechselkurs  ' Wechselkurs in einer Zelle definiert

Um das Währungsformat zu ändern, wähle die Zellen aus und gehe zu „Zellen formatieren“ und wähle das gewünschte Währungsformat.

Tipps für Profis

Nutze Named Ranges für Wechselkurse, um die Formeln übersichtlicher zu gestalten und einfacher zu aktualisieren.
Halte Deine VBA-Codes in Modulen organisiert, um die Wartung zu erleichtern.
Verwende Application.OnTime in VBA, um regelmäßige Updates von Wechselkursen zu implementieren.

FAQ: Häufige Fragen

1. Wie kann ich alle Währungsformate in einer Tabelle auf einmal ändern?
Du kannst dies tun, indem Du alle relevanten Zellen auswählst und über die Formatvorlagen das gewünschte Währungsformat anwendest.

2. Gibt es eine Möglichkeit, automatisch die aktuellen Wechselkurse zu beziehen?
Ja, Du kannst APIs nutzen, um aktuelle Wechselkurse abzurufen und in Deine Excel-Tabelle zu integrieren.

3. Wie kann ich die Währung in Google Sheets umrechnen?
In Google Sheets kannst Du die GOOGLEFINANCE-Funktion verwenden, um Währungen direkt in Deinen Formeln zu umrechnen.

Beliebteste Forumthreads (12 Monate)