Indsæt x antal linier hvis celle er lig med "tekst"

Sub test2()
Dim x, t, r
x = Cells(65500, 8).End(xlUp).Row
For t = x To 1 Step -1
If Cells(t, 8) = "INGEN" Then
For r = t + 1 To t + 26
Cells(r, "H").Rows.Insert
Cells(r, "I").Rows.Insert
Cells(r, "J").Rows.Insert
Cells(r, "K").Rows.Insert
Cells(r, "L").Rows.Insert
Next
End If
Next

Ser ud til at virke Excelent !!
-Nu skal jeg bare have indsat "0" i cellerne.

Svar og point går til dig Excelent

mvh Lun

Den er godt nok lidt laaaaaangsom, kan den gøres hurtiger (har begrænset x til kun at starte ved 500 istedet for 65000), men synes stadig det går lidt laaaa...

mvh Lun

prøv:


Sub test2()
Dim x, t, r
application.screenupdating=false
x = Cells(65500, 8).End(xlUp).Row
For t = x To 1 Step -1
If Cells(t, 8) = "INGEN" Then
For r = t + 1 To t + 26
Cells(r, "H:L").Rows.Insert
Next
application.screenupdating=true
End If
Next

Den duer ikke
Cells(r, "H:L").Rows.Insert
Excel giver runtime error 1004

øhh, kan åbenbart ikke finde ud af at markere (r, "H:L")

andre gode forslag ??

Sub test2()
Dim x, t, r
Application.ScreenUpdating = False
x = Cells(65500, 8).End(xlUp).Row
For t = x To 1 Step -1
If Cells(t, 8) = "INGEN" Then
For r = t + 1 To t + 26
'Cells(r, "H:L").Rows.Insert
Range("H" & r & ":L" & r).Rows.Insert
Next
Application.ScreenUpdating = True
End If
Next
End Sub

Hej excelent.
Så virker det helt perfekt, tusinde tak for din hjælp -smid et svar

mvh Lun

ok velbekom

denne er en del hurtigere, hvis det stadig er aktuel :-)

Sub test3()
Dim x, t, r
Application.ScreenUpdating = False
x = Cells(65500, 8).End(xlUp).Row
For t = x To 1 Step -1
If Cells(t, 8) = "INGEN" Then
Range("H" & t + 1 & ":L" & t + 26).Select
Selection.Insert Shift:=xlDown
End If
Next
ActiveCell.Select
Application.ScreenUpdating = True
End Sub

Skal lige prøve den.. TUSINDE TAK
Og ja er stadig aktuelt, ;-) -still working on the procejct.

Teksten skal jeg også have til at tælle antal linjer sammen, også de tomme imellem, men KUN imellem, ? END ROW ?? eller lign.

Tak endnu engang excelent,

Er først igang igen mandag, så muligvis lidt SLOW