validate Format String für numerische Werte in Excel (dna) - Excel, Excel-VBA, Excel-Interop, Excel-Dna, VBA

Ich verwende eine Excel-Datenbank, um ein Excel-Add-In zu verwalten. Dort wende ich ein numerisches Format auf eine Zelle an, die verwendet Range.NumberFormat = myformat;. Ich kenne den String myFormat nicht im Voraus, er wird in einem Backend definiert.

In den guten Fällen ist myFormat so etwas wie "0.00; (0,00) "oder" # ## 0,00 _ €; [Rot] - # ## 0,00 _ € ", in anderen Fällen etwa" toto ". Im neuesten Fall die Anzeige in der Excel-Zelle ist ########## oder etwas, das keinen Sinn macht.

Gibt es eine Möglichkeit, zu überprüfen, ob die Zeichenfolge myFormat ein gültiges numerisches Format für Excel ist, bevor das Format auf die Zelle angewendet wird?

Vielen Dank, Mario

Antworten:

Sub tester()
Dim rng1 As Range, rng2 As Range

Set rng1 = Range("F1")" Formatted with 2 decimal places
Set rng2 = Range("G1")" Formatted with 6 decimal places

If rng1.NumberFormat <> rng2.NumberFormat Then
Beep
End If

End Sub