Makro til at sætte sidetal på første ark

Prøv med

Sub Sidetal()
  With ActiveSheet.PageSetup
      .FirstPageNumber = InputBox("Indtast første sidetal")
      .CenterFooter = "&P"
  End With
End Sub

Retselv footer til header, hv s sidetallet skal stå øverst.

Det virker perfekt. Tusind tak for hjælpen.

Kom med et svar så får du point

En lille kommentar.

Hvis jeg trykke cancel kommer den med en fejl "400"

Jeg var vist lidt for hurtig med at sige det virker:

Her er min kode:

Sub Sidetal()
If ActiveSheet.Name = "Resultat" Then
  With ActiveSheet.PageSetup
      .FirstPageNumber = InputBox("Indtast sidetal på arket 'Resultat'", "Ret sidetal")
      .CenterHeader = "&10Side &P"
  End With
End If
If ActiveSheet.Name = "Skat. res." Then
  With ActiveSheet.PageSetup
      .FirstPageNumber = InputBox("Indtast sidetal på arket 'Skat. res.'", "Ret sidetal")
      .CenterHeader = "&10Side &P"
  End With
  End If
End Sub

Jeg har stadig følgende problem:

1. Jeg vil gerne have to breaks inden den skriver side X, altså den skal skrive det to linier nede i sidehovedet

2. Kan man ikke lave knapperne i inputboxen så der står OK og Annuler i stedet for OK og Cancel

3. Jeg får stadig en fejl "400" når jeg trykker cancel

Prøv at se om ikke dette løser dine problemer:

Sub Sidetal()
Dim pn As Variant


    If ActiveSheet.Name = "Resultat" Then
   
        pn = Application.InputBox("Indtast sidetal på arket 'Resultat'", "Ret sidetal")
       
        If pn = False Then Exit Sub
       
        With ActiveSheet.PageSetup
            .FirstPageNumber = pn
            .CenterHeader = "" & Chr(10) & "" & Chr(10) & " &10Side &P"
        End With
    End If
   
    If ActiveSheet.Name = "Skat. res." Then
   
        pn = Application.InputBox("Indtast sidetal på arket 'Skat. res.'", "Ret sidetal")
       
        If pn = False Then Exit Sub
       
        With ActiveSheet.PageSetup
            .FirstPageNumber = pn
            .CenterHeader = "" & Chr(10) & "" & Chr(10) & " &10Side &P"
        End With
    End If

End Sub

Det virker perfekt.

Du skal endnu engang have tak. Du har været en kæmpe hjælp.

Velbekomme :-)