Beste forumgebruikers,
Ik gebruik zelf office 2003.
Op een andere PC wordt office professioneel xp gebruikt.
1 juni 2010
De data-opmaak wordt bij office professioneel xp weergegeven als. 6-1-2010.
In de office 2003 wordt dit weergegeven als 01-06-2010.
tevens worden de opgehaalde gegevens soms weergegeven als 6/1/2010
Ik heb onderstaande code gebruikt (opgenomen).
Wie kan en wil me hier mee helpen?
Ik gebruik zelf office 2003.
Op een andere PC wordt office professioneel xp gebruikt.
1 juni 2010
De data-opmaak wordt bij office professioneel xp weergegeven als. 6-1-2010.
In de office 2003 wordt dit weergegeven als 01-06-2010.
tevens worden de opgehaalde gegevens soms weergegeven als 6/1/2010
Ik heb onderstaande code gebruikt (opgenomen).
Wie kan en wil me hier mee helpen?
PHP:
Sub opmaak_urendagstaat()
'
' opmaak_urendagstaat Macro
' Macro recorded 31-5-2010 by Oeldere
'
'
Columns("A:A").Select
Selection.NumberFormat = "dd/mm/yyyy"
Selection.ColumnWidth = 12
Columns("C:C").Select
Selection.NumberFormat = "#,##0"
Columns("D:F").Select
Selection.NumberFormat = "#,##0.00"
Columns("C:F").Select
Selection.ColumnWidth = 12
Range("A1").Select
Selection.EntireRow.Insert
ActiveCell.FormulaR1C1 = "datum"
Range("B1").Select
ActiveCell.FormulaR1C1 = "naam"
Range("C1").Select
ActiveCell.FormulaR1C1 = "aantal"
Range("D1").Select
ActiveCell.FormulaR1C1 = "begin"
Range("E1").Select
ActiveCell.FormulaR1C1 = "eind"
Range("F1").Select
ActiveCell.FormulaR1C1 = "pauze"
Range("G1").Select
ActiveCell.FormulaR1C1 = "werk"
Selection.AutoFilter
Range("A1").Select
On Error Resume Next
With Columns("A").SpecialCells(xlCellTypeBlanks).Cells
.EntireRow.Delete Shift:=xlUp
End With
If Err.Number <> 0 Then MsgBox "Uitvoering niet mogelijk : geen of allemaal lege cellen"
End Sub