AW: Numberformat
08.06.2007 14:42:35
ingUR
Hallo, @MA,
in der Tat, es können die Formatstrings, so wie Du diese für die benutzerdefinierten Eingabe geschrieben hast, wohl nicht 1:1 übernommen werden., wie nachfolgender Test zeigt.
Option Explicit
Sub SpecialNumberFormat()
Cells(1, 1) = 1000
Cells(1, 2) = -1000
Cells(2, 1) = 1000: Cells(2, 1).NumberFormat = "_(* #,##0_);_(* (#,##0);_(* "" - ""?_);_(@ _
_)"
Cells(2, 2) = -1000: Cells(2, 2).NumberFormat = "_(* #,##0_);_(* (#,##0);_(* "" - ""?_);_(@ _
_)"
MsgBox "Standardformat cells(2,1) :=" & Cells(2, 1) & vbLf & _
"Standardformat cells(2,2) :=" & Cells(2, 2) & vbLf & vbLf & _
"Sonderformat cells(2,1) :=" & Format(Cells(2, 1), "* #,##0;* (#,##0);(* "" - ""?) _
;@)") & vbLf & _
"Sonderformat cells(2,2) :=" & Format(Cells(2, 2), "* #,##0;* (#,##0);(* "" - ""?) _
;@)") & vbLf
End Sub
Jedoch, der hier verwendete Formatstring für die MSGBOX kann auch für den eigenschaftwert NumberFormat genutzt werden. Eingestehen muß ich jedoch, dass ich mich mit dem Syntax des Formatstring nicht beschäftigt habe, so dass möglicherweise noch weitere Sondertests vorzunehmen sind.
Gruß,
Uwe
P.S.
wenn die Feststelltaste bei der Grußformel nicht unbeabsichtigt gehalten worden sein, dann bitte ich hier auf meinen Beitrag nicht mehr zu antworten! Im übrigen bedingt der lange Vokallaut im Wort Gruß, das "ß", so dass es also bei diesem Wort nicht zu derartigem Versehen kommen braucht.