03.06.2023, 22:37
(03.06.2023, 15:49)RPP63 schrieb: [ -> ]Geht sehr viel kürzer und einfacher mittels Range.Find-Methode:
oder noch viel viel ...
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("K10:M14"), Target) Is Nothing Then
Range("E1:E45").Replace Target.Value, "", xlWhole
End If
End SubGruß Uwe