Avatar billede al_pacone Nybegynder
16. juni 2004 - 22:15 Der er 5 kommentarer og
1 løsning

Ændringer inden for et bestemt område.

Jeg har lidt kode der bliver brugt når der sker ændringer i arket.
Det fungerer fint som det er, men jeg kunne godt tænke mig at koden kun bliver udført, når ændringerne sker inden for et bestemt område.

Jeg forestiller mig at det måske kunne laves med en If.
Noget i stil med følgende.

Private Sub Worksheet_Change(ByVal Target As Range)

If ( ændringer inden for området A1:B2 )

For Each C In Target
If Sheets("Turnusplan2").Range(C.Address) <> C.Value Then
A = Sheets("Turnusplan").Range(C.Address).Value
If A <> "Fe" And A <> "Af" And A <> "Ku" And A <> "Sy" And A <> "An" Then
Target.Interior.ColorIndex = 8
Target.Font.Color = 0
End If
Else
Target.Interior.ColorIndex = Sheets("Turnusplan2").Range(Target.Address).Interior.ColorIndex
End If
Next

End if

End sub
Avatar billede bak Forsker
16. juni 2004 - 22:27 #1
Private Sub Worksheet_Change(ByVal Target As Range)
Dim MitOmr as Range
Set MitOmr = Range("A1:B2")
If Not Intersect(Target, MitOmr) Is Nothing Then

For Each C In Target
If Sheets("Turnusplan2").Range(C.Address) <> C.Value Then
A = Sheets("Turnusplan").Range(C.Address).Value
If A <> "Fe" And A <> "Af" And A <> "Ku" And A <> "Sy" And A <> "An" Then
Target.Interior.ColorIndex = 8
Target.Font.Color = 0
End If
Else
Target.Interior.ColorIndex = Sheets("Turnusplan2").Range(Target.Address).Interior.ColorIndex
End If
Next

End If
Avatar billede jkrons Professor
16. juni 2004 - 22:34 #2
Det kan sikkert sagtens gøres mere elegant, men dette virker i hvert fald

If (Target.Column = 1 Or Target.Column = 2) And (Target.Row = 1 Or Target.Row = 2) Then

...din kode

End If
Avatar billede al_pacone Nybegynder
16. juni 2004 - 22:35 #3
Så virker det også.
Tak for hjælpen.
Avatar billede al_pacone Nybegynder
16. juni 2004 - 22:39 #4
For god ordens skyld, skal lige nævnes at det blev baks løsning jeg har valgt.
Avatar billede bak Forsker
16. juni 2004 - 22:41 #5
så vil jeg da også gerne svare :-)
Avatar billede jkrons Professor
16. juni 2004 - 22:45 #6
Fint nok. Den var også bedre og hurtigere :-)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester