• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

VBA: Selection.NumberFormat = "dd/mm/yyyy"

Status
Niet open voor verdere reacties.

oeldere

Terugkerende gebruiker
Lid geworden
26 dec 2008
Berichten
2.741
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?

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
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan