Nieuwe records vullen d.m.v. formulier

[ArnoldTM1956]

Hallo beste excel specialisten,

Als redelijke excel dummy heb ik in Excel 2010 een excelbestand aangemaakt dat als doel heeft behandelingen te registreren.
De bedoeling is dat het tabblad behandelingen gevuld wordt met gegevens over die behandelingen.

Daarvoor heb ik een formulier gemaakt om de gegevens in te vullen.
Tot zover is het gelukt.

Maar nu over aantal zaken die op het formulier plaatsvinden:

Als ik op het formulier in de keuzelijst met invoervak 'Naam' een naam geselecteerd wordt is het de bedoeling dat in het vak 'ID' de bijbehorende waarde wordt weergegeven. Deze gegevens worden opgehaald van het tabblad Stamblad.

De koppeling van de naam en de ID krijg ik niet voor elkaar.

Ook heb ik geprobeerd het vak 'datum' te dwingen tot correcte datumweergave (zoiets als een invoermasker dat ik uit acces ken). Helaas, ook dit krijg ik niet voor elkaar.

Wie, o wie helpt mij verder ?

Alvast bedankt voor de hulp,
Groeten, Arnold

 

[Timshel]

Probeer deze:

 

[Warme bakkertje]

Private Sub TxtNaam_Change()
    With Sheets("Stamblad")
        fRow = Application.Match(TxtNaam.Value, .Columns(3), 0)
        If Not IsError(fRow) Then TxtPlancareID.Text = .Cells(fRow, 4).Value
    End With
End Sub

Private Sub CommandButton1_Click()
    eRow = Blad4.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row
    Cells(eRow, 2).Resize(, 8).Value = Array(TxtNaam.Text, TxtPlancareID.Text, TxtDatum.Text, TxtRedenInterventie.Text, _
            TxtDirecteTijd.Text, TxtEersteLijn, TxtIndirecteTijd, TxtOmschrijvingIndirecteTijd)
End Sub

 

[ArnoldTM1956]

Probeer deze:

Hallo Timshell,

Bedankt voor je snelle reactie.
Hij is bijna zoals ik het bedoeld heb.
Alleen wordt de lijst met records niet aangevuld met nieuwe records.
Iedere keer als ik iets wil invoeren overschrijft hij het vorige record.

Zou je daar nog eens naar willen kijken ?
Bedankt alvast en een fijn weekend.
Arnold

 

[ExcelAmateur]

Arnold,

Gebruik de code van Warme bakkertje, die doet wat je wil.

 

[Timshel]

Ik heb nog wat aanpassingen gemaakt in het bestand in post# 2. Onder andere het probleem van het overschrijven van records is hiermee opgelost.

 

[ArnoldTM1956]

Beste excel specialisten,

Mijn onuitputtelijke dank voor jullie bijdrage.
Mijn probleem is opgelost.
Mvg,
Arnold