vraag voor formule vba

[matthijsdekker]

Hallo,

Ik heb een vraag over VBA
ik ben bezig om een tabel te maken in excel en nu heb ik de volgende formule gekregen om dingen voor elkaar te krijgen in 1 cell. Nu is de vraag hoe krijg ik dit voor elkaar met meerdere cellen zonder de hele formule steeds opnieuw over te moeten kopieren.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Len(Range("A1").Value) = 0 Then Range("A1").Value = "Lengte"
End Sub

Deze geld voor cel A1

nu wil ik bijvoorbeeld dat dit gebeurt in de cellen
A1:A5 en A7:A12

alvast bedankt

 

[wampier]

Een kleine aanpassing:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set lengtecellen = Union(ActiveSheet.Range("a1:a5"), ActiveSheet.Range("a7:a12"))
For Each cell In lengtecellen
    If Len(cell.Value) = 0 Then cell.Value = "lengte"
Next cell
End Sub

 

[matthijsdekker]

helemaal gelukt bedankt voor het snelle antwoord!!