fejl i #reference

Du er velkommen til at sende det til: pb@supertekst-it.dk

mail sendt -> pb@supertekst-it.dk

Følgende kode er indsat i Module1 - dette bevirker, at bynavnet bliver bevaret som værdi i cellen (Kolonne I) og formel heri bliver slettet. Mappen gemmes under nyt navn.

Dim xSti, antalræk, række, byNavn
Sub KlarTilMail()                                  'hovedrutine
    findAktuelleSti
    gennemløbArket
    gemSomKlarTilMail
End Sub
Private Sub findAktuelleSti()
    xSti = ActiveWorkbook.Path
    If Right(xSti, 1) <> "\" Then
        xSti = xSti + "\"
    End If
End Sub
Private Sub gennemløbArket()
    With ActiveWorkbook.Sheets("ruller")
        antalræk = ActiveCell.SpecialCells(xlLastCell).Row
       
        For række = 1 To antalræk
Rem test om der er bynavn i kolonne I
            If Cells(række, 9) <> "" Then
                byNavn = Cells(række, 9)            'hent bynavn
                Cells(række, 9).Formula = ""        'slet formel
                Cells(række, 9) = byNavn            'indsæt bynavn som værdi
            Else
                Cells(række, 9).Formula = ""        'slet formel
            End If
        Next række
    End With
End Sub
Private Sub gemSomKlarTilMail()
    With ActiveWorkbook
        Application.DisplayAlerts = False
        .Sheets("postnr").Delete                    'sletter arket Postnr
        .SaveAs xSti + "newdhl_TilMail.xls"        'gemmer som ny workbook
        Application.DisplayAlerts = true
    End With
End Sub

Hej Supertekst

Har du mulighed for at maile rettelsen ?

/ Torben

Har sendt en mail med din oprindelige .xls fil + ovenstående kode i module1.

Hej Super

Det funker...

/ Torben