Falsche Zeile wird kopiert
Martin
habe folgenden code, der allerdings leider fehlerhaft ist
Sub FindenZeileVerdopeln()
Dim c As Range
Dim firstAddress As String
Dim SuchWert As String
Application.ScreenUpdating = False
SuchWert = "Hallo"
With Worksheets("Tabelle1").Range("C:C")
Set c = .Find(SuchWert, LookIn:=xlValues, LookAt:=xlPart)
If Not c Is Nothing Then
firstAddress = c.Address
Do
With c.EntireRow
.Copy
.Insert Shift:=xlDown
End With
Application.CutCopyMode = False
Set c = .FindNext(c)
If c Is Nothing Then Exit Do
Loop While c.Address firstAddress
End If
End With
Application.ScreenUpdating = True
End Sub
Mein anliegen ist folgendes: Ich möchte nicht die Zeile kopieren und einfügen, in der der Suchbegriff gefunden wird, sonder die zeile darunter.Beispiel: In Zeile 9 ist der Suchbegriff, Zeile 10 soll kopiert werden und als zeile 11 eingefügt werden.
ich hoffe ich konnte mich verständlich ausdrücken!
bin euch im voraus schonmal sehr dankbar für eure hilfe