Clever-Excel-Forum

Hallo zusammen

Ich bin auf der Suche nach einer einfachen Lösung im VBA Code.
Meine Frage ist, wie muss ich dies ausführen wenn ich folgendes möchte:

Eine bestimmte Wortfolge in Spalte G suchen, wenn dies gefunden wurde, dann soll die ganze Zeile in der das Wort steht, kopiert werden und 1 Zeile darunter wieder eingefügt werden.

Wer kann mir einen einfachen VBA Code sagen?

Gruss Stefan

Hallo Stefan,

Code:
Sub abc()

  Dim rngF As Range

  Dim strSuchtext As String

  strSuchtext = Application.InputBox("Wonach soll gesucht werden?", , , , , , , 2)

  If Not CVar(strSuchtext) = False Then

    Set rngF = ActiveSheet.Range("G:G").Find(strSuchtext, , xlValues, xlPart)

    If Not rngF Is Nothing Then

      rngF.EntireRow.Copy

      rngF.EntireRow.Insert

      Application.CutCopyMode = False

    End If

  End If

End Sub

Gruß Uwe

Hallo Uwe

Dies funktioniert einwandfrei.

Vielen Dank

Stefan87

Kuwer

Stefan87