VBA range foutmelding

[Atara7]

Dankzij WimenBeer :thumb: gebruik ik deze vba code om,
als je op een cel klikt deze op 1 of 0 te zetten en omgekeerd:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not IsNull(Target.Value) And Target.Value <> "" Then
If Target.Value = 1 Then
Target.Value = 0
ElseIf Target.Value = 0 Then
Target.Value = 1
End If
End If
End Sub

Daar ben ik al heel erg blij mee!
Ik heb alleen nog een klein probleempje:
Als ik, per ongeluk, meerdere cellen selecteer krijg ik een foutmelding.
Dat is vooral lastig op een ander gedeelte van dit werkblad.
Omdat excel op een afgeschermd intranet staat, kan ik deze foutmelding hier nu (nog) even niet laten zien.
Is er iemand die weet hoe dit te op te lossen?

Met vriendelijke groet,
Aat

 

[Roncancio]

Dat kan je oplossen door een Target.Count = 1 te gebruiken.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[B]If Target.Count = 1 Then[/B]
    If Not IsNull(Target.Value) And Target.Value <> "" Then
        If Target.Value = 1 Then
            Target.Value = 0
        ElseIf Target.Value = 0 Then
            Target.Value = 1
        End If
    End If
End If
End Sub

Dus uitsluitend wanneer 1 cel is geselecteerd gaat de macro verder.

Met vriendelijke groet,


Roncancio

 

[Atara7]

Ik wordt hier heel blij van!
Weer heel erg bedankt Roncancio! :thumb:

Aat