Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 10:48:58
Zufällige Uhrzeit
19.10.2025 10:46:18
Zufallszahlen nur wenn Datum ab kommenden Sonntag
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
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
1740to1744
1740to1744
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA bed.Formatierung - Zahlenformat

Forumthread: VBA bed.Formatierung - Zahlenformat

VBA bed.Formatierung - Zahlenformat
25.02.2020 16:15:15
KST
Hallo,
ich habe folgenden Sachverhalt:
ich stelle meinen Kollegen eine Excel Vorlage zur Verfügung. Durch diverse Aktionen (Kopieren...) der Kollegen kommt es immer wieder vor das meine Bedingten Formatierungen ihre ursprünglichen Bezüge verlieren. zum Aufräumen hab ich mir ein VBA Makro gebaut welches erst alle im Tabellenblatt enthaltenen bedingten Formatierungen löscht und dann meine wieder einspielt.
Ich möchte in einem Fall das Zahlenformat 000,0 (also eine nachkommastelle) und einmal 000,000 (also drei Nachkommastellen). mit dem Rekorder hat das auch gut ausgesehen wenn das Makro allerdings dann drüber läuft werden die gewünschten Zahlenformate ignoriert.
Hier mein Makrotext:
  • 'Ganzzahl 0,000 in Spalte E - klappt nicht !!!
    Range("E9:E6150").Select
    Selection.NumberFormat = "0.000"
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
    "=GANZZAHL(E9)E9"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    'ExecuteExcel4Macro "(2,1,""0,000"")"
    Selection.FormatConditions(1).StopIfTrue = False
    Selection.NumberFormat = "General"
    Range("q1:ar6150").Select
    Selection.NumberFormat = "0.0"
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
    "=GANZZAHL(q1)q1"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    'ExecuteExcel4Macro "(2,1,""0,0"")"
    Selection.FormatConditions(1).StopIfTrue = False
    Selection.NumberFormat = "General"

    • vielleicht kann jemand mir weiterhelfen...
    Danke
    Anzeige

    8
    Beiträge zum Forumthread
    Beiträge zu diesem Forumthread

    Betreff
    Datum
    Anwender
    Anzeige
    AW: VBA bed.Formatierung - Zahlenformat
    25.02.2020 16:40:33
    Daniel
    HI
    da du mit einem deutschen Excel arbeitest, verwendest du bei der Eingabe der Zahlenformate natürlich das deutsche Format.
    der Recorder zeichnet dies auch genau so auf.
    im VBA-Makro braucht man in der Regel aber unabhängig von der Ländereinstellung die amerikanischen Formate.
    daher muss man dann in solchen Fällen den aufgezeichneten Code entsprechend abändern.
    du musst also für das Makro das deutsche Dezimal-Komma in einen amerikanischen Dezimal-Punkt abändern.
    Gruß Daniel
    Anzeige
    AW: VBA bed.Formatierung - Zahlenformat
    25.02.2020 16:46:08
    KST
    Danke für die schnelle Antwort - aber das hatte ich schon umgestellt und es hat nichts gebracht. Also "0.000" bzw. "0.0"
    AW: VBA bed.Formatierung - Zahlenformat
    25.02.2020 16:52:35
    Klexy
    Der Makro-Rekorder zeichnet schon die richtigen Formate auf, nämlich die Englischen. Makro kann nur Englisch.
    Dein Problem ist aber die Zeile 
    Selection.NumberFormat = "General"

    die du 2x hast und die dir das formatierte Ergebnis nachträglich zunichte macht.
    Anzeige
    AW: VBA bed.Formatierung - Zahlenformat
    25.02.2020 17:07:30
    KST
    Hab die beiden Zeilen jetzt auskommentiert und trotzdem steht in der Bedingten Formatierung "kein Format festgelegt"
    Userbild
    AW: VBA bed.Formatierung - Zahlenformat
    25.02.2020 17:27:20
    Klexy
    Dann lad mal die Datei hoch und keinen Screenshot von etwas, das keine Auswirkung auf das Zahlenformat hat.
    Und noch was: Welche Excel-Version verwendest du, dass dir der Makro-Rekorder bedingte Formatierungen aufzeichnet?
    Anzeige
    AW: VBA bed.Formatierung - Zahlenformat
    25.02.2020 17:59:41
    onur
    Vergiss den blöden Makrorecorder - Mach es dso: 
    Range("E9:E6150").Select
