|
Hallo,
nun gut, aller Anfang ist auch in VBA schwer, aber man sollte doch die Grundlagen verstehen, wenn man mit den Codes weiterarbeiten will, aber sei's drum:
Option Explicit
'' 1. Privat Sub Worksheet Change: Großschreibung für das gesamte Wort für Zelle c5:c323 und f5:f323
'' 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)
On Error GoTo Sub_Exit
With Target
If .Count = 1 And Not Intersect(Target, Range("c5:d323,f5:f323")) Is Nothing Then
If .Value <> "" Then
Application.EnableEvents = False
.Value = UCase$(.Value)
End If
ElseIf Not Intersect(Target, Union(Columns(1), Columns(4), Columns(8), Columns(9))) Is Nothing Then
Application.EnableEvents = False
.Value = WorksheetFunction.Proper(.Value)
End If
End With
Sub_Exit:
Application.EnableEvents = True
End Sub
Gruß,
|