celreferenties kloppen niet

[pvanbrakel]

Onderstaande code gebruik ik om de kolom te selecteren welke kolom de heading weight heeft; in deze kolom (variabel van lengte) moet hij uiteindelijk een formule invoegen op de eerste lege cel (zie gele vak in bijlage)
Het eerste stuk werkt, alleen het tweede stuk niet (stuk wat rood is).
Verwijzingen heten nu weight en in het document heb ik andere headers maar het princpe blijft hetzelfde.

Sub Zwaartepunten()
ActiveSheet.Select
Set Weight = Range("A1:Z1").Find("Weight", LookIn:=xlValues, lookat:=xlWhole)
    If Weight Is Nothing Then
        MsgBox "Kan Weight niet vinden"
        Exit Sub
    End If
[COLOR="red"]Regel = Cells("65536", "Weight").End(xlUp).Row
Cells("Regel+1", "Weight").Formula[/COLOR]
End Sub

Kan iemand dit voor mij oplossen?

 

[HSV]

Zoiets?

Sub Zwaartepunten()
Dim c, regel
 Set c = Range("A1:Z1").Find("Weight", LookIn:=xlValues, lookat:=xlWhole)
   If c Is Nothing Then
        MsgBox "Kan Weight niet vinden"
        Exit Sub
    End If
    c = c.Column
   regel = Cells(Cells(Rows.Count, c).End(xlUp).Row + 1, c).Address
 Range(regel).FormulaR1C1 = "=SUM(R[-9]C:R[-1]C)"
End Sub

 

[pvanbrakel]

Sub Zwaartepunten()
Dim c, regel
 Set c = Range("A1:Z1").Find("Weight", LookIn:=xlValues, lookat:=xlWhole)
   If c Is Nothing Then
        MsgBox "Kan Weight niet vinden"
        Exit Sub
    End If
    c = c.Column
   regel = Cells(Cells(Rows.Count, c).End(xlUp).Row + 1, c).Address
[COLOR="red"]Range(regel).Formula =  "=(SUM(INDIRECT((ADDRESS(2,COLUMN())&":"&ADDRESS(ROW()-1,COLUMN()))))"[/COLOR]
End Sub

Ik krijg nu een error:
Compile error: Syntax error

 

[HSV]

Een paar extra quotes.

&"[COLOR="red"]"[/COLOR]:"[COLOR="red"]"[/COLOR]&

PS. En haal het eerste haakje weg "=(SUM → "=SUM

 

[pvanbrakel]

Sub Zwaartepunten()
Dim weight, COGZ, COGX, COGY, regel, regel2, regel3, regel4
 Set weight = Range("A1:Z1").Find("Weight", LookIn:=xlValues, lookat:=xlWhole)
   If weight Is Nothing Then
        MsgBox "Kan kolom Weight niet vinden"
        Exit Sub
    End If
    weight = weight.Column
   regel = Cells(Cells(Rows.Count, weight).End(xlUp).Row + 1, weight).Address
 'Range(regel1).Formula =""
Range(regel1).Select
    With Selection.Interior
        .ColorIndex = 6
        .Pattern = xlSolid
    End With
Dim COGZ, regel2
 Set COGZ = Range("A1:Z1").Find("COGZ", LookIn:=xlValues, lookat:=xlWhole)
   If COGZ Is Nothing Then
        MsgBox "Kan kolom COGZ niet vinden"
        Exit Sub
    End If
    COGZ = COGZ.Column
   regel2 = Cells(Cells(Rows.Count, COGZ).End(xlUp).Row + 1, COGZ).Address
 'Range(regel2).Formula =""
Range(regel2).Select
    With Selection.Interior
        .ColorIndex = 6
        .Pattern = xlSolid
    End With
Dim COGX, regel3
 Set COGX = Range("A1:Z1").Find("COGX", LookIn:=xlValues, lookat:=xlWhole)
   If COGX Is Nothing Then
        MsgBox "Kan kolom COGX niet vinden"
        Exit Sub
    End If
    COGX = COGX.Column
   regel3 = Cells(Cells(Rows.Count, COGX).End(xlUp).Row + 1, COGX).Address
 'Range(regel3).Formula =""
Range(regel3).Select
    With Selection.Interior
        .ColorIndex = 6
        .Pattern = xlSolid
    End With
Dim COGY, regel4
 Set COGY = Range("A1:Z1").Find("COGY", LookIn:=xlValues, lookat:=xlWhole)
   If COGY Is Nothing Then
        MsgBox "Kan kolom COGY niet vinden"
        Exit Sub
    End If
    COGY = COGY.Column
   regel4 = Cells(Cells(Rows.Count, COGX).End(xlUp).Row + 1, COGX).Address
 'Range(regel4).Formula =
Range(regel4).Select
    With Selection.Interior
        .ColorIndex = 6
        .Pattern = xlSolid
    End With
End Sub

nou dit is dan de code geworden, die formules vul ik morgen of in januari wel in.
De code is in ieder geval kloppend nu.