geselecteerde cellen in kolom offset

[Samsung6713]

Goedemiddag,

Hoe kan ik van een willekeurige selectie in excel de rijnummers krijgen?

Deze heb ik nodig zodat ik een code kan laten uitvoeren die iets aanpast op de eerste kolom van een tabel op dezelfde regels als de selectie.

Sub verwerkt1()

    Selection.EntireRow.Cells(1).Interior.ColorIndex = 43
    
    
End Sub

Zoiets, maar nu word alleen de eerste cel aangepast

Ziet er misschien stom uit, maar de gebruiker mag niet in de eerste kolom komen om iets aan te passen.

 

[sylvester-ponte]

plaats gerust een voorbeeld excel bestand

 

[AD1957]

zo?

For Each cl In Selection
cl.Offset(,-1).Interior.ColorIndex = 43
Next cl

 

[VenA]

Selection.Columns(1).Interior.ColorIndex = 43

 

[Samsung6713]

Zie bijlage,
als er ergens op de tabel iets geselecteerd word moet voor iedere geselecteerde regel de eerste cel in de rij groen worden.

met

Selection.Columns(1).Interior.ColorIndex = 43

word de huidige selectie groen

met

  For Each cl In Selection
cl.Offset(, -1).Interior.ColorIndex = 43
Next cl

worden de huidige kolom naast de huidige selectie groen.

 

[VenA]

Hoe selecteer je de handel dan? Een aangesloten blok aan rijen, losse cellen, wat als de selectie binnen en buiten de tabel valt?

 

[Samsung6713]

Selectie valt altijd binnen tabel, de rest van het blad is verborgen.

In principe altijd een aan één gesloten rij van cellen.

 

[VenA]

In principe is niet eenduidig voor VBA

 For Each cl In Selection
      Cells(cl.Row, 2).Interior.ColorIndex = 43
    Next cl

 

[sylvester-ponte]

bedoel je zo iets?

 

[Samsung6713]

@Sylvester

Ja, alleen niet via een selectionchange, maar met een button die de macro uitvoert.
De cellen moeten dan gekleurd blijven.

 

[VenA]

En dat staat dan weer in #8

 

[sylvester-ponte]

deze,
ps, en met welk signaal moeten de cellen weer ontkleuren?

 

[Samsung6713]

Bedankt weer!

Met beide oplossingen ben ik geholpen.