*EDIT*
Opgelost. Het moest zijn ipv
Naar:
- Een vreemd probleem.
Ik heb een spreadshet dat een macro uitvoert bij het printen. Waar het van worksheet baby01 een aantal gegevens moet toevoegen in het worksheet Facturen.
Dit werkt allemaal prima. Echter wanneer het spreadsheet geopent wordt op één van onze andere computers (die Excel 2002 hebben toevalligerwijs) wordt alleen de datum vreemd genoeg niet geformateerd.
Op het originele worksheet staat bv. 27-06-2005, na de macro run staat er 06/27/2005, dit gebeurt niet op de Excel 2003 machine.
De landen / tijds en datum instellingen zijn wel goed op alle machines zijn ze identiek.
Wat ook vreemd is, is dat de format instellingen (rechts uitgelijnd etc.) ook niet werken.
Wanneer je de foute datum middels celeigenschappen wilt wijzigen dan werkt dit niet. Als je de datum opnieuw met de hand intikt werkt het wel.
Vreemd niet?
Dit is de code die de cellen copieerd bij het printen.
Opgelost. Het moest zijn ipv
code:
1
| Worksheets("baby01").Range("D8").Value, _ |
Naar:
code:
1
| Format(Worksheets("baby01").Range("D8").Value, "dd-mm-yyyy"), _ |
- Een vreemd probleem.
Ik heb een spreadshet dat een macro uitvoert bij het printen. Waar het van worksheet baby01 een aantal gegevens moet toevoegen in het worksheet Facturen.
Dit werkt allemaal prima. Echter wanneer het spreadsheet geopent wordt op één van onze andere computers (die Excel 2002 hebben toevalligerwijs) wordt alleen de datum vreemd genoeg niet geformateerd.
Op het originele worksheet staat bv. 27-06-2005, na de macro run staat er 06/27/2005, dit gebeurt niet op de Excel 2003 machine.
De landen / tijds en datum instellingen zijn wel goed op alle machines zijn ze identiek.
Wat ook vreemd is, is dat de format instellingen (rechts uitgelijnd etc.) ook niet werken.
Wanneer je de foute datum middels celeigenschappen wilt wijzigen dan werkt dit niet. Als je de datum opnieuw met de hand intikt werkt het wel.
Vreemd niet?
Dit is de code die de cellen copieerd bij het printen.
code:
1
2
3
4
5
6
7
8
9
| Sub Workbook_BeforePrint(Cancel As Boolean)
NextRow = Worksheets("Facturen").Range("A65536").End(xlUp).Row + 1
Worksheets("Facturen").Cells(NextRow, 1).Resize(1, 5).Value = Array( _
Worksheets("baby01").Range("D9").Value, _
Worksheets("baby01").Range("D10").Value, _
Worksheets("baby01").Range("F10").Value, _
Worksheets("baby01").Range("D8").Value, _
Worksheets("baby01").Range("I38").Value)
End Sub |
[ Voor 13% gewijzigd door Verwijderd op 28-06-2005 09:38 ]