Jeg har lavet en faktura skitse i Excel med en marko. 

Denne makro sender data fra et ark ("Faktura") til et andet ark ("Info"). Eksempelvis fakturadato, betalingsdato, beløb osv. 

Mit problem er at de datoer den flytter over bliver over til arket bliver laver sat ind som tekst og ikke en dato som den kommer fra.

På Forhånd tak

Vh Lasse

< ="text/"> p.p1 {margin: 0.0px 0.0px 0.0px 0.0px; font: 11.0px Menlo; color: #000000; background-color: #ffffff} p.p2 {margin: 0.0px 0.0px 0.0px 0.0px; font: 11.0px Menlo; background-color: #ffffff; min-height: 13.0px} p.p3 {margin: 0.0px 0.0px 0.0px 0.0px; font: 11.0px Menlo; color: #011993; background-color: #ffffff} span.s1 {color: #011993} span.s2 {color: #000000}

Sub transfere()

Dim fakturanummer As String, amount As String, kunde As String, fakturadato As String, betaldato As String, jobnavn As String

Worksheets("Faktura").Select

fakturanummer = Range("F11")

amount = Range("F32")

amountEX = Range("F30")

kunde = Range("B9")

fakturadato = Range("F12")

betaldato = Range("F13")

jobnavn = Range("F15")

Worksheets("info").Select

Worksheets("info").Range("A1").Select

If Worksheets("info").Range("A1").Offset(1, 0) <> "" Then

Worksheets("info").Range("a1").End(xlDown).Select

End If

ActiveCell.Offset(1, 0).Select

ActiveCell.Value = kunde

ActiveCell.Offset(0, 1).Select

ActiveCell.Value = fakturanummer

ActiveCell.Offset(0, 1).Select

ActiveCell.Value = amount

ActiveCell.Offset(0, 1).Select

ActiveCell.Value = amountEX

ActiveCell.Offset(0, 1).Select

ActiveCell.Value = fakturadato

ActiveCell.Offset(0, 1).Select

ActiveCell.Value = betaldato

ActiveCell.Offset(0, 1).Select

ActiveCell.Value = jobnavn

Worksheets("Faktura").Select

End Sub

Sub clear()

Range("B9:C9").Select

Selection.ClearContents

Range("F14:F16").Select

Selection.ClearContents

Range("A18:C29").Select

Selection.ClearContents

Range("B9").Select

End Sub

Sub nextInvoice()

Range("F11").Value = Range("F11").Value + 1

End Sub

Okay her er den så. Skriv endeligt hvis ikke det giver mening.