Bestimmte Wortfolge suchen

[Stefan87]

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

[Kuwer]

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

[Stefan87]

Hallo Uwe

Dies funktioniert einwandfrei.

Vielen Dank