• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Voorwaardelijke opmaak via VB geeft fout 13 typen komen niet met elkaar overeen

Status
Niet open voor verdere reacties.
J

Jodeho

Nieuwe gebruiker
Lid geworden
15 jun 2007
Berichten
3
Het volgende geeft de foutmelding 13 typen komen niet met elkaar overheen, wie weet hier een oplossing voor? alvast bedankt

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Excel.Range)


Dim x As Range
For Each x In ActiveSheet.UsedRange
With x
Select Case .Value
Case Is = "PAA"
.Interior.ColorIndex = 1
Case Is = "PAB"
.Interior.ColorIndex = 3
Case Is = "PAC"
.Interior.ColorIndex = 4
Case Is = "PAD"
.Interior.ColorIndex = 5
Case Is = "PAE"
.Interior.ColorIndex = 6
Case Is = "PAF"
.Interior.ColorIndex = 7
Case Is = "PAG"
.Interior.ColorIndex = 8
Case Is = "PAH"
.Interior.ColorIndex = 9
Case Is = "PAI"
.Interior.ColorIndex = 10
Case Is = "PAJ"
.Interior.ColorIndex = 12
Case Else
.Interior.ColorIndex = xlNone
End Select

End With
Next

End Sub
 
Werkt bij mij foutloos.

Ik zie ook niks bijzonders aan de code.


Mvg

Piet
 
Als de fout gegeven wordt, ga dan eens met de muis op .Value staan. Wat komt er in een tip net onder?

Weet wel dat je ELKE cel van het blad (het deel dat je gebruikt althans) kleurt, TELKENS bij een wijziging in een cel. Waarom kleur je niet enkel de cel die net gewijzigd is?

Wigi
 
Zo dan:

Code: 
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    With Target
        Select Case .Value
            Case "PAA": .Interior.ColorIndex = 1
            Case "PAB": .Interior.ColorIndex = 3
            Case "PAC": .Interior.ColorIndex = 4
            Case "PAD": .Interior.ColorIndex = 5
            Case "PAE": .Interior.ColorIndex = 6
            Case "PAF": .Interior.ColorIndex = 7
            Case "PAG": .Interior.ColorIndex = 8
            Case "PAH": .Interior.ColorIndex = 9
            Case "PAI": .Interior.ColorIndex = 10
            Case "PAJ": .Interior.ColorIndex = 12
            Case Else: .Interior.ColorIndex = xlNone
        End Select
    End With
End Sub

Nog 2 tips: laat je code inspringen in VBA, dat werkt veel duidelijker en zorgt voor minder fouten. Als je code hier op het forum zet, zet die dan tussen code tags. (Op het # teken klikken)

Wigi
 
opgelost

Hartelijk bedankt voor de reactie! Er bleken verkeerde waarden in veld te staan, die de foutmelding veroorzaakten.
 
Is deze voorwaarde ook uitbreidbaar op meerdere kolommen ?

vb.

Code: 
Kolom A    Kolom B   Kolom C     Kolom D
 [COLOR="Red"]   10             12           Audi         25000[/COLOR]
[COLOR="Red"]    10             12           Audi         26000[/COLOR]
[COLOR="Blue"]    10             12           Bmw        25000[/COLOR]

Indien C1 = Audi, dat dan alle 4 de waardes in die rij rood kleuren, en indien C1 = Bmw, dat dan alle 4 de waardes in die rij Blauw worden?
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan