Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1292to1296
1292to1296
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA - Zellformatierung als Währung

Forumthread: VBA - Zellformatierung als Währung

VBA - Zellformatierung als Währung
04.01.2013 15:59:07
Dominic
Hallo,
kann mir bitte erneut jemand bei meinem Problem helfen?
Würde gerne einige Zellen / Bereiche in Excel je nach Bedingung als Währung, oder als Zahl formatieren. Mit der bedingten Formatierung funktioniert dies immer nur einmal in eine Richtung, wechselt aber nach der Änderung durch ein Drop Down Menü nicht mehr "zurück". Erst wenn ich manuell einen x-beliebigen Zellinhalt ändere springt die bedingte Formatierung zurück auf die gewünschte Formatierung. Daher versuche ich es nun mit VBA zu lösen.
Folgenden Code habe ich bereits, das funktioniert aber nicht.
If ("J5") = "Währung" Then Range("C23:O25").NumberFormat = "#,##0.00 €"
Range("C29:O29").NumberFormat = "#,##0.00 €"
Range("C35:O35").NumberFormat = "#,##0.00 €"
Range("C41:O116").NumberFormat = "#,##0.00 €"
ElseIf ("J5") = "Zahl" Then Range("C23:O25").NumberFormat = "#0"
Range("C29:O29").NumberFormat = "#0"
Range("C35:O35").NumberFormat = "#0"
Range("C41:O116").NumberFormat = "#0"
End If
End Sub
Vielen Dank im Voraus!

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA - Zellformatierung als Währung
04.01.2013 19:29:13
robert_1
Warum überprüfst du auf "Währung" /"zahl"?
Auf Zahl prüfen: if isnumeric(cell("J5"))=true then...
auf Währung überprüfen: ...elseif instr(cell("J5"), "€")=true then...

AW: VBA - Zellformatierung als Währung
07.01.2013 09:46:03
Dominic
Vielen Dank Robert, aber leider bringt mich deine Formel nicht weiter.
Ich habe ein Formularsteuerelement (Kombinationsfeld) eingefügt. Als Werte bekommt dieses 5 Werte aus einem vorher definierten Bereich zur Verfügung gestellt. Die Zell Verknüpfung liegt auf - sagen wir A1. Dort wird mir also je nach Auswahl in dem Steuerelement Werte zwischen 1-5 ausgegeben. Bei 4 dieser Werte soll in dem oben genannten Bereich alle Zellen als Währung definiert werden, bei nur Auswahl der anderen Variante in dem Formularsteuerelement soll in den gesamten Bereich jedoch nur die Formatierung "Zahl" verwendet werden. Da ich mich in VBA so gut wie gar nicht auskenne, hatte ich angenommen eine simple Überprüfung auf einen Wert hin ist einfacher, und hab daher noch eine Wenn/Dann Formel in Zelle J5 integriert, die eben so lautet:
=WENN(ODER($A$1=1;$B$5=2;$B$5=4;$B$5=5);"Währung";"Zahl")
Kann ich das damit irgendwie umsetzen? Oder ohne diesen Umweg in Zelle J5? Und direkt im VBA Code abfragen was aus dem Steuerelement in B5 z. B. ausgegeben wird?

Anzeige
AW: VBA - Zellformatierung als Währung
07.01.2013 09:57:29
Rudi
Hallo,
sicher kannst du das auch direkt im Code abfragen. 
  If [A1] = 1 Or [b5] = 2 Or [b5] = 4 Or [b5] = 5 Then
Range("C23:O25").NumberFormat = "#,##0.00 €"
Range("C29:O29").NumberFormat = "#,##0.00 €"
Range("C35:O35").NumberFormat = "#,##0.00 €"
Range("C41:O116").NumberFormat = "#,##0.00 €"
Else
Range("C23:O25").NumberFormat = "#0"
Range("C29:O29").NumberFormat = "#0"
Range("C35:O35").NumberFormat = "#0"
Range("C41:O116").NumberFormat = "#0"
End If

Gruß
Rudi

Anzeige
AW: VBA - Zellformatierung als Währung
07.01.2013 13:08:53
Dominic
Hallo Rudi,
super vielen Dank! Funktioniert einwandfrei. Die Syntax bei VBA ist mir immer noch nicht so geläufig. Manchmal kann es ja doch so einfach sein! :-)
Viele Grüße
;

Forumthreads zu verwandten Themen

Formatieren als Zahl/Währung im VBA
Nadine

