Hallo liebe VBA Cracks
könntet Ihr mir bitte sagen wo der Fehler liegt / Makro soll Daten im Register D_Springer austauschen / also nach dem Suchbegriff suchen (steht im "Springer F2" und dann in die gefundene Zelle den Block kopieren.
Bin nicht der Experte ist wahrscheinlich irgend etwas banales / Schon mal Riesen Dank

Sub aendern()
Dim SZelle As Range
Dim Suchwert As String

Suchwert = Sheets("Springer").Range("f2")

Sheets("Springer").Range("F2:i32").Copy
With Worksheets("D_Springer")

Set SZelle = .Range("A:A").Find(Suchwert)
Rows(SZelle.Row).PasteSpecial( _
Paste:=xlPasteValuesAndNumberFormats)
End With

End Sub