AW: 1. Buchstabe in Zelle groß
01.07.2018 13:52:55
Nepumuk
Hallo Sigrid,
für Spalte H - I so (in das Modul der Tabelle):
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Zelle As Range, Bereich As Range
Set Bereich = Intersect(Target, Range("H3:I" & CStr(Rows.Count)))
If Not Bereich Is Nothing Then
Application.EnableEvents = False
For Each Zelle In Bereich
If Not IsEmpty(Zelle.Value) Then _
Zelle.Value = UCase$(Left(Zelle.Text, 1)) & Right$(Zelle.Text, Len(Zelle) - 1)
Next Zelle
Application.EnableEvents = True
End If
End Sub
Für das andere Tabellenblatt in SPalte G + K so:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Zelle As Range, Bereich As Range
Set Bereich = Intersect(Target, Range("G3:G100,K3:K100"))
If Not Bereich Is Nothing Then
Application.EnableEvents = False
For Each Zelle In Bereich
If Not IsEmpty(Zelle.Value) Then _
Zelle.Value = UCase$(Left(Zelle.Text, 1)) & Right$(Zelle.Text, Len(Zelle) - 1)
Next Zelle
Application.EnableEvents = True
End If
End Sub
Gruß
Nepumuk