Office: (Office Version unbekannt) VBA-Makro zur Zellenformatierung Syntax probleme

Hallo zusammen,

ich möchte per Makro Zellen formatieren.
Tausender-Trennzeichen
3 Nachkommastellen
Positive Zahlen Schwarz
Negative Zahlen Rot
Nullwert mit -

Hinter der Zahl soll noch eine Einheit stehen, die Einheit kommt aus Zelle B4.

Wenn ich nur positive Zahlen formatiere, bekomme ich das syntaktisch ohne Fehler hin.
Aber dann komme ich mit den " nicht mehr klar :-( und weiß einfach nicht mehr, wo wie viele " hin sollen.

Kann mir da jemand helfen?

Code:

        Dim Einheit As String
            Einheit = Range("B4").Value
         Range("D1").NumberFormat = "#,##0.000"" " & Einheit & """"
        Range("F29").NumberFormat = "#,##0.000\ "" " & Einheit & """;[Rot]#,##0.000\ "" " & Einheit & """;0\ """""

für Zelle D1 Klapt es
für Zelle F29 nicht :-(

Gruß Mücke

 

Hi,

hast du den Code schon mal mit dem Makrorekorder aufgezeichnet wenn du der Zelle das gewünschte Format von Hand zuweist?

---

 

ja das habe ich. da kommt das bei raus.

Code:

    Range("F29").Select
    Selection.NumberFormat = "#,##0.000_ ""m"" ;[Red]-#,##0.000 ""m"";-"

Ich bekomme es nicht bebacken :-(

 

Hallo,

statt rot red und statt der 0 ein -

Dim Einheit As String
Einheit = Range("B4").Value
Range("D1").NumberFormat = "#,##0.000"" " & Einheit & """"
Range("F29").NumberFormat = "#,##0.000\ "" " & Einheit & """;[RED]#,##0.000\ "" " & Einheit & """;-\ """""

Gruß Sigi

 

hallo Sigi,

das wars danke !!

Gruß Mücke

 

Hi,

wenn man die deutschen Bezeichnungen verwenden will, also z.B. "[Rot]" statt "[Red]", dann kann man auch .NumberFormatLocal nutzen.