Liebe VBA Cracks
ich habe ein Macro mit dem ich nach einem Suchkriterium suche und dann einen Bereich ersetze;
Sub aendern()
Dim SZelle As Range
Dim Suchwert As String

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

Sheets("Springer").Range("J2:J32").Copy
With Worksheets("D_Springer")

Set SZelle = .Range("A:A").Find(Suchwert)
If Not SZelle Is Nothing Then SZelle.PasteSpecial Paste:=xlPasteValuesAndNumberFormats
End With

End Sub

Nun möchte ich aber die Änderung nur in der Zeile D vornehmen d.h den Bereich J2:J32 in Dx:Dy kopieren. Für Euch garantiert sehr simpel für mich unlösbar / Herzlichen Dank für Eure Hilfe