Rij invoegen inclusief formules

[snb]

Of

Sub Invoegen_rij()
  With ActiveCell.EntireRow
    .Offset(1).Insert
    .Copy .Offset(1)
  End With
End Sub

 

[trucker10]

Super Daniel! Bedankt. Kan ik nu het excel blad ook beveiligen? Of werkt de Macro dan niet meer?

Jos er zit een foutje in ik had niet bemerkt dat er een verborgen kolom was pas de macro aan , je kan het werkblad beveiligen door er dit aan toe te voegen

Sub Invoegen_rij()
ActiveSheet.Unprotect
    With ActiveCell.EntireRow
        .Insert
            .Cells(1, 6).Copy .Cells(0, 6)
                .Cells(1, 10).Copy .Cells(0, 10)
                    .Cells(1, 14).Copy .Cells(0, 14)
                .Cells(1, 18).Copy .Cells(0, 18)
            .Cells(1, 20).Copy .Cells(0, 20)
        .Cells(1, 22).Copy .Cells(0, 22)
    End With
ActiveSheet.Protect
End Sub

eventueel uitbreiden naar een paswoord .

 

[trucker10]

@ snb ik haal enkel de formules over , bij mij mag de bovenste rij voorzien zijn van data

 

[snb]

alternatief:

Sub tst()
  With ActiveCell.EntireRow
    .Offset(1).Insert
    .Resize(2).FillDown
    .Offset(1).SpecialCells(xlCellTypeConstants).ClearContents
  End With
End Sub

Lussen schijnen niet de snelste code op te leveren (zeggen anderen)
Selectief verwijderen kan eenvoudiger/sneller zijn dan selectief kopiëren.

 

[trucker10]

alternatief:
Lussen schijnen niet de snelste code op te leveren (zeggen anderen)
Selectief verwijderen kan eenvoudiger/sneller zijn dan selectief kopiëren.

Ik deel die mening met de " anderen " maar het is ( was ) van niet beter te weten en toch tot het gevraagde resultaat te komen , ik rij ook niet steeds langs dezelfde weg om van punt A naar B te rijden en tja, het is dan wat langer rijden . Ik probeerde zonet de twee code's in dezelfde sheet alles perfect tot ik een tweede keer wilde testen en dan kreeg ik een fout , blijkbaar bleef iets achter in het geheugen .