ich habe folgendes Problem :
Ich habe folgende Liste (auch nochmal als Excel Datei:https://www.herber.de/bbs/user/117568.xlsx)
BF 1
Projects 1
Projects 2
Projects 3
BF 2
Projects 1
Projects 2
(Hier Zeile einfügen)
Projects 3
BF 3
Projects 1
Projects 2
Projects 3
Ich möchte unter BF2 - Projects 2 eine Zeile über VBA einfügen.
Hierfür habe ich diesen einfachen Code geschrieben
Sub Suchalgtest()
Dim i, j, lRow As Long
lRow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To lRow
If Cells(i, 1).Value = "BF 1" Then
For j = i To lRow
If Cells(j, 1) = "Projects 2" Then
Rows("j:j").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End If
Exit For
Next j
End If
Exit For
Next i
End Sub
Ich wollte mit der Ersten Schleife das BF2 suchen und mit der 2. Schleife das Projekt 2 und dort dann eine Zeile einfügen.
Mit der ersten Schleife klappt das, aber die zweite Schleife funktioniert leider nicht mehr.
Kann mir jemand sagen woran das liegt ?
Vielen Dank schonmal im Vorraus :)
Liebe Grüße
Max