bei der Tabelle möchte ich erreichen, dass wenn in Spalte E ein Preis steht die weiteren Zeilen mit diesem Preis ausgefüllt werden wenn in Spalte C die Namen übereinstimmen.
https://www.herber.de/bbs/user/77342.xlsx
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range, C As Range
On Error GoTo ErrorHandler
Set Rng = Tabelle1.Range("F2:F40")
If Not Intersect(Target, Rng) Is Nothing And Target.Count = 1 Then
Application.EnableEvents = False
For Each C In Rng
If C.Offset(, -3) = Target.Offset(, -3) Then C.Offset(, -1) = Target.Value
Next
Target.Value = ""
End If
ErrorHandler:
Application.EnableEvents = True
End Sub
Gruß Matthias