Hallo
Der Code funktioniert soweit nur Stand alone. Ich denke ich mache den Fehler beim einfügen in die original Tabelle. In der original Tabelle habe ich bereits einen Code drin. Füge ich die zwei jetzt zusammen dann funktioniert der code nicht mehr oder kommen Fehlermeldungen.
Das ist der Code der bereits enthalten ist.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("Q5:NX5")) Is Nothing Then
On Error GoTo ErrorHandler
Application.EnableEvents = False
Target.Value = UCase(Target)
ErrorHandler:
Application.EnableEvents = True
End If
End Sub
Danke
VG
|