Makro til at indsætte række og kopiere formel samt betinget formatering.

Jeg skal bruge en makro til at indsætte en række under første i den første ledige række.

Hvor den skal kopiere formlen med samt betinget formatering fra forrige celle.

Formlen er i dette tilfælde =TÆLV(E22:IV22) den skal jo så blive til =TÆLV(E23:IV23)

Eks. hvis jeg har noget stående i række 22 skal der bare klikkes på en knap og der insættes en række 23 med formlen (=TÆLV (E23:IV23) og med en betinget formatering der er kopieret ned.

Håber det giver mening.

fandt denne fra andet webside. Men kunne ikke hitte ud af at indsætte og bruge den.



Public Function FindNextTomme(ByVal rCell As Range) As Range
'Finder første tomme celle nedad i en kolonne.

On Error GoTo ErrorHandle

With rCell
    'Hvis udgangscellen er tom, er det den første tomme celle.
    If Len(.Formula) = 0 Then
        Set FindNextTomme = rCell
    'Hvis cellen lige under udgangscellen er tom
    ElseIf Len(.Offset(1, 0).Formula) = 0 Then
        Set FindNextTomme = .Offset(1, 0)
    Else
        'Finder cellen efter sidste celle med indhold.
        '.End(xlDown) svarer til at trykke CTRL + pil ned.
        Set FindNextTomme = .End(xlDown).Offset(1, 0)
    End If
End With

Exit Function

ErrorHandle:
MsgBox Err.Description & ", Function FindNextTomme."
End Function