Hallo,
dieses Makro ändert Text im Arbeitsblatt in Großschrift. Kann mir jemand es so umschreiben, das es z.Bsp. nur Blatt 1,Zelle GU45 bearbeitet?
Danke für die Hilfe im Voraus.
Option Explicit
’
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim Zelle As Range
On Error GoTo hell
If Target.Value = „“ Then Exit Sub
If Target.HasFormula Then Exit Sub
Application.EnableEvents = False
For Each Zelle In Target
Zelle.Value = Application.Proper(Zelle.Value)
Next Zelle
hell:
Application.EnableEvents = True
End Sub