Hallo Leute,
ich versuche mit den Code von der Zelle D1-10 den Inhalt zu kopieren und diesen dann in der Gesamten Zelle C zu entfernen. Leider bekomme ich das als Anfäner nicht so gut hin.
Danke für eure Hilfe!
Dim n As Integer
For n = 2 To 10
Columns("C:C").Select
Selection.Replace What:="Cells(n, 4).Value", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Next n
End Sub
|