VBA Familienname GROSSSCHREIBEN
15.03.2015 17:39:33
WalterK
dieses mal will ich, dass nach dem Verlassen der Zelle der Familienname groß geschrieben ist.
Das heißt: aus Müller Siegfried soll MÜLLER Siegfried werden
Wenn bereits MÜLLER Siegfried eingegeben wird soll nichts passieren.
Bei meinem Versuch wird die Zeile mcell = UCase(mcell) gelb hinterlegt und es kommt die Meldung: Laufzeitfehler 91: Objektvariable oder With-Blockvariable nicht festgelegt.
Was ist falsch oder geht es vielleicht noch einfacher?
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim wksTEing As Worksheet
Dim LzH As Long
Dim LetzterName As Long
Dim mcell As Range
Set wksTEing = Worksheets("TERMINE EINGEBEN")
If Target.Column 8 Then Exit Sub
Application.ScreenUpdating = False
LzH = Application.Max(6, wksTEing.Cells(Rows.Count, 8).End(xlUp).Row) - 1
LetzterName = LzH + 1
wksTEing.Range("I" & LetzterName).Select 'gehe zur nächsten Spalte für weitere Eingaben
With ActiveCell.Offset(0, -1)
mcell = UCase(mcell)
End With
End Sub
https://www.herber.de/bbs/user/96379.xlsm
Besten Dank und Servus, Walter