Range bepalen

[Jemp]

Hoe krijg ik het in VBA voor mekaar om in een worksheet alle gegevens die rechts en onder een refrentiecel (bv C4) staan te wissen.
Dit zonder te weten of er al dan niet gegevens staan in deze zone.

Ik ben dus eigenlijk op zoek naar een formule die de range geeft bepaald door enerzijds "C4" en anderzijds de cel waarvan de kolom bepaald wodt door de meest rechtse kolom die een waarde bevat en de rij door de laatste rij die een waarde bevat in een kolom >= Kolom C

Groetjes
JP

 

[HSV]

Test het eens JP.

Sub hsv()
Dim c4
With Sheets("blad1")
 c4 = .Range("C4").Value
 .Range(.Range("c4"), .Cells(.UsedRange.Rows.Count + 2, .UsedRange.Columns.Count + 2)).ClearContents
 .Range("C4") = c4
End With
End Sub

 

[snb]

Zoek eens in de hulpbestanden van de VBEditor op 'currentregion'.

 

[HSV]

@snb,

Wat als het geen aaneengesloten bereik is ?
Of er boven of links van C4 ook gegevens staan ?

 

[snb]

Dan is de vraag anders dan door de TS in eerste instantie geformuleerd.

 

[Jemp]

Beste Harry

Voorstel doet perfect wat ik zocht.
Het is idd zo dat het te bereik niet noodzakelijk aaneengesloten is.

Groetjes
JP

 

[OctaFish]

Niet echt; hij wil de meest rechtse kolom en de laatste rij waar wat in staat. Hij heeft het nergens over een aaneengesloten bereik.