Som bepalen via Excel VBA en deze exporteren naar Access

[crujazz]

Beste,

Via google al een kleine oplossing gevonden voor mijn programma maar ik zit nog met 1 vraag.

Ik heb 2 kolommen met ongeveer 400 regels, en van elk kolom wil de som van laten bepalen, want dat ga ik gebruiken in Access. De 2 kolommen exporteren gaat prima middels de gevonden en toegepaste code echter som-functie wilt maar niet lukken.

Uiteindelijk wil ik dus in mijn Access Tabel zien de sommen van kolom J en K.

Wie kan me sturing geven?

Sub SUMExcelToAccess()
Dim db As Database, rs As Recordset, r As Long
    Set db = OpenDatabase("E:\ProjectTeam.mdb")
    
    Set rs = db.OpenRecordset("TEST")
    Set rng = Range("J" & r)
    
    
    r = 2
    Do While Len(Range("B" & r).Formula) > 0
   
        With rs
            '.AddNew ' create a new record
            '.Fields("columnJ") = Range("J" & r).Value
            '.Fields("columnK") = Range("K" & r).Value
            '.Fields("idtxtVert") = ActiveSheet.Name
            .Fields("columnJ").Value = Application.WorksheetFunction.Sum(rng)
            .Update
        End With
        r = r + 1
    Loop
    rs.Close
    Set rs = Nothing
    db.Close
    Set db = Nothing
End Sub

 

[pixcel]

.Fields("columnJ").Value = Application.WorksheetFunction.Sum(rng)
Rng is hier één cel. Probeer het eens met rng=range("j:j")