Großschreibung
27.03.2015 19:15:07
DieterG
Hallo zusammen,
brauche wieder mal Hilfe.
Dieses Makro hab ich bei meinen Recherchen gefunden, leider macht es nicht das wofür ich es brauche.
Das Makro soll nur dann starten wenn Buchstaben eingegeben werden. Die Buchstaben sollen dann in Großschreibung dargestellt werden.
Wenn Ziffern eingegeben werden darf das Makro nicht starten!
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Bereich
Set Bereich = ActiveSheet.Range("EB")
If Not IsNumeric(Bereich.Value) Then
Exit Sub
ElseIf IsNumeric(Bereich.Value) Then
Application.EnableEvents = False
On Error GoTo ERRORHANDLER
Target = UCase(Target)
ERRORHANDLER:
Application.EnableEvents = True
End If
End Sub
Vielen Dank schon mal!Gruß
Dieter