[Excel] Met macro range optellen

[Verwijderd]

In kolom J staan een aantal getalswaarden, de som daarvan moet in J1 komen (die is nu leeg). Ik heb al een functie die de laatste rij opzoekt. In J1 moet dus =SUM(J2:J<laatste_cel>). Hoe krijg ik dit voor elkaar? Het hoeft natuurlijk niet volgens een formule, zolang de uitkomst maar klopt.

Manier om de laatste rij te bepalen:

code:

'Zoek de laatste gevulde cel op in kolom c
    Dim NumberOfRows As Integer
    Dim i As Integer
    
       If Range("C2").Value <> "" Then
        If Range("C3").Value = "" Then
            NumberOfRows = 1
        Else
            Range("C2").End(xlDown).Select
            NumberOfRows = Selection.Cells.Row
        End If
    End If

[F_J_K]

Cells(1, 1).Formula = "=SUM(J2:J" & laatste_cel & ")"
met laatste_cel = numberofrows + 1 _{als ik het goed lees}

[Kappie]

Werkt dit:

code:

Sub tzt()
'Zoek de laatste gevulde cel op in kolom C
Dim NumberOfRows As Integer
Dim i As Integer
  If (Range("C2").Value <> "") And (Range("C3").Value = "") Then
    NumberOfRows = 1
  Else
    Range("C2", Range("C2").End(xlDown)).Select
    NumberOfRows = Selection.Cells.Rows.Count
  End If
End Sub

soms wel?

Edit: Ik lees het weer verkeerd

[ Voor 32% gewijzigd door Kappie op 05-03-2003 10:20 ]

[Verwijderd]

Thnx F_J_K, t werkt

@Kappie: hoe bedoel je? Die code werkt al een tijdje.