• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Opgelost actuele cel highlighten

Dit topic is als opgelost gemarkeerd
Status
Niet open voor verdere reacties.

Angela69

Gebruiker
Lid geworden
9 mrt 2017
Berichten
419
Besturingssysteem
Windows
Office versie
365
Hallo,
Is er een manier om de cel die actueel is op te laten vallen door daar een kleur of omlijning aan te geven?
 
Zet dit achter het betreffende werkblad.
Het moet wel een xlsm of xlsb bestandje zijn, dus opgeslagen als.


Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Static PreviousCell As Range ' Houd de vorige cel bij
   
    ' Zet de vorige cel terug naar standaardkleur (indien van toepassing)
    If Not PreviousCell Is Nothing Then
        PreviousCell.Interior.ColorIndex = xlNone
    End If
   
    ' Geef de huidige geselecteerde cel een kleur
    Target.Interior.Color = RGB(255, 255, 0) ' Geel
   
    ' Sla de huidige geselecteerde cel op als de vorige cel
    Set PreviousCell = Target
End Sub
 
Laatst bewerkt:
Zet dit achter het betreffende werkblad.
Het moet wel een xlsm of xlsb bestandje zijn, dus opgeslagen als.


Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Static PreviousCell As Range ' Houd de vorige cel bij
  
    ' Zet de vorige cel terug naar standaardkleur (indien van toepassing)
    If Not PreviousCell Is Nothing Then
        PreviousCell.Interior.ColorIndex = xlNone
    End If
  
    ' Geef de huidige geselecteerde cel een kleur
    Target.Interior.Color = RGB(255, 255, 0) ' Geel
  
    ' Sla de huidige geselecteerde cel op als de vorige cel
    Set PreviousCell = Target
End Sub
 
Hartelijk dank,
Heb het in een module geplaatst in de file: test.xlsm maar er verandert niets,
ik zou willen dat de cel zwart wordt met witte tekst, wat doe ik niet goed?
 

Bijlagen

Wat jverkerk al zei, die moet achter het betreffende werkblad, niet in een module.
 
Kan je hier iets mee?
 

Bijlagen

  • FocusCel.png
    FocusCel.png
    19,4 KB · Weergaven: 19
Zoiets?
Deze is voor het gehele workbook
 

Bijlagen

ow oké, en hoe doe ik dat?
Kan je hier iets mee?
Jazeker, maar in mijn sheet staat focus enz. in het grijs, dus niet te kiezen. Waarschijnlijk omdat het zich in een tabel bevindt
 
Zie het test document in #8.
 
Dubbelklik links bovenin de VBA editor op ThisWorkbook:

Workbook.png
 
Ja ik ben een dom blondje ,maar waar vind ik:

Dubbelklik links bovenin de VB editor op ThisWorkbook:
 
Druk op de toetscombinatie ALT-F11 om in de VBA editor te komen.
 
Klik eens in het menu op Beeld en dan Projectverkenner.

P.S.
Vreemd dat je dan eerder wel iets in een Module hebt geplaatst.
 
Klik eens in het menu op Beeld en dan Projectverkenner.

P.S.
Vreemd dat je dan eerder wel iets in een Module hebt geplaatst.
P.S.
dat heb ik ook eerder gedaan, maar er wordt expliciet over ACHTER het werkblad plaatsen gesproken, maar zo te zien kom ik toch weer op hetzelfde uit, in een module dus.
 
Wat is er niet duidelijk aan Dubbelklik links bovenin de VBA editor op ThisWorkbook?
Zie plaatje in #13.
 
P.S.
dat heb ik ook eerder gedaan, maar er wordt expliciet over ACHTER het werkblad plaatsen gesproken, maar zo te zien kom ik toch weer op hetzelfde uit, in een module dus.
Kijk zover ben ik nu, maar er gebeurt nog steeds niets


1732188844250.png
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan