|
Wie kann ich diese 2 Privat Sub Worksheet_Cange in einen Zusammenlegen? Besten Dank für eine Lösung.
1. Privat Sub Worksheet Change: Großschreibung für das gesamte Wort für Zelle c5:c323 und f5:f323
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Intersect(Target, Me.Range("c5:d323,f5:f323")) Is Nothing Then Exit Sub
On Error GoTo CleanUp:
With Target
If .Value <> "" Then
Application.EnableEvents = False
.Value = UCase(.Value)
End If
End With
CleanUp:
Application.EnableEvents = True
End Sub
2. Privat Sub Worksheet Change: 1 Buchstabe von jedem Wort in einer Zeile wird Großgeschrieben für die Spalte 1 =A, 2 =B, 8 =H und 9 =i zB: In Spalte 1 = A Eingabe von gerhard müller Ergebnis wäre Gerhard Müller
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
On Error GoTo Errorhandler
Application.EnableEvents = False
Target.Value = WorksheetFunction.Proper(Target)
End If
If Target.Column = 2 Then
On Error GoTo Errorhandler
Application.EnableEvents = False
Target.Value = WorksheetFunction.Proper(Target)
End If
If Target.Column = 8 Then
On Error GoTo Errorhandler
Application.EnableEvents = False
Target.Value = WorksheetFunction.Proper(Target)
End If
If Target.Column = 9 Then
On Error GoTo Errorhandler
Application.EnableEvents = False
Target.Value = WorksheetFunction.Proper(Target)
End If
Errorhandler: Application.EnableEvents = True
End Sub
|