Ændre udseende af cursor og vise tydeligere, hvilken linie jeg er på

Vil du hurtigt finde den celle der er aktiv, ved at scroller hutigt lodret eller vandret?

Klik på celle A1.
Lige oven over er der et felt  'Boksens navn'  hvor i der står A1.
Prøv så at scroller hutigt ned og til højre, og klik på en celle.
F.eks celle AU85 scrol hutigt op og til venstre, i feltet  'Boksens navn'  står der nu AU85,
klik på feltet 'Boksens navn'  og tryk Enter/Retur.
Vupti... Den aktive celle kommer til syne nederst til højre i arket ;-)

Prøv også (F.eks i et test-regneark, Farv aktiv række):

Det jeg mener er: når jeg scroller nedad f.eks, er hele rækken blevet gul og kolonnen ligeledes. Min øjne hviler på kolonne x eller y, samtidig med at jeg skal tjekke kolonne b. Det betyder, at mine øjne kører frem og tilbage med mulighed for at ramme den forkerte række. Som det er nu, bliver den aktive celle indrammet af en gennemsigtig streg og rækkenumeret helt ude til venstre bliver gul og ligeledes kolonne bogstavet i toppen.
Det ligner din din løsning, jeg prøver...

mvh johnny

Store-Morten

Jeg har lige prøvet at sætte dine linier ind. Jeg er ikke klar over hvor, jeg skal gøre det. Skal jeg gøre det i This workbook eller hvor? Mine ark hedder "Valby" og "Vanløse"

mvh Johnny

Ups... der manglede noget.

Hele koden:


Kopier koden.
I Excel:
Højre klip på "Ark1" og vælg 'Vis programkode'
Indsæt koden med Ctrl+v
Luk på det røde kryds

Jeg får det til at virke i this workbook på ark 1 (Valby), men rækkerne bliver grønne, efterhånden som jeg scroller, de slukker ikke, når jeg er scrollet forbi.
mvh Johnny

Test i et tomt regneark, først ;-)

Manglede:
Dim adr As String
Dim farve

Bemærk:
Hvis du har celle farve i forvejen, bliver disse fjernet?

Send et svar det virker, tak. Ja, de farvede felter fosvinder, men jeg tror ikke, at det umiddelbart vil være et problem. Jeg prøver din løsning :-)

mvh Johnny

Et 'Svar' og velbekomme.

Tak for hjælpen, jeg vil nu prøve, om der også kan komme farve i den kolonne jeg er i. Bliver sikkert nødt til at spørge dign igen :-)

mvh Johnny

Jeg kunne sgu'. Undskyld sproget...
Jeg har nu farve på både den kolonne jeg er i og den række jeg er på:

Dim adr As String
Dim adr1 As Variant

Dim farve

Private Sub Worksheet_SelectionChange(ByVal Target As Range)


If adr1 <> "" Then Columns(adr1).Interior.ColorIndex = xlNone
If adr <> "" Then Rows(adr).Interior.ColorIndex = xlNone
farve = Target.Interior.ColorIndex

Rows(Target.Row).Interior.ColorIndex = 35
adr = Target.Row
Columns(Target.Column).Interior.ColorIndex = 35
adr1 = Target.Column
End Sub


Lidt pilleri og wupti, det havde jeg ikke troet.
mvh Johnny

Måske du også kunne hjælpe mig !!

Ville bare gerne have en kode der farver den celle jeg står i, altså cellen der er aktiv i mit regneark.

Farven der er i ovenstående er helt ok

Håber du kan hjælpe mig er nybegynder i Exel regneark

Hilsen KNud