ich habe ein kleines Problem mit einer Programmierung in VBA. Sie lautet folgendermaßen:
r=4
Do Until Cells(r, 2) = Suche Or r = 1000
r = r + 1
Loop
Rows("r:r").Select
Selection.Insert Shift:=xlDown
Hatt jemand vielleicht einen Verbesserungsvorschlag für mich?