opmaak cellen afdwingen

[brandernl]

Ik heb een Excelbestand dat nogal eigenwijs is en het de celopmaak "spontaan" wijzigt in "aangepast" ==> "d-m".
Ik heb daarom in mijn macro opgenomen

ActiveCell.NumberFormat = "0"

, maaarrr dat lijkt niet veel te doen.

Hier is de hele macro. Graag jullie hulp

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Waarde As String
Waarde = ActiveCell.Value
ActiveCell.NumberFormat = "0"

Select Case Waarde
        Case 1
    ActiveCell.Interior.ColorIndex = 3
    ActiveCell.Offset(, 1).Value = 2
    ActiveCell.Offset(, 1).Interior.ColorIndex = 3
        Case 2
    ActiveCell.Interior.ColorIndex = 10
    ActiveCell.Offset(, 1).Value = 3
    ActiveCell.Offset(, 1).Interior.ColorIndex = 10
        Case 3
    ActiveCell.Interior.ColorIndex = 17
    ActiveCell.Offset(, 1).Value = 1
    ActiveCell.Offset(, 1).Interior.ColorIndex = 17
        Case "extra"
    ActiveCell.Interior.ColorIndex = xlNone
    ActiveCell.Offset(, 1).Value = "extra"
    ActiveCell.Offset(, 1).Interior.ColorIndex = xlNone
        Case "vrij"
    ActiveCell.Interior.ColorIndex = xlNone
        Case "vak"
    ActiveCell.Interior.ColorIndex = xlNone
        Case ""
    ActiveCell.Interior.ColorIndex = xlNone
        Case Else
     ActiveCell.Interior.ColorIndex = xlNone
    End Select
End Sub

 

[exhelp]

Ik heb het niet getest, maar even uit het hoofd.
Volgensmij moet de Numberformat hierzo staan om het te doen werken

Select Case Waarde
        Case 1
    ActiveCell.Interior.ColorIndex = 3
    ActiveCell.Offset(, 1).Value = 2
    ActiveCell.Offset(, 1).Interior.ColorIndex = 3
    ActiveCell.NumberFormat = "0"
        Case 2

 

[brandernl]

Neen, dat is hem niet