Automatisierungsfehler, Vorschlag anderer Code?
22.09.2023 10:51:47
Matthias
ich habe Probleme mit folgendem Code
Private Sub Worksheet_Change(ByVal Target As Range) 'Nicht SelectionChange !
Dim rng
Application.EnableEvents = False
Set rng = Worksheets("Sonstiges").Range("I3:J200")
On Error Resume Next
If Target.Column = 4 Or Target.Column = 5 Then Target = WorksheetFunction.VLookup(Target, rng, 2, False)
Application.EnableEvents = True
End Sub
Nach ein paar Tagen habe ich hier einen Automatisierungsfehler. (siehe Screenshots in Datei)
Gibt es eventuell einen alternativen Vorschlag um trotzdem zum gewünschten Ergebnis zu kommen?
Eine nähere Beschreibung ist in der Datei.
https://www.herber.de/bbs/user/163040.xlsm
Vielen Dank für Eure Zeit
Gruß M@tt