Hallo VBA'ler,

ich erstelle wöchentlich aus einer .pdf-Speisekarte eine Bestellliste für externe Kollegen.

Ich bekomme es nur hin, EINE Zeile ab der übernächsten Zeile einzufügen, es müssten aber 2 sein (1. Gericht, 2. Preis):

.
.
Range("A1:A100").Replace "Pizza", "Pizza Schinken"
.
.
For k = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
If Cells(k, 1) = "Pizza Schinken" Then Cells(k + 2, 1).EntireRow.Insert
Next k
.

Noch komfortabler wäre, wenn außerdem in den beiden neuen Zeilen Spalte A "Pizza Salami" und darunter der gleiche Preis wie oben stehen würde.

Kleines Beispiel in der beigefügten Datei.

https://www.herber.de/bbs/user/162137.xlsx

Vielen Dank im Voraus,

Margarete