Aantal cellen in een Userform

[altosoft]

Hallo excel liefhebbers
Ik zit met een probleempje
Hoe kan ik in een userform het aantal cellen laten zien die een bepaalde waarde heeft.
Bekijk bijlage Test Ledenaantal.xls

 

[gast0660]

Zoiets?

Private Sub UserForm_Initialize()
TextBox1.Value = WorksheetFunction.CountA(Range("C1:C500"))
TextBox2.Value = WorksheetFunction.CountIf(Range("C1:C500"), "Volwassene")
TextBox3.Value = WorksheetFunction.CountIf(Range("C1:C500"), "Jeugd")
End Sub

 

[VenA]

@gast0660, Altijd aardig dat een TS zonder berichtje de vraag op opgelost zet Iets anders geschreven zou ik er zoiets van maken (voor jouw almaar groeiende archief):d

Private Sub UserForm_Initialize()
  With Blad1.Columns(3).SpecialCells(2)
    TextBox1 = .Count
    TextBox2 = Application.CountIf(.Cells, "Volwassene")
    TextBox3 = Application.CountIf(.Cells, "Jeugd")
  End With
End Sub

 

[gast0660]

@Vena
Zit erin

almaar groeiende archief

 

[altosoft]

bedankt voor het meedenken, fijn dat dit via dit forum zo goed werkt.