Hllo,
habe hier ein Marko für ein Worksheet. Da ich jedden Tag eine neue Datei mit Daten bekommen mus ich dies imm per Hand einfügen.
Gibt es eine Möglichkeit das es über ein Marko eingespielet wird und ich mir das per Hand sparen kann?
Vielen Dank für eure Hilfe schon jetzt einmal.

Viele Grüße
Rainer


Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("Y5:Y200")) Is Nothing Then
On Error GoTo ErrorHandler
Application.EnableEvents = False
Target.Value = UCase(Target)
ErrorHandler:
Application.EnableEvents = True
End If
End Sub