Jeg er novice i dette og slår med følgende. Jeg ønsker ved ændringer i et bestemt felt at køre en case på en række af celler. Som det er nu fungerer den ved ændring af specifik celle.
Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("K6:NU6")) Is Nothing Then Exit Sub Select Case Target Case "lø" Range(Cells(8, Target.Column), Cells(250, Target.Column)).Interior.ColorIndex = 4 Case "sø" Range(Cells(8, Target.Column), Cells(250, Target.Column)).Interior.ColorIndex = 4 Case "ma" Range(Cells(8, Target.Column), Cells(250, Target.Column)).Interior.ColorIndex = xlNone Case "ti" Range(Cells(8, Target.Column), Cells(250, Target.Column)).Interior.ColorIndex = xlNone Case "on" Range(Cells(8, Target.Column), Cells(250, Target.Column)).Interior.ColorIndex = xlNone Case "to" Range(Cells(8, Target.Column), Cells(250, Target.Column)).Interior.ColorIndex = xlNone Case "fr" Range(Cells(8, Target.Column), Cells(250, Target.Column)).Interior.ColorIndex = xlNone
End Select End Sub
Jeg har lavet en test med nedstående men kan ikke få den til at løbe cellerne igennem!
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$G$5" Then
Jeg skal have farvet weekender på en kalender som kan have forskellige start dato.
Private Sub Worksheet_Change(ByVal Target As Range)
For Each celle In Range("S5:NU5") If Weekday(celle, 2) > 5 Then Range(Cells(8, Target.Column), Cells(20, Target.Column)).Interior.ColorIndex = 4 Else: Range(Cells(8, Target.Column), Cells(250, Target.Column)).Interior.ColorIndex = xlNone End If Next celle
End Sub
Men den kan ikke lide "Else" og crasher den reagerer heller ikke på datoer men på ændring et vilkårligt sted!
prøv ElseIf i stedet for Else. Du kan også starte med at lave alle om til xlNone, og så kun køre if...then -uden Else. Weekday: I usa er søndag vist lig med 1, mens mandag er lig med 1 i DK.
Som jeg skrev i indledningen er jeg novice inden for dette og har derfor desværre ikke fået overstående løsning til at fungerer. Det der driller noget er følgende. Macroen skal kun køre ved ændring i en celle. Når der bliver ændret i denne celle skal den løbe en række andre celler igennem og farve en afgrænset mængde kolonner under. Det jeg startede med at lægge ind kan godt køre men kun ved ændring i den aktuelle celle. Som jeg skrev er jeg novice på området! Men tak for forslagene Finb
Synes godt om
Ny brugerNybegynder
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.