alexanderinfo
Gebruiker
- Lid geworden
- 24 mrt 2008
- Berichten
- 95
Beste experts,
Ik haal middels VBA de gegevens uit een werkboek en kopieer deze in een ander.
Daarin gaat alles goed, maar waar ik tegenaan loop is dat de datum wordt aangepast tijdens het kopiëren/plakken.
In werkboek1 staat de datum 01-07-2014 genoteerd en na het kopiëren/plakken staat in werkboek 2 07-01-2014 genoteerd.
Heb het al geprobeerd met de celeigenschappen aanpassen, maar dat heeft geen nut gehad.
hieronder de gebruikte code:
Ik heb ook
geprobeerd, maar samen met
lukt dit niet.
Bekijk bijlage test.xlsm
Alvast bedankt voor de moeite.
Ik haal middels VBA de gegevens uit een werkboek en kopieer deze in een ander.
Daarin gaat alles goed, maar waar ik tegenaan loop is dat de datum wordt aangepast tijdens het kopiëren/plakken.
In werkboek1 staat de datum 01-07-2014 genoteerd en na het kopiëren/plakken staat in werkboek 2 07-01-2014 genoteerd.
Heb het al geprobeerd met de celeigenschappen aanpassen, maar dat heeft geen nut gehad.
hieronder de gebruikte code:
Code:
Private Sub cmdData_Click()
On Error Resume Next
Dim i As Long
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
'Open een ander bestand naast het bestand dat al open is.
'Een werkbook dat geopend wordt wordt automatisch het actief werkboek.
Workbooks.Open Filename:="c:\map\bestand.xlsx", ReadOnly:=True
'Kopieer de gegevens zoals al bekend
ActiveSheet.Range("Tabel1").Copy
'Sluit het actieve werkboek.
'Daardoor wordt het eerste bestand waarin deze macro staat
'weer het active werkbook.
ActiveWorkbook.Close
'vindt eerste gebruikte cel
Range("A" & Rows.Count).End(xlUp).Offset(0).Select
'voegt een rij toe
Selection.ListObject.ListRows.Add
'vindt eerste lege cel in kolom A
Range("A" & Rows.Count).End(xlUp).Offset(0).Select
'Plakken van de gegevens.
ActiveSheet.PasteIk heb ook
Code:
PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Code:
ActivesheetBekijk bijlage test.xlsm
Alvast bedankt voor de moeite.
Laatst bewerkt:
