Niet aaneengesloten bereiken selecteren in Excel

Status
Niet open voor verdere reacties.
A

annetiti

Gebruiker
Lid geworden
6 aug 2007
Berichten
195
Dag

Kan iemand mij helpen met een macro om niet aaneengesloten bereiken te selecteren?
In bijlage een voorbeeld.
Wanneer ik een cel selecteer vb b10 dan zou via een macro het bereik van B10 tem de laatste cel geselecteerd worden maw het niet aan één gesloten bereik. ctrl + pijltje naar beneden stopt bij een lege cel.

nu typ ik in het adresbal B10:Bxx waar xx de laatste rij in van de lijst.

bedoeling is dat de actieve cel geldt als bereik1 maw ongeacht in welke kolom je staat en bereik2 de laatste cel is in de volledige data.

Heb wat zitten knoeien...

Alvast bedankt om me te willen helpen.
groetjes
Anne
 

Bijlagen

  • vraag macro.xlsx
    18,1 KB · Weergaven: 46
Snap de bedoeling niet precies. Maargoed, hier 2 opties

Code: 
Sub j()
Sheets(1).UsedRange.Columns(ActiveCell.Column).Offset(ActiveCell.Row - 1).Resize(Cells(Rows.Count, 1).End(xlUp).Row - ActiveCell.Row + 1).Select
End Sub

Code: 
Sub j2()
jv = Sheets(1).UsedRange
Sheets(1).Range(Cells(ActiveCell.Row, ActiveCell.Column), Cells(UBound(jv), ActiveCell.Column)).Select
End Sub
 
Code: 
Sub VenA()
  Cells(1).CurrentRegion.Columns(ActiveCell.Column).Select
End Sub
 
Dan wordt wel de gehele kolom geselecteerd
 
Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Target.Resize(UsedRange.Rows.Count - Target.Row + 1).Select
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan