Userform weergave gegevens uit tabel

[CamJacobus]

Ik heb bijgevoegde userform aan de hand van een voorbeeld uit het forum gemaakt. Ik krijg dit helaas niet werkend. Inmiddels heb ik al van alles geprobeerd. Is er iemand die ziet wat er anders moet?

Alvast bedankt voor het meedenken!

 

[E v R]

Staat er een DTPicker op jouw computer?

 

[CamJacobus]

Ja, die staat erop.

 

[E v R]

Dan even aangeven wat er niet werkt, ik heb geen DTPicker, bij mij werkt het dus sowieso niet, wellicht kan iemand anders je dan helpen

 

[CamJacobus]

Ha Eric,

De gegevens van de geselecteerde rij uit de tabel (nummerreferentie uit kolom 8) worden niet in de juiste comboboxen en textboxen weergegeven van de userform. Mijn toelichting was inderdaad wel erg compact Als je met volgende en vorige een ander nummer selecteert, zou daarbij automatisch de juiste bijbehorende gegevens gevuld moeten worden.

Hartelijke groet,
Jaco

 

[CamJacobus]

Om toch nog iets specifieker te zijn denk ik dat er in onderstaande deel van de code iets niet goed gaat.

Private Sub cboNummer_Change()
    Dim myTbl As Excel.ListObject
    Dim cntRow As Long, cntCol As Long
    Dim rngTbl As Range, rngCol As Range
    Dim rng1 As Range, rng2 As Range, rng3 As Range, rng4 As Range, rng5 As Range, rng6 As Range
    Dim i As Integer
'set parameters
    Set myTbl = ActiveSheet.ListObjects("TB_Invoer") 'tabel
    With myTbl
        cntRow = .ListRows.Count
'        cntCol = .ListColumns.Count
'        Set rngTbl = .DataBodyRange 'volledige tabel
        Set rngCol = Range(myTbl & "[Nummer]")
        Set rng1 = Range(myTbl & "[Naam Keyuser]")
        Set rng2 = Range(myTbl & "[Datum van invoer]")
        Set rng3 = Range(myTbl & "[Beschrijving]")
        Set rng4 = Range(myTbl & "[Toelichting / Link]")
        Set rng5 = Range(myTbl & "[Nav tabel / Scherm]")
        Set rng6 = Range(myTbl & "[Soort]")

    End With
'find ColRow
    For i = 1 To cntRow
        If rngCol.Cells(i, 1) = Me.cboNummer.Value Then
            Me.cboKeyuser.Value = rng1.Cells(i, 1)
            Me.DTPicker1.Value = rng2.Cells(i, 1)
            Me.txtBeschrijving.Value = rng3.Cells(i, 1)
            Me.txtToelichting.Value = rng4.Cells(i, 1)
            Me.txtNAVtabel.Value = rng5.Cells(i, 1)
            Me.cboSoort.Value = rng6.Cells(i, 1)
            On Error Resume Next
            Exit For
        End If
    Next i
End Sub

Ik heb al gespeeld met de coördinaten van de cellen, maar daar zit de fout volgens mij niet.

 

[E v R]

 If rngCol.Cells(i, 1) = Me.cboNummer.Value Then

hier vergelijk je een nummer met tekst, geen match dus

dit kun je oplossen door bijvoorbeeld te wijzigen naar:

 If rngCol.Cells(i, 1) = clng(Me.cboNummer.Value) Then

 

[snb]

Als je een range van een werkblad inleest in een listbox of combobox is interaktie met het werkblad niet meer nodig.

 

[CamJacobus]

 If rngCol.Cells(i, 1) = Me.cboNummer.Value Then

hier vergelijk je een nummer met tekst, geen match dus

dit kun je oplossen door bijvoorbeeld te wijzigen naar:

 If rngCol.Cells(i, 1) = clng(Me.cboNummer.Value) Then

Bedankt! Het is gelukt!

 

[CamJacobus]

Als je een range van een werkblad inleest in een listbox of combobox is interaktie met het werkblad niet meer nodig.

Hier moet ik nog even naar kijken om het helemaal te doorgronden. Bedankt voor je input! Ik moet de gegevens uiteindelijk nog wegschrijven op een ander tabblad. Ik kan nu niet zo goed inschatten of dit kan op deze manier. De code ziet er wel lekker overzichtelijk uit.