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

NumberFormat festlegen

Forumthread: NumberFormat festlegen

NumberFormat festlegen
17.06.2005 10: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
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: NumberFormat festlegen
17.06.2005 10: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
Anzeige
AW: NumberFormat festlegen
17.06.2005 10: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...
;

Beliebteste Forumthreads (12 Monate)

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