Indsæt sidetal i celler

Evt. kunne du anvende Sidefod og indsætte sideNr og SiderIalt, med mindre det skal være via VBA.

Det skal indsættes i en celle, da det ligger på række med 7 andre celler hvor der er streger imellem cellerne.

Kunne du evt. prøve at sende en kopi af filen eller model på et par sider.
@-adresse under min profil.

Rem Øverste 7 / Nederste 4 kopieres
Const antalHeader = 7
Const antalFooter = 4
Const antalRækkerPrSide = 50

Dim antalSider As Integer
Public Sub FormaterSider()
Dim sideNr As Long, antalSider As Long
    Application.ScreenUpdating = False
   
    antalSider = ActiveSheet.HPageBreaks.Count + 1
   
    If antalSider > 1 Then
        indsætEkstraRækker antalSider
    End If
   
End Sub
Private Sub indsætEkstraRækker(antalSider)
Dim side As Integer, række As Integer
    For side = 2 To antalSider
Rem Header - afsæt plads
        række = ((side - 1) * antalRækkerPrSide) + 1
       
        Range("H" & CStr(række - 1)) = side - 1 & " af " & antalSider
       
        Rows(CStr(række) & ":" & CStr(række)).Select
       
        For r = 1 To antalHeader
            Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
        Next r
       
Rem indsæt header
        Range("A1:G7").Copy _
            Destination:=Range("A" & CStr(række))
           
Rem juster sidenr
        Range("G" & række + 1) = side
       
Rem Footer
        række = række + antalRækkerPrSide - antalFooter
        Rows(CStr(række) & ":" & CStr(række)).Select

        For r = 1 To antalFooter
            Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
        Next r
       
        Range("A47:G50").Copy _
            Destination:=Range("A" & CStr(række))
    Next side
   
    række = ((side - 1) * antalRækkerPrSide) + 1
    Range("H" & CStr(række - 1)) = side - 1 & " af " & antalSider

End Sub