Avatar billede emil_ger Nybegynder
10. april 2010 - 00:12 Der er 5 kommentarer og
1 løsning

Kør makro 'on cell "property" change'

Jeg har behov for at køre en makro, når der sker ændring i én af 6 udvalgte celler.
Min kode er lige nu som følger:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$H$2" Then
    MsgBox "This Code Runs When Cell H2 Changes!"
ElseIf Target.Address = "$H$3" Then
    MsgBox "This Code Runs When Cell H3 Changes!"
ElseIf Target.Address = "$H$4" Then
    MsgBox "This Code Runs When Cell H4 Changes!"
ElseIf Target.Address = "$L$2" Then
    MsgBox "This Code Runs When Cell L2 Changes!"
ElseIf Target.Address = "$L$3" Then
    MsgBox "This Code Runs When Cell L3 Changes!"
ElseIf Target.Address = "$L$4" Then
    MsgBox "This Code Runs When Cell L4 Changes!"
End If
End Sub

, men desværre registrer denne kun ændring i cellens "indhold" og ikke egenskaber (eksempelvis baggrundsfarve).

Hvordan kan jeg tage højde for ændring i baggrundsfarve, for cellerne L2, L3 og L4?

Pft.
Avatar billede supertekst Ekspert
10. april 2010 - 09:48 #1
Er det kun ændring i baggrundsfarve?
Avatar billede emil_ger Nybegynder
10. april 2010 - 10:30 #2
Foruden celleindhold (værdi) er det kun baggrundsfarven.
Avatar billede supertekst Ekspert
10. april 2010 - 10:47 #3
Ok - vender tilbage
Avatar billede supertekst Ekspert
10. april 2010 - 11:06 #4
Til inspiration:

Dim baggrundsfarve As Byte, sidsteCC
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If InStr("$H$2$H$3$H$4$L$2$L$3$L$4", Target.Address) > 0 Then
        baggrundsfarve = Target.Interior.ColorIndex
        sidsteCC = Target.Address
    Else
        If sidsteCC <> "" Then
            If InStr("$H$2$H$3$H$4$L$2$L$3$L$4", sidsteCC) > 0 Then
                If Range(sidsteCC).Interior.ColorIndex <> baggrundsfarve Then
                    Stop    'baggrundsfarve er ændret
                End If
            End If
            sidsteCC = ""
        End If
    End If
End Sub
Avatar billede emil_ger Nybegynder
11. april 2010 - 11:29 #5
Tak for hjælpen. Hvis du skriver et svar, tildeler jeg point :)

God weekend.
Avatar billede supertekst Ekspert
11. april 2010 - 12:11 #6
Selv tak - et svar & i lige måde...
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
Kurser inden for grundlæggende programmering

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