Opgelost Formule in Userform

[JanBG]

Hallo,

Ik wil een formule waarin de leeftijd van een persoon wordt berekend in een Userform plaatsen: (=TODAY()-Geboortedatum). Geboortedatum staat in kolom C.

Krijg het niet voor elkaar.

Iemand een suggestie?

Bij voorbaat Dank

 

[edmoor]

Zonder dat je een voorbeeld plaatst, zoiets:

MsgBox Format(Date - Range("C1"), "YY")

 

[JanBG]

Hallo,

Dat is niet wat ik bedoel.

Private Sub CommandButton3_Click()
With Sheets("Blad1")
If OB_01.Value = True Then TB_04.Text = "Man"
If OB_02.Value = True Then TB_04.Text = "Vrouw"


        iRow = .Cells.Find(What:="*", SearchOrder:=xlRows, SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1
        .Cells(iRow, 1).Resize(, 5).Value = Array(TB_02.Value, TB_01.Value, CDate(TB_03.Value), _
        , TB_05.Value, TB_04.Value)
End With
Columns("B:B").Select
    ActiveWorkbook.Worksheets("Blad1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Blad1").Sort.SortFields.Add2 Key:=Range("B1:B206") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Blad1").Sort
        .SetRange Range("A2:I206")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
Unload Me
End Sub

 

[AHulpje]

Dan moet je natuurlijk wel het goede voorbeeld met het formulier plaatsen.

 

[JanBG]

Nog maar een keer dan

 

[edmoor]

En waar is dan je Userform waar je het in je start post over hebt?

 

[AD1957]

Maak gebruik van een dynamische tabel.
TB_04 en TB_05 zijn niet nodig.

Private Sub CommandButton3_Click()
With Sheets("Blad1").ListObjects(1)
 .ListRows.Add.Range.Resize(, 5) = Array(TB_02, TB_01, CDate(TB_03), "=(TODAY()-RC[-1])/365.25", IIf(OB_01, OB_01.Caption, OB_02.Caption))
 .Range.Sort .Range.Cells(1, 2), , , , , , , xlYes
End With

Unload Me
End Sub

 

[snb]

Je doet maar bar weinig met aangedragen suggesties:

Opgelost - Verwerking USERFORM gaat niet goed

Hallo, Ik heb een Userform waarin een aantal persoonsgegevens ingevoerd kunnen worden. Bij het verwerken wordt de waarde uit TB_04 niet weggeschreven in kolom 5, wat wel de bedoeling is. Ik zie kennelijk wat over het hoofd. Iemand die het wel ziet? Private Sub CommandButton3_Click() With...

www.helpmij.nl

 

[AHulpje]

Beetje opgeknapt:

 

[emields]

je kan het natuurlijk ook zo doen.