Fremhæv aktiv kolonne og række

Hvor meget skal fremhæves?
En enkel celle eller en hel række - og i givet fald hvor mange kolonner?

Den celle jeg står i
f.eks. AC40 så fremhæves række 40 og kolonne AC, Hele kolonne og hele Række.

Måske kan denne makro bruges:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    x = Target.Row
    y = Target.Column
    With Cells.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    With Rows(x).Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
      With Columns(y).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Cells(x, y).Select
   
    End Sub

Eller hvis du blot vil have række og kolonne i fed skrift:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    x = Target.Row
    y = Target.Column
    Cells.Font.Bold = False
    Columns(y).Font.Bold = True
    Rows(x).Font.Bold = True
End Sub

Eller hvis du bare ønsker en formelløsning, så brug følgende formel i Betinget formatering:

=ELLER(CELLE("row")=RÆKKE();CELLE("col")=KOLONNE())

Hvis det skal dække hele rækken og hele kolonnen (hvilket frarådes) så brug i feltet "Gælder for" =$1:$1048576.

Bedre er det at begrænse området til det der faktisk er brug for.

Endnu et eksempel på en VBA-løsning. Leg selv med farvekoderne.

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Cells.Interior.ColorIndex = xlNone
With ActiveCell
.EntireRow.Interior.Color = RGB(219, 229, 241)
.EntireColumn.Interior.Color = RGB(219, 229, 241)
End With
End Sub

Ligesom jens48's kodeeksempler så skal den indsættes i modulet for arket. Dvs. at det kun virker på dette ark. Skal det fungere på andre ark, skal koden også indsættes her.

Hej alle jeg har lige haft en sygedag af de slemme :)
Men jeg kigger forslagene igennem som de er kommet ind.
men tak for de mange muligheder.

Hej xl-enthusiast
Dit forslag med en betinget formatering, er interessant.
Det virker ikke når jeg kopiere det direkte, rækker og kolonner følger ikke med når jeg  bruger piltaster ?
når jeg skriver i en celle, er det først når jeg trykker Enter, så hopper jeg jo til cellen nedenunder og så markereden så den række og kolonne.
meningen var at man skulle kunne overskue på en "stor" skærm, om man er ved at rette noget i en række/ kolonne hvor det høre til.
Hvis det kunne virke og måske bare så det laver teksten i række 3 og 4 Fed, så jeg var sikker på at jeg skrev i den rigtige linje !

https://www.dropbox.com/s/nm6i2yjwj1d4a41/Fremh%C3%A6v.xlsm?dl=0

Hej xl-enthusiast
Jeg måtte over på firmacomputeren fordi mit private er "start Excel" :(
Nå men det er jo lige så noget jeg efterspørg.
Er det en makro eller en "betinget formatering" ?
Jeg kan se regnearket er gemt som "med aktiv Makro" og det fungere ikke mit "start Excel", men jeg tilgengæld heller ikke se nogen makro i makro mappen ? :)

til ex-enthusiast
jeg ved ikke om det fremgik, men jeg kan se dit ark virker, jeg mener også at det har samme formel i "betinget formatering", som du tidligere har foreslået, men det "køre" ikke som i dit ark, ikke når jeg bare kopier det over ?

Se ThisWorkbook. Der er en énlinjes kode som følger:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Sh.Calculate
End Sub

som skal kopieres med til en ny workbook.

https://www.dropbox.com/s/nm6i2yjwj1d4a41/Fremh%C3%A6v.xlsm?dl=0

Så mange tak XL-enthusiast
Hvordan kan du "kun" være Praktikant :)

Hej xl-enthusiast
Din løsning har virket.
betinget formatering + lille makro i ark ----->
    Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
          Sh.Calculate
End Sub
som skal kopieres med til en ny workbook.

Jeg havde lagt den I "Denne projektmappe" skulle jeg have lagt på vær enkelt ark ?

Problemet er at jeg fik bøvl med at specifik min kopi og klip genveje i det regneark, og det forsvandt først da jeg slettede din lille makro :)

Kan du hjælpe med hvad jeg har gjort galt ?

Som vist i den fil jeg linkede til skal koden være i ThisWorkbook.

Umiddelbart kan jeg ikke gøre mere, men du kan eventuelt sende din fil via en personlig besked, så kigger jeg på det.

Du har formentlig en engelsk version
Siden du skriver ThisWorkbook
udover det er den eneste forskel på dit og mit VBA, at har teksten :
Option Explicit
øverst på alle dine ark inkl. på ThisWorkbook
Kan det have nogen betydning, og hvis ja, hvad skal jeg skrive på dansk ?

Hej Xl-Enthusiast

I dit ark på dit Link virker Ctrl + C ovs... jo heller ikke :-)

Hvad kan der være i din Makro som blokere de tastaturgenveje ?

Det er en uundgåelig konsekvens af koden.
Måske du kan bruge et af de andre forslag.

Hej alle
I denne tråd vil jeg anbefale #6
de øvrige jeg har testet har givet mig bøvl med ctrl + genvejstaterne i regnearket.