Eingabe sofort in GROSSBUCHSTABEN umwandeln
28.12.2005 16:05:08
CELINE
aus der Recherche habe ich den nachfolgenden Code gefunden:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("A10:X405"), Target) Is Nothing Then
Target = UCase(Target)
End If
End Sub
Dieser Code wandelt alle Eingaben des Bereiches A1 bis X405 in GROSSBUCHSTABEN um.
Problem, da der Bereich sehr groß ist, dauert es auch sehr lange bis der Code abgelaufen ist.
Fragen:
1) Gibt es schnelle Möglichkeit alle Eingaben eines großen Bereiches in GROSSBUCHSTABEN umzuwandeln ?
2) Oder, gibt es eine Möglichkeit, bei Eingabe eines Wertes in eine Zelle, diesen Wert sofort nur für die geänderte Zelle in GROSSBUCHSTABEN umzuwandeln?
Wäre schön, wenn mir jemand helfen könnte !
Gruß, CELINE.