Aanduiding kolom en rij

[willema]

Als je in een groot werkblad ergens met Ctrl+F een waarde hebt gezocht is het voor mij zoeken welke cel er is aangeduid.
De cel met de gezochte inhoud wordt wat vetter omlijnd en de naam van de rij en van de kolom wordt subtiel iets grijzer.

Soit, het zal wel aan de leeftijd liggen, maar ik zie dat niet ;-)

Is er een mogelijkheid om die subtiele aanduiding wat duidelijker te maken? Gewoon naam van rij en kolom zwart met witte letters of zo.

Ik heb eerder al VBA gevonden om dit probleem te omzeilen, maar graag zonder VBA. Het moet gewoon voor elk document (ook zonder macro's) duidelijker.

 

[AlexCEL]

In het vakje helemaal links van de formules staat de celaanduiding van de cel met inhoud.

 

[emields]

Je zal excel opnieuw moeten uitvinden, vba is nu eenmaal wat een wiel aan een auto is.

 

[roeljongman]

Dat kan vrij eenvoudig met een voorwaardelijke opmaak. (VO) enige nadeel is dat je na CTRL+F ook nog F9 noem drukken om de active cel te laten oplichten.

Ik heb een voorbeeld bestandje gemaakt waarbij alleen de cel wordt opgelicht.
je hebt ook nog oplossingen waarbij de hele rij en kolom oplicht.
zie deze uitleg https://www.launchexcel.com/highlight-active-row-column-excel-7-levels
daarin staan zowel VBA vrije opties als met VBA.

Ik heb in mijn voorbeeld willekeurige cellen een nummer van 1 tm 8 gegeven na het zoeken en dan F9 licht dan de cel groen op.

 

[emields]

vergeet niet dat voor vele merken computer die F9 voor iets anders staat.

 

[willema]

Je zal excel opnieuw moeten uitvinden, vba is nu eenmaal wat een wiel aan een auto is.

Niet akkoord. Ik krijg heel wat xlsx-bestanden toegestuurd zonder VBA.
En ook daar wil ik graag duidelijker zien welke cel er geselecteerd is.

 

[willema]

Dat kan vrij eenvoudig met een voorwaardelijke opmaak. (VO) enige nadeel is dat je na CTRL+F ook nog F9 noem drukken om de active cel te laten oplichten.

Ik heb een voorbeeld bestandje gemaakt waarbij alleen de cel wordt opgelicht.
je hebt ook nog oplossingen waarbij de hele rij en kolom oplicht.
zie deze uitleg https://www.launchexcel.com/highlight-active-row-column-excel-7-levels
daarin staan zowel VBA vrije opties als met VBA.

Ik heb in mijn voorbeeld willekeurige cellen een nummer van 1 tm 8 gegeven na het zoeken en dan F9 licht dan de cel groen op.

Dankjewel roeljongman, dat is een heel slimme workaround.

 

[lam201]

Ik heb ooit deze macro gevonden/geschreven.
Deze laat met een korte animatie je actieve cel zien.
Zet deze in je Personal Macro Workbook, en koppel er een snel toets aan.
Op die manier werkt het altijd, ook in bestanden zonder macro's.

'For 64 Bit Systems
#If VBA7 Then
Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr)
'For 32 Bit Systems
#Else
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#End If
Option Explicit


Sub FindMyCell()
Dim T As Long, i As Long
Dim cell As Range
Dim mySelection As Range

Dim RowOffsetMin As Long
Dim RowOffsetMax As Long
Dim ColOffsetMin As Long
Dim ColOffsetMax As Long

Dim MyRow As Long
Dim mycolumn As Long
Dim RowMax  As Long
Dim ColMax  As Long


On Error GoTo err

Set mySelection = Selection
Set cell = ActiveCell
MyRow = cell.row
mycolumn = cell.Column

RowMax = ActiveSheet.Rows.Count
ColMax = ActiveSheet.Columns.Count

T = 50
For i = 1 To 6
    RowOffsetMin = WorksheetFunction.Max(-cell.row + 1, -6 + i)
    RowOffsetMax = WorksheetFunction.Min(RowMax - MyRow, 6 - i)
    ColOffsetMin = WorksheetFunction.Max(-cell.Column + 1, -6 + i)
    ColOffsetMax = WorksheetFunction.Min(ColMax - mycolumn, 6 - i)
    
    Range(cell.Offset(RowOffsetMin, ColOffsetMin), cell.Offset(RowOffsetMax, ColOffsetMax)).Select
    Sleep (T)
Next i

mySelection.Select
Exit Sub

err:
mySelection.Select
MsgBox "Er ging iets mis", vbCritical
End Sub

 

[willema]

Ik heb ooit deze macro gevonden/geschreven.
Deze laat met een korte animatie je actieve cel zien.
Zet deze in je Personal Macro Workbook, en koppel er een snel toets aan.
Op die manier werkt het altijd, ook in bestanden zonder macro's.

'For 64 Bit Systems
#If VBA7 Then
Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr)
'For 32 Bit Systems
#Else
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#End If
Option Explicit


Sub FindMyCell()
Dim T As Long, i As Long
Dim cell As Range
Dim mySelection As Range

Dim RowOffsetMin As Long
Dim RowOffsetMax As Long
Dim ColOffsetMin As Long
Dim ColOffsetMax As Long

Dim MyRow As Long
Dim mycolumn As Long
Dim RowMax  As Long
Dim ColMax  As Long


On Error GoTo err

Set mySelection = Selection
Set cell = ActiveCell
MyRow = cell.row
mycolumn = cell.Column

RowMax = ActiveSheet.Rows.Count
ColMax = ActiveSheet.Columns.Count

T = 50
For i = 1 To 6
    RowOffsetMin = WorksheetFunction.Max(-cell.row + 1, -6 + i)
    RowOffsetMax = WorksheetFunction.Min(RowMax - MyRow, 6 - i)
    ColOffsetMin = WorksheetFunction.Max(-cell.Column + 1, -6 + i)
    ColOffsetMax = WorksheetFunction.Min(ColMax - mycolumn, 6 - i)
   
    Range(cell.Offset(RowOffsetMin, ColOffsetMin), cell.Offset(RowOffsetMax, ColOffsetMax)).Select
    Sleep (T)
Next i

mySelection.Select
Exit Sub

err:
mySelection.Select
MsgBox "Er ging iets mis", vbCritical
End Sub

Ook een creatieve oplossing en goed dat het ook werkt bij bestanden zonder macro's.

Dat zoveel mensen er workarounds voor verzinnen, toont in elk geval dat het niet alleen een probleem is voor mezelf. Dat de standaard aanduiding echt wel niet goed genoeg is.