Datavalidering og cellefarver

Du kan nok opnå det, du ønsker ved at kombinere datavalidering og betinget formatering, men så kan du ikke samtidigt forhindre indtastninger, der falder unden for valideringen (Stop). Du må nøjes med at bruge Information eller Advarsel.

Jeg har ingen anelse om, hvor valideringsreglerne gemmes. Sorry!

Jeg kan ikke få det til at virke hvis værdien skal ligge inden for et navngivet celleområde!

Kan du ikke prøve at forklare præcist hvad det er, du ønsker at opnå?

Jeg har en række felter f.eks B25:B35. i disse felter skal der vælges værdier efter en datavalidering. Denne validering kommer fra et celleområde f.eks C50:C75 som kaldes CPU (=CPU i datavalidering). Jeg har ingen fejlmelding oprettet, da brugerne i princippet gerne må skrive noget andet end valideringen tillader, de skal da blot have en advarsel ved at farven på feltet skifter fra grøn til rød.
Det mit spørgsmål egentlig går på er hvorvidt det i Excel er muligt at få kørt en kontrol løbende i baggrunden uden at brugeren skal trykke på f.eks en knap

Jeg går ud fra at du har navngivet området C50:C75 til CPU.

Sæt denne makro ind i dit arkmodul.
Udbyg den selv, med dine betingelser

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("CPU")) Is Nothing Then
If Target.Value > 100 Then
Target.Interior.Color = vbRed ' rød hvis over 100
Else
Target.Interior.Color = vbGreen ' ellers grøn
End If
End If
End Sub

kabbak-> Måske har jeg misforstået problemet, men din kode løser det i hvert fald ikke som jeg opfatter det, nemlig at hvis der tastes et tal i en af cellerne B25:B35, skal der undersøges om det indtastede tal eksisterer sig i området CPU Hvis ikke, skal cellen farves. Din kode farver cellerne I CPU, hvis ikke en eller anden betingelse er opfyldt.

OK jkrons, så skal den se sådan ud

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B25:B35")) Is Nothing Then
For Each c In Range("CPU")
If Target.Value = c.Value Then
Target.Interior.Color = vbGreen
Exit Sub
End If
Next
Target.Interior.Color = vbRed ' ellers grøn
End If
End Sub

Smukt :-)

Bravo!
Point til Kabbak
Lige det jeg manglede. Kan én af Jer anbefale en god bog om VB og Excel?

Problemet kan vel også klares uden makro, men med betinget formatering
stil dig i B25, vælg betinget formatring
vælg "Formel er =" og skriv =TÆL.HVIS(cpu;B25)<1
vælg en farve og tryk OK.
Kopier formatet nedad.

kan evt udbygges til
=OG(TÆL.HVIS(cpu;D1)<1;ER.TOM(D1)=FALSK)=SAND

et svar ;-))

Da jeg skal have bygget en masse andre argumenter ind i denne datavalidering er den eneste måde for mig nok at gøre det i VB. Derfor point til Kabbak!