Selection.NumberFormat = "0.000"
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=GANZZAHL(E9)E9"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
Selection.FormatConditions(Selection.FormatConditions.Count).NumberFormat = "0,000"
Selection.FormatConditions(Selection.FormatConditions.Count).StopIfTrue = False
Range("q1:ar6150").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=GANZZAHL(q1)q1"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
Selection.FormatConditions(Selection.FormatConditions.Count).NumberFormat = "0,0"
Selection.FormatConditions(Selection.FormatConditions.Count).StopIfTrue = False

    Anzeige
    AW: VBA bed.Formatierung - Zahlenformat
    25.02.2020 18:00:22
    onur
    Die 2 Zeile muss noch weg!
    AW: VBA bed.Formatierung - Zahlenformat
    25.02.2020 17:37:07
    Daniel
    HI
    naja wenn man sich den Code mal genauer durchliest, ist es doch logisch, warum deine Bedingten Formate nicht funktionieren:
    mit Selection.NumberFormat = "0.000" weist du das Zahlenformat der Zelle direkt zu und nicht der Bedingten Formatierung.
    und am Schluss überschreibst du dann wieder das Zahlenformat der Zelle direkt mit General:
    Selection.NumberFormat = "General"
    Gruß Daniel
    Anzeige
    ;

    Forumthreads zu verwandten Themen

    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 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
    Zahlenformat mit oder ohne vba
    Gerhard

    Hallo alle,
    über einen button erhöhe ich in einer Zelle eine fünfstellige Zahl um 1.
    wsB.Range("E17").Value = wsB.Range("E17") + 1
    Nun möchte ich aber noch, dass nach der Zahl ein Bindestrich und das aktuelle Jahr steht, also z.B.: 00956 - 2015.
    Es würde mir auch reichen, wenn d...
    06.02.2015 09:09:56
    Thread-ID: 1407676
    8 Beiträge
    VBA: Formatierung TextBox als Zahl
    Lorena

    Hallo,
    ich benötige Hilfe bei einem Problem mit einer UserForm bzw. mit den Textboxen darin.
    Wird in die Textboxen eine Zahl oder 0 eingetragen, so soll diese in der Zelle M1 erscheinen. Wird nichts eingegeben, soll in der Zelle "tbd" eingetragen werden. Ich habe dies bisher so gelöst:...
    07.04.2015 12:28:43
    Thread-ID: 1419349
    4 Beiträge
    Zahlenformatierungsfehler bei VBA Druck
    Ralf

    Hallo,
    beim VBA Aufruf des Druckdialogs unter Excel 2016 MAC wird die formatierung der Zahlenwerte auf US Format geändert (Tausender- und Dezimaltrennzeichen). Ich habe bereits alle Formarierungsarten versucht. Der direkte Druckaufruf erzeugt einen richtig formatierten Druck. Gibt es dazu e...
    16.09.2017 16:44:44
    Thread-ID: 1580827
    2 Beiträge
    Zahlen in Text in Zahlenformat per VBA umwandeln
    Ro

    Hallo zusammen,
    ich habe eine Exceltabelle mit einem Zellbereich (A2:AC200). In diesem Zellbereich werden Zahlen per Makro von einer Eingabemaske eingefügt.
    Leider kommen die Zahlen in Textformat und werden sie nicht bei der Berechnung/Formeln erkannt. Daher werden alle Berechnungen f...
    19.02.2019 13:16:50
    Thread-ID: 1676470
    5 Beiträge
    Anzeige
    spezielles Zahlenformat mit vba
    beat

    Hiich möchte in einem vba code mittels einer variablen die zahlen in einer tabelle so formatieren, dass die Zahlen, wenn die variable z.B 5 ist, aus mindestens 5 zeichen besteht (aus 12.45678 wird 12.456 / aus 12456.456 wird 12456 etc, es dürfen aber nur zahlen hinter dem Koma abgeschnitten wer...
    19.03.2003 17:22:10
    Thread-ID: 234043
    4 Beiträge
    Zahlen-Formatierung per VBA
    Ingo

    Guten Tag llerseits
    Ich habe mir ein kleines VBA-Script gemacht,
    um Teile meiner Excel-Tabelle in die Zwischenablage zu kopieren.
    Daraus hier die betreffende Zeile:
    Bestellung.SetText Cells(iRow, 11) & " " & Cells(iRow, 3) & " " & Cells(iRow, 12) &...
    21.05.2004 16:44:36
    Thread-ID: 431522
    3 Beiträge
    Zahlenformatierung per VBA
    Anja

    Hey Leute,
    ich moechte per VBA Zahlen in eine Spalte eintragen. Die Zahl soll immer als Trennzeichen statt Komma einen Punkt haben und nur eine Stelle nach dem Punkt (Bsp. "0.5"). Also es muesste dann bei Falscheingabe mit Komma oder gar 2 Stellen nach dem Punkt automatisch korrigiert werde...
    06.09.2007 13:16:06
    Thread-ID: 904275
    4 Beiträge
    Entdecke relevante Threads

    Schau dir verwandte Threads basierend auf dem aktuellen Thema an

    Alle relevanten Threads mit Inhaltsvorschau entdecken
    Anzeige
    Anzeige

    Infobox / Tutorial

    VBA für bedingte Formatierung und Zahlenformatierung in Excel

    Schritt-für-Schritt-Anleitung

    1. Öffne den VBA-Editor:

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

    2. Erstelle ein neues Modul:

      • Klicke mit der rechten Maustaste auf „VBAProject (DeineDatei.xlsx)“ und wähle „Einfügen“ > „Modul“.

    3. Füge den folgenden Code ein:

      Sub Formatieren()
   ' Ganzzahl 0,000 in Spalte E
   Range("E9:E6150").Select
   Selection.NumberFormat = "0.000"
   Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=GANZZAHL(E9)E9"
   Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
   Selection.FormatConditions(Selection.FormatConditions.Count).NumberFormat = "0,000"
   Selection.FormatConditions(Selection.FormatConditions.Count).StopIfTrue = False

   ' Formatierung für Spalte Q
   Range("Q1:AR6150").Select
   Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=GANZZAHL(Q1)Q1"
   Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
   Selection.FormatConditions(Selection.FormatConditions.Count).NumberFormat = "0,0"
   Selection.FormatConditions(Selection.FormatConditions.Count).StopIfTrue = False
End Sub

    4. Führe das Makro aus:

      • Drücke F5, um das Makro auszuführen.

    Häufige Fehler und Lösungen

    • Fehler: Bedingte Formatierung funktioniert nicht:

      • Lösung: Stelle sicher, dass Du die Zeile Selection.NumberFormat = "General" auskommentierst oder entfernst. Diese Zeile setzt die Formatierung zurück und macht die bedingte Formatierung wirkungslos.

    • Fehler: Zahlenformat wird ignoriert:

      • Lösung: Überprüfe, ob Du in Deinem VBA-Code die richtigen amerikanischen Formatierungen verwendest. Das deutsche Dezimal-Komma muss in einen Punkt umgewandelt werden (z.B. "0.000" anstelle von "0,000").

    Alternative Methoden

    • Direktes Festlegen der Formatierung ohne VBA:

      • Du kannst die Zahlenformate auch direkt in Excel festlegen, indem Du die Zellen auswählst, mit der rechten Maustaste klickst und „Zellen formatieren“ wählst. Von dort kannst Du das gewünschte Format auswählen.

    • Verwendung von Excel-Formeln:

      • Manchmal kann es hilfreich sein, Excel-Formeln wie TEXT zu verwenden, um das gewünschte Format zu erzielen, anstatt VBA zu nutzen.

    Praktische Beispiele

    • Beispiel 1: Festlegen eines Zahlenformats für eine gesamte Spalte:

      Range("A1:A100").NumberFormat = "0.000"

    • Beispiel 2: Hinzufügen einer bedingten Formatierung basierend auf einem Wert:

      With Selection.FormatConditions.Add(Type:=xlCellValue, Operator:=xlGreater, Formula1:=10)
  .Interior.Color = RGB(255, 0, 0) ' Rot
End With

    Tipps für Profis

    • Effiziente Verwendung von SetFirstPriority:

      • Nutze die Methode SetFirstPriority, um sicherzustellen, dass Deine Formatierungen die höchste Priorität haben. Dies verhindert Konflikte zwischen mehreren bedingten Formatierungen.

    • Verwende Debug.Print zur Fehlersuche:

      • Wenn Dein Makro nicht wie erwartet funktioniert, kannst Du Debug.Print verwenden, um Variablenwerte während der Ausführung zu überprüfen und Fehler zu identifizieren.

    FAQ: Häufige Fragen

    1. Warum funktionieren meine bedingten Formatierungen nicht?
    Achte darauf, dass Du die Standardformatierung nicht zurücksetzt. Entferne oder kommentiere die Zeile Selection.NumberFormat = "General" aus.

    2. Wie kann ich zwischen deutschen und amerikanischen Zahlenformaten wechseln?
    Ändere das Dezimalzeichen in Deinem VBA-Code von Komma auf Punkt, z.B. von "0,000" zu "0.000".

    3. Welche Excel-Version benötige ich für diese Funktionen?
    Die beschriebenen Funktionen sind in den meisten modernen Excel-Versionen verfügbar, sowohl in Excel 2016 als auch in Excel 365.

    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