Suchen und kopieren
03.09.2020 16:01:00
xtian
ich benötige bitte Hilfe. Das vorhandene Makro soll in der Spalte F nach dem Buchstaben X suchen. Wurde der
Buchstabe X beispielsweise in Zeile 3 gefunden, soll der Eintrag aus Zelle D3 genommen werden und in Zelle H3
kopiert werden. Leider führt das Makro immer nur einen Teil korrekt aus. Kann mir jemand den Fehler zeigen?
Sub SuchenKopieren()
Dim RaZelle As Range
For Each RaZelle In Range("F1:F7")
If RaZelle = "X" Then
'RaZelle.Offset(0, -2).Copy
'RaZelle.Offset(0, 2).PasteSpecial xlPasteValues
End If
Next RaZelle
End Sub
Christian