Fejl i dato vej genåbning

Marker celle dato skal sættes i og tryk på ctrl+shift+;

Sub Dato()
Range("D5").Value = Date
End Sub

Hej store-morten.

Jeg har lige været ved at ligge VBA koden ind. Men synes ikke lige at jeg kan få det til at virke. Den viser godt nok datoen første gang jeg åbner det, med viser ikke næste gang jeg åbner en ny faktura med knappen.

Det eneste den knap gør er at åbne faktura prg. og lukke det der var åben i forvejen. Så kan ikke se at det skulle gøre nogen forskel om jeg selv åbner det eller gøre det ved hjælp af en knap. :-)

Ved ikke om den skal ligges under den sub autoopen() jeg har, for at få det til at virke.

Prøv at sende det til mig.
exceller @ pc.dk

Er her med sendt til dig. :-)

Jeg kan ikke åbne den korrekt.
Jeg har excel 2003?

Men prøv med:

Sheets("Faktura").Range("D5").Value = Date

i Private Sub Workbook_Open()

Jeg kan ikke se:

Sub Dato()
Range("D5").Value = Date
End Sub

bliver kaldt/aktivert nogen steds fra?

Det ligger under thisworkbook, som det første. Skulle også kunne åbnes i 2003, den det krever at man laver disse mapper.

C:/Faktura/excelfakturaDB/ og ligger faktura prg. i denne mappe sammen med rap filen.

Men prøver lige det du har forslået. Og vender så lige tilbage.

Det virker som det skal nu. :-)

Tak for hjælpen.

Hvis du ligger et svar er det point til dig.

Hilsen Kenneth

Ok, det var fint :-)

Sheets("Faktura").Range("D5").Value = Date

Husk:

Sheets("Rykker").Range("D5").Value = Date

Morten

Når ja, den linie skulle jeg også lige huske. :-)

Det havde jeg lige over set.

Forsat god søndag.