Makro : Markér kolonne og række

Denne kode i arkets kodemodul bør kunne give det ønskede resultat. Ret selv matrixentil og evt. farven. Der forventes dropdown i celle A1.


Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo fejl

    Dim Navn As String
    Dim NavnKNr As Byte, NavnRNr As Byte
   
    If Not Intersect(Target, Range("A1")) Is Nothing Then
        Navn = Range("a1")
   
        Cells.Interior.ColorIndex = xlNone
       
        For Each c In Range("b4:f4").Cells
            If UCase(c.Value) = UCase(Navn) Then NavnKNr = c.Column
        Next
        For Each c In Range("a3:a12").Cells
            If UCase(c.Value) = UCase(Navn) Then NavnRNr = c.Row
        Next
        Debug.Print NavnKNr, NavnRNr
        If NavnKNr <> 0 And NavnRNr <> 0 Then
            Columns(NavnKNr).Interior.ColorIndex = 3
            Rows(NavnRNr).Interior.ColorIndex = 3
        End If
    End If
    Exit Sub
fejl:
End Sub

Hej jkrons >

Benyttede en anden løsning, men er ikke i tvivl om at din løsning virker :

Private Sub Worksheet_SelectionChange(ByVal Target _
As Excel.Range)
    '
    'Nulstiller baggrundsfarve
    '
    Cells.Interior.ColorIndex = xlNone
    Cells.Font.ColorIndex = 1
    '
    'Markerede celles række og kolonne får den farveværdi,
    'som er indtastet i celle A2
    '
    With ActiveCell
       
    Range("D9:T81").Interior.ColorIndex = 1
       
        .EntireRow.Interior.ColorIndex = [A2]
        .EntireRow.Font.ColorIndex = [A3]
        .EntireColumn.Interior.ColorIndex = [A2]
        .EntireColumn.Font.ColorIndex = [A3]
   
    End With

End Sub

Læg venligts et svar

Et svar.