NumberFormat festlegen

Forumthread: NumberFormat festlegen
2 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: NumberFormat festlegen

17.06.2005 12:25:33

Dr.

Hi zusammen,
hat schon mal jemand Schwierigkeiten mit der Deklaration von Zahlenformaten gehabt? Mit u.a. Code soll unter bestimmten Case-Bedingungen das Zahlenformat entweder auf Tausender-Trennpunkt ohne Nachkommastellen oder auf 2 Nachkommastellen gesetzt werden. Leider funktioniert das Erkennen der vorhandenen Formatierung offensichtlich nicht. Fällt jemandem dazu was ein?
Besten Dank im voraus!
Case "AUP"
For Each zelle In ActiveSheet.UsedRange
If zelle.NumberFormat = "#,##0_;[Red]-#,##0" Then zelle.NumberFormat = "0.00"
Next
Case "Umsatz"
For Each zelle In ActiveSheet.UsedRange
If zelle.NumberFormat = "0.00" Then zelle.NumberFormat = "#,##0_;[Red]-#,##0"
Next

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: NumberFormat festlegen

17.06.2005 12:40:54

bavariabob
AW: NumberFormat festlegen

17.06.2005 12:49:16

Dr.

AW: NumberFormat festlegen

17.06.2005 12:40:54

bavariabob

Hi Dr.,
ja, ist seltsam!


Sub test2()
ActiveSheet.Range("b1").NumberFormat = "General"
a = ActiveSheet.Range("b1").NumberFormat
MsgBox a
ActiveSheet.Range("b1").NumberFormat = "#,##0_;[Red]-#,##0"
a = ActiveSheet.Range("b1").NumberFormat
MsgBox a
If ActiveSheet.Range("b1").NumberFormat = "#,##0_;[Red]-#,##0" Then
MsgBox "Erkannt!"
End If
End Sub

is it a bug or is it a feature?
Gruss aus München

AW: NumberFormat festlegen

17.06.2005 12:49:16

Dr.

Hm, jetzt passts.
Anscheinend haut er bei den benutzerdefinierten Formaten vor das Semikolon und ans Ende des Strings jeweils noch ein Blank. Warum auch immer...