Hallo-
habe in der Zwischenzeit in den Foren noch weitergesucht und
bin noch fündig geworden.
Nun stellt sich für mich folgende Frage:
Dieses Makro habe ich schon in diesem Blatt drinne.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Target, Range("C15,C21")) Is Nothing Then
Target.Value = Left(Target.Value, 2) & " - " & Mid(Target.Value, 3, 99)
End If
Application.EnableEvents = True
End Sub
Das was ich zum Ändern von Klein auf Grossbuchstaben gefunden habe sieht so aus :
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo fehler
If Not Intersect(Target, Range("C12, C13, C14,C16")) Is Nothing Then
Application.EnableEvents = False
Target = UCase(Target)
End If
fehler:
Application.EnableEvents = True
End Sub
Wenn ich das so eingebe sagt er mir beim Name eingeben:
Fehler beim Kompilieren
Mehrdeutiger Name: Worksheet_Change
Was muß ich ändern ???
Danke
Rudolfo