Von Systemkonstanten statt Wert den Text abfragen
Martin
bei der Abfrage von Systemkonstanten (z.B. MsoControlType) werden die Konstanten stets als Zahl wiedergegeben. Ist es möglich direkt die Bezeichnung solcher Systemkonstanten abzufragen?
Hier mal zwei einfache Beispiele anhand einer MsgBox und der Calculation-Eigenschaft:
Beispiel 1:
Sub TestKonstante()
Dim mbr As VbMsgBoxResult
mbr = MsgBox("Kann die mbr-Konstante als Text ausgegeben werden?", vbYesNoCancel)
'2 = vbCancel
'6 = vbYes
'7 = vbNo
Debug.Print mbr
End Sub
Beispiel 2:
Sub TestKonstante2()
Dim CalcState As XlCalculation
CalcState = Application.Calculation
'-4105 = xlCalculationAutomatic
'-4135 = xlCalculationManual
' 2 = xlCalculationSemiautomatic
Debug.Print CalcState
End Sub
Viele Grüße
Martin
