Diese Funktion erstellt aus einem technischen Namen ein halbwegs lesbarer Namen.

Download cast_readableName.bas (V-1.1.0)

Siehe auch [VBA] techName()

name = readableName(technischer Name [, Type des technischen Namens])

Public Function readableName( _
        ByVal iTechName As String, _
        Optional ByVal iType As rnTechNameType = rnAutomaitc _
) As String

• iTechName Der Technische Name
• rnTechNameType Art der Worttrennung

Die Beispiele wurden im Direktfenster erstellt

?readableName("ITEM_NAME")
Item Name
 
?readableName("ItemName1")
Item Name 1
 
?readableName("Ort", rnUnderline)
Ort