Ich brauche wieder mal Hilfe. Ist vielleicht nicht kompliziert aber ich kriege es nich hin.
Es muss doch möglich sein nachdem einen Wert gefunden wurde, Aufgrund einen i1 Wert XAnzahl Zeilen
einzufügen. Dann weiter zu suchen und mit i2 Wert, beim nächsten Fund i2 XAnzahl Zeilen einzufügen.
Ich suche wie folgt:
Columns("A:A").Select
Selection.Find(What:=Range("B1").Value, LookIn:=xlValues).Select
Dann sollten z.B i1 = 3 Anzahl Zeile eingefügt werden. Dann Weiter suchen:
Columns("A:A").Select
Selection.Find(What:=Range("C1").Value, LookIn:=xlValues).Select
i2 = 5 Anzahl Zeilen einfügen
Hoffentlich hat es da eine Lösung. Schon mal vielen Dank!
Grüsse, Robert