Private Sub Worksheet_Change(ByVal Target As Range) 'Passt EINGEFÜGTES zb. aus dem WEB immer an Zielformatierung an
Dim Werte
Application.EnableEvents = False
Application.ScreenUpdating = False
Werte = Target.Value
Application.Undo
Target.Value = Werte
Ende:
Application.ScreenUpdating = True
Application.EnableEvents = True
Target.Offset(0, 1).Activate
End Sub
Besten Dank im Voraus, LG Helmut