Hoi,
Ik heb een bestandje, waar een aantal cellen dienen ingevuld te worden. (zelf in te vullen of eventueel met drop-down) Nu mijn probleem : Als een (samengevoegde) cel eenmaal is ingevuld, zou deze niet meer overschreven mogen worden. Zie bijgevoegd bestand.
Ik had ergens iets gevonden als volgt
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("A7") = "test" Then
Exit Sub
Else
On Error Resume Next
If Not Application.Intersect(Range("A7:N655"), Range(Target.Address)) _
Is Nothing Then If Len(Target) > 0 Then Range("A7").Select
If Err.Number = 91 Then Range("A7").Select
End If
End Sub
Maar dit blijkt niet te werken bij samengevoegde cellen
Wie kan me helpen