overname celwaarde én format in header

[Sir Botex]

in de sheet zelf wordt het getal (bestaande uit 11cijfers) als volgt ingedeeld:
###"."###"."###-##

nu zou ik deze samenstelling (met 2 . en 1 -) ook willen zien in de Header van het afgedrukte blad, terwijl ik nu enkel ########### zie (11 cijfers, niet ingedeeld door . en -)

Het invoegen van de Header voor afdruk gebeurt als volgt (en werkt)

Private Sub PrintAlgemeen_Click()
    Sheets("Algemeen").Select
            With ActiveSheet.PageSetup
                .LeftHeader = "Datum Afdruk: &D"
                .CenterHeader = Sheets("Algemeen").Range("B3")
                .RightHeader = Sheets("Algemeen").Range("B10")
            End With
        ActiveWindow.SelectedSheets.PrintPreview
    Sheets("Afdrukken").Select
End Sub

Kan iemand mij helpen?

 

[leofact]

Daar kun je formatnumber voor gebruiken

FormatNumber(range("b3"), 2, , , -2)

Dit neemt de systeeminstellingen over.

Meer info bij de helpfunctie
mvg leo

 

[Sir Botex]

Ik doe toch nog iets verkeerd denk ik (en de Help Functie voor VB is niet geinstalleerd vrees ik: voorgeinstalleerde versie van Office dus ook geen installatiecd voorhanden)

                .RightHeader = "LB-nummer: " & FormatNumber(Sheets("Algemeen").Range("B10"), 0, , -2)

Ter verduidelijking: het resultaat dat ik nodig heb is: 3 cijfers punt 3 cijfers punt 3 cijfers streepje 2 cijfers

Waar zit m'n fout?

Alvast bedankt voor de hulp!

 

[leofact]

Oké dat had ik niet goed begrepen/gelezen.

Dit lukt o.a. zo:
Format(Range("a1"), "@@@.@@@.@@@-@@")

 

[Sir Botex]

Works Like A Charm!!!

Hartelijk bedankt!

 

[leofact]

Mooi dat je weer verder kunt!