Vis tydeligt den celle der er aktiv.

Her er et Link til en kode stump til en VBA løsning!
Indsæt i det ønskede Ark, og ændre evt. farve nummeret til f.eks. 15 (Grå farve), som er lidt mere afdæmpet.  (  Target.Interior.ColorIndex = 8  )
https://msdn.microsoft.com/en-us/library/office/ff820716.aspx

#1
kan ikke få det til at virke, måske du kunne hjælpe med en færdig kode til at kopiere og sætte ind ?

Højreklik på det Faneark som du bruger, vælg "Vis programkode", og indsæt denne kode i vinduet der åbner:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.ScreenUpdating = False
    ' Clear the color of all the cells
    Cells.Interior.ColorIndex = 0
    ' Highlight the active cell
    Target.Interior.ColorIndex = 15
    Application.ScreenUpdating = True
End Sub

Det virker fint, men det sletter så også de farver der eventuelt er brugt i forvejen,

Kan det lade sig gøre at at sætte den oprindelige farve tilbage i cellen som den var før ?.

jada
http://excel.pm/Eksperten/knud.xlsm

kan desværre ikke få det til at virke, kunne du skrive koden til at sætte ind i vis programkode ?

Ved du hvor koden skal sættes ind ?

Du skal i øvrigt blot lukke vba-vindue ned med kryds i øverste højre hjørne
så virker det

Prøv at indsætte denne kode, istedet for den første jeg henviste, på samme måde, hvis ikke du får Excellent's til at virke.
Den laver en farvet ramme omkring din active celle.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Borders.LineStyle = xlNone
Target.BorderAround Weight:=xlThick, ColorIndex:=3
End Sub

#9
Prøver i morgen efter middag og tak for hjælpen indtil til videre

Også tak til #7,8
Men kom ikke en kode jeg kunne se, men advarsel mod macro og ....
Men prøver igen i morgen

Prøv:

1.
Marker A1 --> Formler --> Navnestyrring --> Nyt -->
Navn: AktiveCelleAdresse
Refererer til: =ADRESSE(1;1)
Tryk: OK

2.
Marker hele arket (Tryk på trekanten, over 1 - til venstre for A) -->
Hjem --> Betinget formatering --> Ny regel --> Brug en formel til at bestemme, ...........
Formater værdier, hvor denne formel er sand:
=ADRESSE(RÆKKE(A1);KOLONNE(A1))=AktiveCelleAdresse
Formater:
Skrifttype: Fed og Hvid
Fyld: "En farve"

3.
Kode på: Denne_projektmappe

#12
DEN VAR NOK FOR SVÆR FOR MIG AT FINDE UD AF

#9 Ebea
Den løsning var næsten perfekt til mig og laver det jeg skal bruge  MEN ...

den fjerner nu alle de fremhævede kant linjer jeg har og bruger i mit regneark, i særdeleshed når jeg skal udskrive arket, er det noget du kan rette Ebea (håber)

Tag et trin af gange ;-)

Det er ikke så vanskeligt

#13  -  Prøv med denne kode.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static OldRange As Range
Target.BorderAround Weight:=xlThick, ColorIndex:=3
OldRange.Cells.Borders.LineStyle = xlNone
Set OldRange = Target
End Sub

#15
nu skriver den dette

Run-time error ´91´:

Object variable or With block variable not set

Ja, og selv om jeg retter den fejl, vil der komme et problem med rammer, der fjernes senere ;-)

Du kan godt bruge Excellent's i #5  -  Du skal blot rette linjerne, til at være som nedenstående, for alle 4 linjer (det er ordet "Rektangel 1"), som i Excellents, er på Engelsk:

ActiveSheet.Shapes.Range(Array("Rektangel 1")).Top = ActiveCell.Top

Efterfølgende, kan du tilrette den ramme som omkranser cellen, ved at højreklikke på rammen, og vælge "formater figur".

http://www.filedropper.com/testhigligthactivecell

#17

havde det til at fungere i går i et test ark

men nu skriver den

run time error 1004 emnet med det angivne navn blev ikke fundet

efter jeg har gjort det samme i det rigtige ark


uha hvor er det svært hvad kan jeg nu gøre ??

Brug evt. min private mail du kan se i min profil, så skal jeg sende dig en fil med opsætningen! Evt. send din egen fil.

#20
skrev en PB - kunne ikke se din mail på din profil

Sådan åbner du min projektmappe :

http://excel.pm/Eksperten/Video_eks.wmv

En anden metode (lidt anderledes)

Marker A1:H42
Fanen: Data
Datavalidering
Fanen: Meddelelse

Titel
Meddelelse
(Skriv)

Tryk: OK

Jeg siger tak til alle de der er kommet med forslag til at lave det jeg gerne ville have Excel til at gøre og nu virker det fint.

tak til: ebea -  Excelent -  Store-Morten -