Erster Buchstabe in groß, rest in klein

[Ernst-Peter]

Hallo an alle,

ich versuche mich gerade an VBA- Programmierung. Jetzt stehe ich vor einem
kleinen Problem.

Ich habe eine String-Variable mit dem Inhalt "HALLO"
BSP:
dim Text as String
Text="HALLO"

Jetzt mochte ich es gern so in den Griff kreigen, dass die Variable
folgenden Inhalt hat:
BSP:
"Hallo"

Erster Buchstabe klein, rest groß

UCASE und LCASE wandeln den ganzen String um. ich brauche aber nur das erste
Zeichen.

Für Hilfe wäre ich superdankbar.

mfg
Ernst-Peter

[unknown]

Hallo Ernst-Peter,

schaue mal auf meine HP Seite VBA
http://home.media-n.de/ziplies/gepackt/vba/groszbuchstaben.zip

Gruß Hajo
MVP für Microsoft Excel
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.
http://home.media-n.de/ziplies/

Post by Ernst-Peter
Hallo an alle,
ich versuche mich gerade an VBA- Programmierung. Jetzt stehe ich vor einem
kleinen Problem.
Ich habe eine String-Variable mit dem Inhalt "HALLO"
dim Text as String
Text="HALLO"
Jetzt mochte ich es gern so in den Griff kreigen, dass die Variable
"Hallo"
Erster Buchstabe klein, rest groß
UCASE und LCASE wandeln den ganzen String um. ich brauche aber nur das
erste Zeichen.
Für Hilfe wäre ich superdankbar.
mfg
Ernst-Peter

[Robert M. Franz]

Hallo Hajo

Post by unknown
schaue mal auf meine HP Seite VBA
http://home.media-n.de/ziplies/gepackt/vba/groszbuchstaben.zip

^
nettes SZ ! :-)

Gruss
(sic!, jedenfalls von hier aus :-)
Robert

[Robert Gelbmann]

Hi Ernst-Peter!

Post by Ernst-Peter
[...]
Jetzt mochte ich es gern so in den Griff kreigen, dass die Variable
"Hallo"
Erster Buchstabe klein, rest groß

Nun, mit reinem VBA (ohne Excel-Einsatz) ginge dies beispielsweise so:

Dim Text As String
Text = "HALLO"
MsgBox UCase(Left(Text,1)) & LCase(Mid(Text,2))


Allerdings gibt es auch eine Excel-Tabellenfunktion namens GROSS2
(englisch: PROPER) die genau dies macht:

Beispiel:
In A1 steht dein Text: HALLO
In einer beliebigen anderen Zelle dann die Formel:
=GROSS2(A1)

Wenn du diese Funktion direkt in VBA benötigst, kannst du auch auf die
Tabellenfunktion zugreifen:

MsgBox Application.WorksheetFunction.Proper(Text)

[unknown]

Hallo Ernst-Peter,
folgendes Beispiel:

Sub Testen()
Dim strString As String
strString = "HALLO"
MsgBox Application.WorksheetFunction.Proper(strString)
End Sub

MfG Frank
_____________________________________________
Frank Arendt-Theilen, Microsoft MVP für Excel, Hameln
Website: http://www.xl-faq.de; Auftragsprogrammierung