Kleine Buchstabe umwandeln in grosse
17.01.2006 12:26:17
rupert
Ich hab da noch ein problem, Ich habe hier ein Makro das mir die kleinen buchstaben automatisch in Grosse umwandelt, ich hätte das aber gerne so, das es in einer Excel datei so eingegeben ist, das automatisch kleine in grosse umgewandelt werden.
der eingegebene wert ist eine mischung aus zahlen und buchstaben, in etwa so
SK025992A
da dies aber klein eingegeben wird soll es in grosse automatisch bei der eingabe umgewandelt werden.
Mit folgendem Makro funktioniert das zwar, aber ich hätte es gerne automatisch bei der eingabe
Sub klein_gross()
Dim objZelle As Range
For Each objZelle In Selection.Cells
Select Case True
Case objZelle = LCase(objZelle)
objZelle = UCase(objZelle)
Case objZelle = UCase(objZelle)
objZelle = Application.Proper(objZelle)
Case Else
objZelle = LCase(objZelle)
End Select
Next objZelle
End Sub
hat von euch jemand eine idee
danke
lg
rupert