Indien willekeurig meerdere cellen zijn geselecteerd einde sub

Status
Niet open voor verdere reacties.

Robert Smidt

Gebruiker
Lid geworden
26 mei 2009
Berichten
901
Beste Forumleden,

Ik heb een vba-code in Excel en wanneer ik meerdere aaneengesloten cellen (dus meer dan 1) willekeurig selecteer, gaat er iets fout in de code. Nu wil ik in deze code een code toevoegen die, op het moment dat er meerdere cellen zijn geselecteerd, het systeem er voor zorg laat dragen dat alle volgende codes worden overgeslagen bijvoorbeeld d.m.v. de GoTo functie.

Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If ... then GoTo Einde
...
...
Einde:
Application.EnableEvents = True
End Sub
.

Alvast heel hartelijk dank voor de reactie.

Groet,
Robert
 
Laatst bewerkt:
Zoiets als eerste in je Sub:
Code:
If Target.Count > 1 Then Exit Sub
 
De code werkt perfect, dit had ik anders nooit gevonden. Heel erg bedankt voor de super snelle reactie.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan