Handbuch BasicMaker 2010 - SoftMaker

If .NumberFormatting.Type = pmNumberDate Then
MsgBox .NumberFormatting.DateFormat
Else
MsgBox "Zelle A1 ist nicht als Datum formatiert."
End If
End With
CustomFormat (Eigenschaft)
Datentyp: String
Liest oder setzt die benutzerdefinierte Formatierung der Zellen des Bereichs.
Beispiel:
' Zelle A1 in einem benutzerdefinieten Format formatieren
pm.ActiveSheet.Range("A1").NumberFormatting.CustomFormat = "000000"
Currency (Eigenschaft)
Datentyp: String
Liest oder setzt das Währungsformat der Zellen des Bereichs.
Sie übergeben der Eigenschaft den ISO-Kenner der gewünschten Währung. Beim Auslesen erhalten Sie analog den
ISO-Kenner zurück. Einige gebräuchliche ISO-Kenner:
EUR
USD
CAD
AUD
JPY
RUB
BEF
CHF
DEM
ESP
FRF
LUF
NLG
PTE
Euro
US Dollar
Kanadische Dollar
Australische Dollar
Japanische Yen
Russische Rubel
Belgische Francs
Schweizer Franken
Deutsche Mark
Spanische Peseten
Französische Francs
Luxemburgische Francs
Niederländische Gulden
Portugiesische Escudos
Eine Liste aller ISO-Kenner (von denen PlanMaker viele, jedoch nicht alle unterstützt) finden Sie im Internet unter
http://en.wikipedia.org/wiki/ISO_4217
Beispiel:
' Zelle A1 in der Währung "Euro" formatieren
pm.ActiveSheet.Range("A1").NumberFormatting.Currency = "EUR"
Wenn Sie den in einer Zelle verwendeten Währungsstring auslesen möchten, müssen Sie zuerst prüfen, ob eine Zelle
überhaupt als Währung formatiert ist – ansonsten schlägt die Eigenschaft fehl:
' Den Währungsstring in Zelle A1 anzeigen
With pm.ActiveSheet.Range("A1")
If .NumberFormatting.Type = pmNumberCurrency Then
MsgBox .NumberFormatting.Currency
Else
MsgBox "Zelle A1 ist nicht als Währung formatiert."
End If
End With
242 BasicMaker und PlanMaker Handbuch BasicMaker 2010