Wortanfänge groß schreiben

1 1 1 1 1 1 1 1 1 1 Rating 0.00 (0 Votes)

Details: Kategorie: Codeschnipsel Strings; Geschrieben von TommyK; Zugriffe: 5079

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"