Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1344to1348
1344to1348
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Währungsformat mit VBA ändern

Forumthread: Währungsformat mit VBA ändern

Währungsformat mit VBA ändern
03.02.2014 14:14:48
Max
Hi alle zusammen,
ich hab mal wieder ein Problem mit VBA und hoffe ihr könnt mir helfen.
Folgendes: Ich habe eine Excelmappe mit mehreren Tabellenblättern, auf welchen Geldbeträge vorkommen. Auf dem Tabellenblatt "Eingabe" hab ich eine Pulldownliste erstellt, in welcher die User verschiedene Währungen auswählen können. Nach der Auswahl wird mit Worksheet_Change ein Makro ausgelöst, das in der gesamten Mappe das gewünschte Währungsformat einstellt. Soweit funktioniert das auch alles, nur machte mich heute ein Kollege darauf aufmerksam, dass bei Eingabe von Nachkommastellen unsinniger Weise 2 Nullen angehängt werden.
Bsp. statt 45,50€ -- 45,500€
statt 45,55€ -- 45,5500€
und statt 45,56€ -- 45,55500€ usw.
Es wird also nicht gerundet und die 2 Nullen von der Formatvorlage einfach angehängt. Die Formate selber sehen wie folgt aus: #.###,00 [$€] (nur eben mit verschiedenen Währungssymbolen).
Hat irgendjemand eine Idee?
MfG Max

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Währungsformat mit VBA ändern
03.02.2014 14:31:02
Rudi
Hallo,
wenn du das Format per VBA einstellst, musst du dich an die amer. Schreibweise halten.
.Numberformat="#,##0.00"
Gruß
Rudi

AW: Währungsformat mit VBA ändern
03.02.2014 17:48:35
Max
Funktioniert. Vielen Dank.
Anzeige
;
Anzeige
Anzeige

Infobox / Tutorial

Währungsformat mit VBA ändern

Schritt-für-Schritt-Anleitung

Um das Währungsformat in einer Excel-Tabelle mit VBA zu ändern, kannst du folgende Schritte befolgen:

  1. Öffne die Excel-Datei, in der du das Währungsformat ändern möchtest.

  2. Drücke ALT + F11, um den VBA-Editor zu öffnen.

  3. Füge ein neues Modul hinzu:

    • Klicke auf „Einfügen“ > „Modul“.

  4. Füge den folgenden VBA-Code ein:

    Private Sub Worksheet_Change(ByVal Target As Range)
   If Not Intersect(Target, Me.Range("A1")) Is Nothing Then
       Dim währung As String
       währung = Me.Range("A1").Value ' A1 ist die Zelle mit der Pulldownliste
       Dim formatString As String

       ' Setze das Währungsformat basierend auf der Auswahl
       Select Case währung
           Case "Euro"
               formatString = "#,##0.00 [$€]"
           Case "Dollar"
               formatString = "#,##0.00 [$$]"
           ' Weitere Währungen hier hinzufügen
       End Select

       ' Wende das Währungsformat auf die gesamte Tabelle an
       Cells.NumberFormat = formatString
   End If
End Sub

  5. Schließe den VBA-Editor und gehe zurück zu Excel.

  6. Wähle eine Währung aus der Pulldownliste in Zelle A1 (oder der von dir definierten Zelle).

  7. Das Währungsformat wird nun auf die gesamte Tabelle angewendet.

Häufige Fehler und Lösungen

  • Problem: Nachkommastellen werden falsch angezeigt
    Lösung: Stelle sicher, dass das Format korrekt ist. Verwende die amerikanische Schreibweise: .NumberFormat="#,##0.00".

  • Problem: Keine Reaktion auf die Pulldownliste
    Lösung: Überprüfe, ob das Worksheet_Change-Ereignis korrekt zugeordnet ist und dass die Zelle mit der Pulldownliste korrekt definiert ist.

Alternative Methoden

Wenn du das Währungsformat manuell ändern möchtest, kannst du auch die folgenden Schritte befolgen:

  1. Wähle die Zellen aus, deren Währungsformat du ändern möchtest.
  2. Rechtsklick und wähle „Zellen formatieren“.
  3. Gehe zum Tab „Zahlen“ und wähle „Währung“.
  4. Wähle das gewünschte Währungsformat aus und klicke auf „OK“.

Diese Methode ist besonders nützlich, wenn du keine VBA-Kenntnisse hast und die Währung in Excel ändern möchtest.

Praktische Beispiele

  1. Euro-Währungsformat: Wenn du Euro als Währung verwendest, sollte das Format so aussehen: #,##0.00 [$€].
  2. Dollar-Währungsformat: Für Dollar sieht das Format so aus: #,##0.00 [$].
  3. Weitere Währungen: Du kannst beliebige Währungen hinzufügen, indem du die entsprechenden Case-Anweisungen im VBA-Code anpasst.

Tipps für Profis

  • Nutze Formatvorlagen: Erstelle benutzerdefinierte Formatvorlagen für verschiedene Währungen, um den Prozess zu beschleunigen.
  • Fehlerüberprüfung: Implementiere Fehlerüberprüfungen im VBA-Code, um unerwartete Eingaben abzufangen.
  • Dokumentation: Halte deinen VBA-Code gut dokumentiert, damit du und andere den Code später leichter verstehen können.

FAQ: Häufige Fragen

1. Wie kann ich das Währungsformat für mehrere Blätter einstellen?
Du kannst den VBA-Code anpassen, indem du eine Schleife über alle Blätter in deiner Arbeitsmappe einfügst.

2. Was tun, wenn das Währungsformat nicht angewendet wird?
Überprüfe, ob die Zelle mit der Pulldownliste korrekt verlinkt ist und dass das Worksheet_Change-Ereignis aktiviert ist.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige