Ich versuche bestimmte Zeilen aus einer txt- Datei in Excel zu kopieren, dafür muss das Programm erst nach dem Wort "Rating" suchen und dann die ganzen Zeilen kopieren.
Mit den folgenden Code kopiert er nur eine Zeile, es sollen aber 14 Zeilen sein, die eigentlich in einer Reihenfolge sind.
Wie kann ich den ändern sodass die alle Zeilen kopiert werden?
Vielen Dank im Voraus.
With ActiveSheet.Columns("A")
Set rngC = .Find("Rating")
If Not rngC Is Nothing Then
strAdresse = rngC.Address
Do
rngC.EntireRow.Copy Destination:=rngZiel
Set rngC = .FindNext(rngC)
Loop Until Not rngC.Address = strAdresse
End If