Excel vba fout in code

[Jingles]

Hallo,
Ik heb een probleem met deze code.
Alles werk zo als ik het wil maar met een ding gaat het fout.
Als ik a intyp krijgt de cel de kleur die ik wil, zet ik een andere letter er in die niet in de code voor komt word hij wit, haal ik de cel leeg word hij ook wit. het gaat fout als ik een paar cellen selecteer en op del druk. dan krijg ik een vba code fout nl 13.
ik gebruik deze code inlaats voor voorwaardelijke opmaak aangezien ik meer dan 3 letters nodig heb.
wie kan me zeggen wat er niet klopt.


Groetjes Edwin

Private Sub Worksheet_Change(ByVal Target As Range)
Dim icolor As Integer

If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
Select Case Target
Case "a"
icolor = 3
Case "b"
icolor = 5
Case Else
End Select

Target.Interior.ColorIndex = icolor
End If

End Sub

 

[Wigi]

Edwin

Gisteren is er al op gewezen om code tags rond je code te zetten: in deze topic. Denk hier eens aan aub.

 

[sylvester-ponte]

hoi jingles

fout 13 betekend dat de typen niet met elkaar overeen komen

als je een gebied selecteert en alles gelijke waarden geeft of wist
gebruik dan ipv
Select Case Target
Select Case Target(1,1)

als je bv. verschillende waarden in jouw gebied plakt dan
moet je in het totale intersect gebied opnieuw de kleur aanpassen
dat betekend een andere code maken (met een loopje of zo)

doe je best

groet vester