Optellen van waarden in kolom

[etri]

Sansje,

Volgens mij heb je aan 3 regels in Command1_Click() voldoende:

Sub CommandButton1_Click()
    Dim result As Double
    
    result = Application.WorksheetFunction.SumIf(Worksheets("Blad1").Columns(1), TextBox1.Value, Worksheets("Blad1").Columns(16))
    TextBox2 = Format(result, "€ 0.00") '(Controlegetal, In kolomnummer, Nummer op te tellen kolom (Max: 26))
End Sub

In deze code bepaal je via de standaard Excelfunctie SumIf wat de som is voor de waarde in Textbox1 (25 of 26 in jouw voorbeeld) en geef je het resultaat van de voorwaardelijke optelling terug in Textbox2.

Kolom 1 is daarbij de code (25 of 26) en kolom 16 zijn de kosten.

 

[HSV]

Of nog iets korter.

Sub CommandButton1_Click()
 TextBox2 = FormatCurrency(Application.SumIf(Sheets(1).Columns(1), TextBox1.Value, Sheets(1).Columns(16)))
End Sub

 

[etri]

Kan inderdaad nóg korter. Baas boven baas...

 

[Sansje]

Even geen tijd gehad. Ik kom hier straks op terug.