Melding bij cel legen

[ramons1986]

Goedemiddag,

Ik zou graag een melding ontvangen bij het legen van een cel, en dat lukt prima behalve bij samengevoegde cellen. Ik gebruik onderstaande code, wanneer ik cel B2 leeg krijg ik netjes melding. Cel B4 is samengevoegd met B5 en B6, wanneer ik die leeg gebeurt er niets.

Wie weet wat ik fout doe of hoe dit op te lossen is?

Bij voorbaat dank voor het meedenken.


Private Sub Worksheet_Change(ByVal Target As Range)


If Target.Address = "$B$2" Then
If Target.Value = "" Then

MsgBox ("Cel is leeg")

End If
End If


If Target.Address = "$B$4" Then
If Target.Value = "" Then

MsgBox ("Cel is leeg")

End If
End If


End Sub

 

[AHulpje]

Target.Cells(1).Address="$B$4"

of

Target.Address="$B$4:$D$4"

 

[popipipo]

Komen we weer terug op een veel gestelde vraag
Waarom cellen samenvoegen dit geeft alleen maar problemen zeker bij VBA

Gebruik uitlijning 'center across selection'( sorry voor de engelse benaming)

 

[ramons1986]

Target.Cells(1).Address="$B$4"

of

Target.Address="$B$4:$D$4"

In beide gevallen helaas foutmelding

 

[ramons1986]

Komen we weer terug op een veel gestelde vraag
Waarom cellen samenvoegen dit geeft alleen maar problemen zeker bij VBA

Gebruik uitlijning 'center across selection'( sorry voor de engelse benaming)

Hoe beschamend het misschien ook is, maar nooit geweten dat dit kon. Dit is inderdaad een prima oplossing.

 

[popipipo]

Daarom stel je hier ook een vraag.
Vergeet nooit 'out of the box ' te denken.

 

[edmoor]

Of:

Private Sub Worksheet_Change(ByVal Target As Range)
    Select Case Target.Address(0, 0)
        Case "B2", "B4:D4": If Target.Text = "" Then MsgBox "Cel is leeg"
    End Select
End Sub

 

[AHulpje]

Of ook nog:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$B$2" Then
        If Target.Value = "" Then MsgBox ("Cel is leeg")
    End If
    If Target.Address = "$B$4:$D$4" Then
        If Target.Cells(1).Value = "" Then MsgBox ("Cel is leeg")
    End If
    If Target.Cells(1).Address = "$B$4" Then
        If Target.Cells(1).Value = "" Then MsgBox ("Cel is leeg")
    End If
End Sub

 

[ramons1986]

@edmoor & @AHulpje, ontzettend bedankt voor deze perfecte oplossingen! Samengevoegde cellen houden het toch duidelijker!

 

[edmoor]

Code in #7 nog wat vereenvoudigd.