Fout 13 - Typen komen niet met elkaar over een

[don42]

Ik heb een vraag over bovenstaande foutmelding

als ik nu op cel I2 klik krijg ik bovenstaande foutmelding
wat is het geval ik heb cel I2 samengevoegde Cel (3 cellen I2 - j2 k2)
dan komt die fout melding
neem ik een niet samengevoegde cel werkt het perfect
iemand een oplossing?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Application.Intersect(Range("i2"), Target) Is Nothing Then
    If IsDate(ActiveCell.Value) Then Target.Value = Format(Now + 1, "mm-dd-yy")
    If Target.Value = Empty Then Target.Value = Format(Now + 1, "mm-dd-yy")
    End If
    End Sub

BVD don

 

[snb]

Gebruik nooit samengevoegde cellen in combinatie met VBA.

 

[Cobbe]

Haal die vermaledijde samengevoegde cellen weg!!!
Selecteer die 3 cellen en via celopmaak - Uitlijning - Centreren over bereik geeft hetzelfde effect en levert daarna geen problemen op,
ook niet voor uw macrocode.

 

[don42]

Oké beide bedankt voor de hulp, begrijp dat samenvoegen taboe is
met de optie Uitlijnen ben ik geholpen
Bedankt. superrrr