A ver si alguien me puede ayudar, estoy con una macro que mete la fecha actual en un arrai, el problema es que cuando ejecuto y meto en una celda la posicion del arrray excel me pone una fecha con el mes invertido. Ejemplo hoy es dia 12/09/2019 pues en vez de ponerme este fecha me pone 09/12/2019. He probado esto, mifecha = Format(Now, "dd/MM/yyyy") meter la fecha en una variable en el formato que busco y luego meterla en el array, pero cuando ejecuto la macro me vuelbe a girar el dia y el mes... alguna idea?
Option Explicit
Dim nombreArray As String
Dim i As Integer
Dim x As Integer
Dim numero As Integer
Dim numfel As Integer
Dim nomcliente As String
Dim clienteDepurado As String
Sub Clientes2()
'#####################
Dim MiFecha As String
Dim mifecha1 As String
Dim mifecha2 As String
MiFecha = Date
'mifecha = Format(Now, "dd/MM/yyyy")
mifecha1 = DateAdd("d", 1, Date)
mifecha2 = DateAdd("d", 2, Date)
nomcliente = Application.InputBox("Dime un Cliente - Pon solo las 3 primeras letras")
clienteDepurado = Trim(LCase(nomcliente))
Select Case clienteDepurado
Case Is = "nis"
Dim niss(0 To 17) As String
niss(0) = ""
niss(1) = MiFecha
niss(2) = ""
niss(3) = ""
niss(4) = "24658"
niss(5) = "NISSAN MOTOR IBERICA"
niss(6) = ""
niss(7) = ""
niss(8) = ""
niss(9) = "15n"
niss(10) = mifecha1
niss(11) = ""
niss(12) = ""
niss(13) = ""
niss(14) = ""
niss(15) = ""
niss(16) = "k"
niss(17) = ""
Call cogeDatos1(niss)
End
End Select
End Sub
Sub cogeDatos1(nombreArray)
For i = 0 To 17 Step 1
ActiveCell.Offset(0, i).Value = nombreArray(i)
Next i
i = 0
End Sub