bevare 0-værdi

Din variabel "-cpr" skal dimensioneres som en string og tage nul med. Kildedataen har vel nullet, og således bør en string vel også tage den med?

nu er jeg meget "nybegynder" på området og kan se du har hjulpet mig én gang, hvad er det helt nøjagtigt du mener jeg skal sætte ind i denne makro
Sub Genbestilling()

Sheets("Genbestilling").Select

Dim DataSti As String
Dim Filnavn As String
Dim objFolders As Object
Set objFolders = CreateObject("WScript.Shell").SpecialFolders
Dim OutlookPrg As Object
Dim OutlookMail As Object

With ActiveSheet
        navn = .Range("k4")
        modtager = .Range("k2")
        tlf = .Range("k3")
        cpr = .Range("k6")
    End With


Set OutlookPrg = CreateObject("Outlook.Application")
Set OutlookMail = OutlookPrg.CreateItem(0)

DataSti = objFolders("desktop") & Application.PathSeparator
Filnavn = ActiveSheet.Name & "..." & cpr & ".pdf"

ActiveSheet.ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:=DataSti & Filnavn, _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=False

On Error Resume Next
With OutlookMail
    .to = modtager
    .CC = ""
    .BCC = ""
    .Subject = " Medicinbestiling " & navn
    .Body = "Hermed fremsendes medicinbestilling " & vbCrLf & vbCrLf & "Med venlig hilsen" & vbCrLf & navn & vbCrLf & "tlf  " & tlf
    .Attachments.Add (DataSti & Filnavn)
    .Display
End With
On Error GoTo 0

Kill (DataSti & Filnavn)

Set OutlookMail = Nothing
Set OutlookPrg = Nothing
Set objFolders = Nothing
     
Sheets("Journal").Select
    Range("P16:p31,P34:p49").Select
    Range("P34").Activate
    Selection.ClearContents
    Range("P16").Select


End Sub

Prøv Dim cpr As String

Og ret til

Cpr = .range(."K6").Text

you made my day

Velbekomme