Makro - nochmals Grossbuchstaben
22.09.2007 09:58:52
WalterK
vor einigen Taben bekam ich aus dem Forum (von Josef Ehrensberger) folgendes Makro. Hier wird nach der Eingabe alles in Grossbuchstaben umwandelt. Funktioniert prima.
' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
On Error GoTo ErrExit
Application.EnableEvents = False
For Each rng In Target
If rng.Row > 23 Then
If rng.Column = 7 Or rng.Column = 11 Or rng.Column = 13 Then
rng = UCase(rng)
End If
End If
Next
ErrExit:
Application.EnableEvents = True
End Sub
Jetzt sollte ich es so umgewandelt haben, dass nur der 1. Buchstabe und nur wenn er an der 1. Stelle der Zelle steht in einen Grossbuchstaben umgewandelt wird. Alle restlichen Eingaben soll bleiben wie sie eingegeben wurden.
Besten Dank, Servus Walter