Problemstellung:

Für 32Bit und 64Bit Office Versionen

Wie kann ich es machen, das Wortanfänge automatisch groß geschrieben werden?

Function WortanfaengeGrossSchreiben(Text As String) As String
  WortanfaengeGrossSchreiben = StrConv(Text, vbProperCase)
End Function

Aufruf:

Dim x As String
x = WortanfaengeGrossSchreiben("das ist ein Test")

Das Ergebnis von x wäre "Das ist ein Test"

Ähnliche Artikel

You have no rights to post comments