Umwandeln von Kleinbuchstaben in Großbuchstaben

[Matt87]

Guten Morgen,

ich habe Zellen, in die Werte aus TextBoxen einer UserForm eingetragen werden. Die Zellen erhalten immer nur einen Buchstaben (z.B. U für Urlaub).
Ich hätte nun gern, dass, sobald ich auf den Button "Weiter" (CommandButton49) klicke, dass er alle Buchstaben in den Zellen, die klein geschrieben sind, in Großbuchstaben umwandelt.
Es handelt sich um folgende Zellbereiche:

C11:I29
C33:I35
O11:U29
O33:U35

Ich habe nun mehrere Seiten durchforstet, finde aber nicht die passende Lösung.
Könnt ihr mir bitte helfen?

Danke schonmal :)

[Kuwer]

Hallo,

warum erst im Nachhinein prüfen und nicht gleich beim Eintrag in die Zelle?

Range("C11").Value = UCase(TextBox1)

Gruß Uwe

[RPP63]

Moin!
Folgendes machst Du einmal:

Code:

Dim rngCell As Range
For Each rngCell In Range("C11:I29,C33:I35,O11:U29,O33:U35")
  rngCell = UCase(rngCell)
Next

Danach solltest Du die Übergabe der TextBoxes per UCase() erledigen, dann brauchst Du nicht immer alle Zellen durchzuhoppeln.

Gruß Ralf

[Steffl]

Auch Hallo,

wäre vielleicht auch eine Möglichkeit: Bereits bei der Eingabe in die TextBox den Kleinbuchstaben in einen Großbuchstaben umwandeln.

Code:

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
  Select Case KeyAscii
     '     a  -   z    ä    ö    ü
     Case 97 To 122, 228, 246, 252
        KeyAscii = KeyAscii - 32
  End Select
End Sub

[snb]

Umwandeln eines symbols (z.B. U für Urlaub) ist völlig redundant.

[RPP63]

Ich weiß jetzt nicht, was Du in diesem Zusammenhang mit Redundanz meinst, snb.

Tatsache ist aber, dass die ausschließliche Verwendung von U statt u/U in Zeiten gezippter Mappen eine GEWALTIGE Verkleinerung der Mappe bewirkt.  :21:

(nicht ganz ernst gemeint, nur ein wenig)

Gruß Ralf

[Matt87]

Hallo,

ich habe nun die Lösung von RPP63 verwendet und sie funktioniert einwandfrei.

@Steffl: Danke für den Vorschlag, aber dann müsste ich jede der der 308 TextBoxen einzeln so programmieren. Das ist ein ungeheurer Aufwand.

@snb: Es war ja nicht gedacht, dass er aus "Urlaub" ein "U" machen sollte. Er sollte lediglich aus einem "u" ein "U" machen. Damit das dann im Gesamtbild einfach einheitlich aussieht und nicht mal Groß- und mal Kleinbuchstaben auf dem fertigen Dokument sind.

[BoskoBiati]

Hallo,


308Textboxen

[Matt87]

Ja 308 TextBoxen. Für 44 Mitarbeiter jeweils 7 Stück für Montag bis Sonntag. So kann man jeden Tag einzeln mit U für Urlaub und F für Frühschicht usw. erfassen.

[snb]

http://de.thefreedictionary.com/redundanz