Excel: meerdere selecties bij Case select

[varkje]

Hallo allemaal,

Is het mogelijk om met Case select meerdere waarden te kiezen?
In onderstaand voorbeeld wordt alleen gekeken naar "Appel".
Kan ik daar ook b.v. "Peer" en "Sinaasappel" aan toevoegen?

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("r7:r1000")) Is Nothing And Target.Count = 1 Then

Select Case Target.Value

Case "Appel": Target.Offset(, 2) = 1

Target.offset (, 11) = “Rood”

Target.Offset (, 15) = "Verkoop"

Case Else: Target.Offset(, 11) = ""

Target.Offset(, 15) = ""

End Select

End If

End Sub

Groetjes

 

[AHulpje]

Ja, dat kan.
https://learn.microsoft.com/en-us/o...nce/user-interface-help/select-case-statement

 

[OctaFish]

Zo:

Private Sub Worksheet_Change(ByVal Target As Range)
     If Not Intersect(Target, Range("r7:r1000")) Is Nothing And Target.Count = 1 Then
          Select Case Target.Value
               Case "Appel"
                    Target.Offset(, 2) = 1
                    Target.offset (, 11) = “Rood”
                    Target.Offset (, 15) = "Verkoop"
               Case "Peer"
                    Target.Offset(, 2) = 2
                    Target.offset (, 11) = “Groen”
                    Target.Offset (, 15) = "Verkoop"
               Case Else
                    Target.Offset(, 11) = ""
                    Target.Offset(, 15) = ""
          End Select
     End If
End Sub

 

[varkje]

Dank je wel OctaFish, dit is een grote stap vooruit!

Nu staat in de range q7:q1000 vermeld of het fruit ontvangen is of niet.
Kan ik dat ook verwerken in hetzelfde select?
In bovenstaande b.v. dat als het fruit een "Appel" is en dat we de bestelde hoeveelheid
hebben ontvangen.
Als dat zo is dan staat op de betreffende regel in de range q7:q1000 een 'J' .
Het is dus een combinatie van de ranges q en r.

Alvast bedankt!

 

[emields]

Nog nooit gehoord van een voorbeeldbestandje?

 

[OctaFish]

Ik heb ook geen idee wat je bedoelt, dus ik zou ook zeggen: doe er een voorbeeldje bij. Want zo blijven we bezig. Als je een tweede Select case op een andere range wilt, met andere selecties, dan moet je die erbij maken.