Währungsformat in Zellen

Forumthread: Währungsformat in Zellen

21.10.2008 17:27:54

Henner

Hi,
mit den folgenden Codes (Modul) lasse ich das Währungsformat in Zellen ändern. Einmal in EUR und einmal in CHF:


Sub EUR()
Sheets("RNG.PDF").Select
Range("I34:J42,J48:J51").Select
Range("J48").Activate
Selection.NumberFormat = "#,##0.00 $"
End Sub


Sub CHF()
Sheets("RNG.PDF").Select
Range("I34:J42,J48:J51").Select
Range("J48").Activate
Selection.NumberFormat = "#,##0.00 [$CHF]"
End Sub

Diese Codes werden ausgelöst durch diesen Code in der Tabelle:


Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Address(0, 0)
Case "C80"
Select Case Sheets("user_data").Range("H80").Value
Case "A"
Call EUR
Case "B"
Call CHF
End Select
End Select
End Sub

Also: Wenn sich der Wert in C80 ändert, wird abhängig vom Wert in H80 das entsprechende Makro ausgeführt, dieses ändert dann das Währungsformat in der Tabelle 'RNG.PDF'. Wenn ich den Wert in C80 per Hand ändere, funktioniert alles super. Allerdings wird der Wert aus einer UF heraus geändert (ComboBox Control Source). Wenn das der Fall ist, wird auch das richtige Makro abgerufen, allerdings werden die Zellen in 'RNG.PDF' in einem ganz falschen Format formatiert. 1,00 CHF wird z.B. zu 1,000 CHF. Euro funktioniert auch nicht richtig.
Ich hoffe ich konnte euch meine Herausforderung einigermaßen deutlich darstellen und mir kann jemand helfen wie ich das Format angeben muss! Wenn die Mappe nicht so groß, umfangreich und recht kompliziert wäre, hätte ich sie gerne hochgeladen.. Zur Not muss ich es nochmal nachbauen.
DANKE im Vorraus!!
Gruß Henner

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

Erledigt, siehe weiter oben

21.10.2008 21:59:13

Henner

Erledigt, siehe weiter oben

21.10.2008 21:59:13

Henner

Scheint zu unverständlich, daher neu gepostet mit Beispiel.

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Um das Währungsformat in Excel zu ändern, kannst du die folgenden Schritte ausführen:

Öffne die Excel-Datei und gehe auf das entsprechende Arbeitsblatt.
Drücke ALT + F11, um den VBA-Editor zu öffnen.
Füge einen neuen Modul hinzu durch Rechtsklick auf "VBAProject" und Auswahl von "Modul".
Kopiere den folgenden Code in das Modul, um das Währungsformat für Euro und CHF zu setzen:

Sub EUR()
    Sheets("RNG.PDF").Select
    Range("I34:J42,J48:J51").Select
    Selection.NumberFormat = "#,##0.00 €"
End Sub

Sub CHF()
    Sheets("RNG.PDF").Select
    Range("I34:J42,J48:J51").Select
    Selection.NumberFormat = "#,##0.00 [$CHF]"
End Sub

Füge den folgenden Code in das Arbeitsblattmodul ein, um das Format bei Änderungen zu steuern:

Private Sub Worksheet_Change(ByVal Target As Range)
    Select Case Target.Address(0, 0)
        Case "C80"
            Select Case Sheets("user_data").Range("H80").Value
                Case "A"
                    Call EUR
                Case "B"
                    Call CHF
            End Select
    End Select
End Sub

Speichere die Datei und teste die Änderungen, indem du einen Wert in die Zelle C80 eingibst.

Häufige Fehler und Lösungen

Problem: Nach der Verwendung einer ComboBox wird das Währungsformat nicht korrekt angewendet.
- Lösung: Stelle sicher, dass der Wert, der in C80 gesetzt wird, als Text und nicht als Zahl interpretiert wird. Du kannst dies durch Selection.NumberFormat = "@" vor der Zuweisung des Währungsformats lösen.
Problem: Euro wird nicht richtig formatiert.
- Lösung: Überprüfe den Code und stelle sicher, dass das Währungsformat korrekt als "#,##0.00 €" angegeben ist.

Alternative Methoden

Eine alternative Methode, um das Währungsformat zu ändern, ist die direkte Verwendung der Excel-Oberfläche:

Markiere die Zellen, die du formatieren möchtest.
Rechtsklick auf die Auswahl und wähle "Zellen formatieren".
Unter dem Tab "Zahlen" wähle "Währung" und passe die gewünschten Einstellungen an.

Praktische Beispiele

Um 1000 CHF in EUR umzurechnen, kannst du die Formel verwenden:

=A1 * Umrechnungsfaktor

Hier ersetzt du A1 mit der Zelle, die den Betrag in CHF enthält, und Umrechnungsfaktor mit dem aktuellen Wechselkurs (z.B. 0,93 für 1000 CHF in EUR).

Um 20 CHF in Euro umzurechnen, verwende:

=20 * Umrechnungsfaktor

Für 25 CHF in Euro wäre die Formel:

=25 * Umrechnungsfaktor

Tipps für Profis

Verwende VBA, um das Format dynamisch zu ändern, je nach Inhalt der Zellen. Das spart Zeit und minimiert Fehler.
Teste immer deine Makros in einer Kopie der Datei, um Datenverlust zu vermeiden.
Nutze benutzerdefinierte Formate, um weitergehende Anpassungen im Währungsformat vorzunehmen, z.B. für die Anzeige von "CHF" oder "EUR".

FAQ: Häufige Fragen

1. Wie kann ich das Währungsformat für mehrere Zellen auf einmal ändern?
Du kannst mehrere Zellen auswählen und den VBA-Code anpassen, um das Währungsformat gleichzeitig anzuwenden.

2. Was ist die richtige Syntax für die Umrechnung von CHF in EUR?
Verwende die Formel =A1 * Umrechnungsfaktor, wobei A1 die Zelle mit dem CHF-Betrag und der Umrechnungsfaktor der aktuelle Wechselkurs ist.

3. Kann ich das Währungsformat auch ohne VBA ändern?
Ja, du kannst das Währungsformat auch über die "Zellen formatieren"-Option in Excel ändern, indem du die gewünschten Zellen auswählst und die entsprechenden Optionen anpasst.

Beliebteste Forumthreads (12 Monate)