Hallo,
ich habe jetzt folgende Formel im VBA erfasst;
Private Sub FldKurs_Exit(ByVal Cancel As MSForms.ReturnBoolean) If Not IsDate(FldKurs) Then FldKurs = "" Else FldKurs = Format(FldKurs, "#,##0.00 $") End If End Sub
Diese soll bezwecken, dass in einem Textfeld nur eine Zahl st...
20.08.2008 14:28:00
Thread-ID: 1003209
2 Beiträge
Anzeige
VBA - Zellen nach Prozentformat abfragen
Jenny

Hi, Excel-Freaks!
Kann mir bitte jemand sagen, wie ich per VBA Zellen auf ein beliebiges Prozentformat abfragen kann?
If rngZ.NumberFormat = "0%" Then...
findet leider/natürlich nur die Zellen, die ohne Nachkommastellen formatiert sind.
Danke im Voraus!
Grüße von Jenny im Ex...
28.08.2008 15:03:49
Thread-ID: 1005460
4 Beiträge
Anzeige
Funtion und Zahlenformat per VBA
Michael

Hallo zusammen,
ich versuche mich wieder an meinen Exceltabellen - leider mit mäßigem Erfolg :-(
Nun hoffe ich wieder auf eure Hilfe.
In der Zelle BB2 bis BJ2 werden bei Einträgen in A2 bis BA2 verschiedenste Daten eingetragen (klappt).
Nun habe ich versucht die Funktion
=W...
01.02.2009 16:23:02
Thread-ID: 1045935
6 Beiträge
Anzeige
VBA: Verlust Zellenformat bei Workbooks.Close
Andreas

Hallo und guten Morgen:
Als Neuling hier möchte ich mich sogleich mit einem Problem an Euch wenden:
Ich habe 2 Excel-Tabellen, wobei Daten in der einen und Referenzen in der anderen Tabelle stehen.
Nun lese ich Daten über die ReferenzTabelle aus der DatenTabelle aus und schreibe die...
02.04.2009 09:14:45
Thread-ID: 1066193
16 Beiträge
Anzeige
VBA: Gültigkeit für eine Zelle zuweisen
André

Moin zusammen,
ich möchte per VBA einer Zelle eine Gültigkeit zuweisen, und zwar eine Liste von Werten, die dann per Dropdown ausgewählt werden können.
Um den hierzu notwendigen Code zu erhalten, habe ich die Gültigkeit manuell zugewiesen und per Makrorekorder aufzeichnen lassen. Dabei...
22.03.2010 14:10:36
Thread-ID: 1147568
3 Beiträge
Formatieren von Zellen per VBA
Zellen

Guten Tag
habe bereits eine Ergänzungsfrage zu einem Projekt bei welchem mir hier via Forum schon sehr sehr gut geholfen wurde....
und zwar:
mittels folgendem Code schreibe ich in eine Spalte ein Datum:
Cells(j, 10).Value = CDate(MyDatStrg)
Wie müsste ich diese Zeile erweite...
07.12.2010 10:53:17
Thread-ID: 1190357
18 Beiträge
Vba zellen mit bestimmten Inhalt formatieren
thomas

Hallo Leute
Ich würde gerne bestimmte Zellen per VBA so formatieren, dass bei einem bestimmten Inhalt ein Zellbereich mit einer Dicken Linie oben bzw. unten formatiert wird.
Ich habe eine Excel-Datei in der per Makro 2 Zeilen mit den Wörtern "Zwischensumme" und "Übertrag" an jedem Seit...
05.09.2011 07:33:20
Thread-ID: 1228619
3 Beiträge
VBA-Makro Zellen formatieren
Huber

Hallo zusammen
Bin zur Zeit an einem komplexeren Excel und komme nicht mehr weiter. Hoffe jemand kann mir helfen.
Ich hab ein Personalcontrolling und somit immer Zahlen von Januar bis Dezember.
In jedem Register habe ich also z.B. Bezeichnung, Jan 2011, Feb 2011, März 2011 ... und d...
16.12.2011 15:10:52
Thread-ID: 1242273
4 Beiträge
mit VBA Zahl umformatieren..
jens Böhnisch

Hi,ich muss eine Zahl umformatieren.
Ursprung ist z.b. 0,23 soll werden 00000023
23,25 soll werden 00002325
also 8 Stellen, wobei die letzten beiden die kommastellen sind.
Habs schon in Excel mit formel, ist aber noch unbefriedigend.Gruss jens
26.06.2002 14:28:25
Thread-ID: 131564
5 Beiträge
VBA Zelle formatieren
Jürgen

Guten Morgen alle zusammen,
das folgende Makro funktioniert wunderbar,
ich würde es gerne um einen Arbeitschritt erweitern,
in dem das Makro in die letzte Zeile mit Text spring (das macht es schon) und dann in der ZELLE zwischen den Zeichen "[" und "]", alles was dazwischen steht i...
12.09.2013 07:44:05
Thread-ID: 1330425
3 Beiträge
VBA Formatierung Zahlen mit Sonderzeichen
Fabian

Hallo zusammen. Hab mir soeben einen halben tag um die Ohren geschlagen mit folgendem Problem:
Ich habe rund 2.000 Zahlenfolgen in einer Exceldatei geliefert bekommen. Diese sind am Stück weg geschrieben ohne jegliche Trennung. Bevor ich nun jede Zahlenfolge einzeln anpacke möchte ich ein M...
29.10.2013 16:51:48
Thread-ID: 1336367
22 Beiträge
Ergebnisabhängiges Zahlenformat (VBA)
Thomas

Hallo,
ich habe da ein Problem und bekomme es ob meines VBA-noobismus nicht hin :-(
Ich habe in der Matrix (B16:B22) recht große Formeln. Ich brauche aber abhängig vom Ergebnis unterschiedliche Formate. Nach jeder neuberechnung, müsste also auch das Format neu festgelegt werden. Mit zwi...
20.11.2014 10:18:37
Thread-ID: 1393402
2 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Zellformatierung in Excel mit VBA als Währung

Schritt-für-Schritt-Anleitung

Um Zellen in Excel mithilfe von VBA als Währung zu formatieren, befolge diese Schritte:

  1. Öffne den VBA-Editor: Drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Füge ein neues Modul hinzu: Klicke mit der rechten Maustaste auf „VBAProject (DeineDatei.xlsx)“ und wähle „Einfügen“ > „Modul“.

  3. Füge den folgenden Code ein:

    Sub FormatCells()
   If [A1] = 1 Or [B5] = 2 Or [B5] = 4 Or [B5] = 5 Then
       Range("C23:O25").NumberFormat = "#,##0.00 €"
       Range("C29:O29").NumberFormat = "#,##0.00 €"
       Range("C35:O35").NumberFormat = "#,##0.00 €"
       Range("C41:O116").NumberFormat = "#,##0.00 €"
   Else
       Range("C23:O25").NumberFormat = "#0"
       Range("C29:O29").NumberFormat = "#0"
       Range("C35:O35").NumberFormat = "#0"
       Range("C41:O116").NumberFormat = "#0"
   End If
End Sub

  4. Schließe den VBA-Editor und kehre zu Excel zurück.

  5. Führe das Makro aus: Gehe zu „Entwicklertools“ > „Makros“, wähle FormatCells und klicke auf „Ausführen“.

Nun werden die Zellen in dem angegebenen Bereich entsprechend der Bedingungen formatiert.

Häufige Fehler und Lösungen

  • Excel Formatierung Währung funktioniert nicht:

    • Stelle sicher, dass die Zelle, die du formatieren möchtest, im richtigen Bereich liegt und dass die Bedingungen im VBA-Code korrekt sind.

  • Zellformat wird nicht aktualisiert:

    • Überprüfe, ob die Werte in den Zellen A1 und B5 korrekt sind und ob das Makro ausgeführt wird, wenn sich die Werte ändern.

Alternative Methoden

Falls du die Zellformatierung nicht über VBA umsetzen möchtest, kannst du auch die Bedingte Formatierung in Excel verwenden:

  1. Wähle den Zielbereich aus.
  2. Gehe zu „Start“ > „Bedingte Formatierung“ > „Neue Regel“.
  3. Wähle „Formel zur Ermittlung der zu formatierenden Zellen verwenden“ und gib eine passende Formel ein, die auf die Werte in den Zellen A1 und B5 basiert.

Praktische Beispiele

Ein einfaches Beispiel für die Verwendung der NumberFormat-Eigenschaft in VBA:

Sub FormatEuro()
    Range("A1").NumberFormat = "€ #,##0.00"
End Sub

Dieses Beispiel formatiert die Zelle A1 als Euro-Währung.

Tipps für Profis

  • Verwende vba cells numberformat, um flexibler mit Zellreferenzen umzugehen:

    Cells(1, 1).NumberFormat = "€ #,##0.00"

  • Wenn du mit mehreren Währungsformaten arbeiten möchtest, kannst du das Select Case-Statement verwenden, um die Lesbarkeit deines Codes zu verbessern.

FAQ: Häufige Fragen

1. Wie kann ich die Standardwährung in Excel ändern?
Du kannst die Standardwährung in Excel ändern, indem du in den Optionen unter „Erweitert“ die Währungseinstellungen anpasst.

2. Funktioniert dieser VBA-Code auch in älteren Excel-Versionen?
Ja, der VBA-Code sollte in den meisten Excel-Versionen funktionieren, die VBA unterstützen, einschließlich Excel 2010 und neuer. Achte jedoch darauf, die Syntax und die verwendeten Funktionen zu überprüfen.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige