Er is iets mis in de code

[JosEindhoven]

Ik heb een bestand wat gevuld word uit een map. De map stamkaarten. In de map stamkaarten staan de pdf bestanden gesorteerd op naam . Echter ik krijg ze niet gesorteerd in Lb_01. Wat vergeet ik???

Option Explicit
Const frmWFull As Double = 828
Const frmHFull As Double = 649
Const frmW1 As Double = 225
Const frmH1 As Double = 255

Const frame3P1 As Double = 6
Const frame3P2 As Double = 604
Const frame4P1 As Double = 330
Const frame4P2 As Double = 6
-----------------------------------------------------------------------
Private Sub CommandButton1_Click()
Unload Me
Worksheets("Proeven").Activate
End Sub
-----------------------------------------------------------------------
Private Sub UserForm_Activate()
Me.Top = 20
Collapse_Click
Repaint
End Sub
-----------------------------------------------------------------------
Private Sub UserForm_Initialize()
Dim MyFile As String, MyFolder As String
MyFolder = ThisWorkbook.Path & "\Stamkaarten" & ""
MyFile = Dir(MyFolder & "\*.PDF")
Do While MyFile <> ""
LB_01.AddItem MyFile
MyFile = Dir
Loop
Me.Collapse.Visible = True
Me.Expand.Visible = False
End Sub
-----------------------------------------------------------------------
Private Sub LB_01_Click()
Expand_Click
Repaint
Dim MyFolder As String
With L_01
.Caption = LB_01.Column(0)
.WordWrap = False
If .Width < 564 Then
.Left = (Me.F_04.Width / 2) - (.Width / 2)
Else
.Left = 12
.Width = 564
.WordWrap = True
End If
End With
MyFolder = ThisWorkbook.Path & "\Stamkaarten" & ""
WB_00.Navigate MyFolder & L_01.Caption
Me.Collapse.Visible = True
Me.Expand.Visible = True
End Sub
------------------------------------------------------------------------
Private Sub Collapse_Click()
F_04.Left = frame4P1
F_03.Left = frame3P1
Me.Height = frmH1
Me.Width = frmW1
With Me
.Left = Application.Width - (frmW1 + 40)
End With
Repaint
End Sub
------------------------------------------------------------------------
Private Sub Expand_Click()
F_04.Left = frame4P2
F_03.Left = frame3P2
Me.Height = frmHFull
Me.Width = frmWFull
With Me
.Left = Application.Width - (frmWFull + 40)
End With
Repaint
End Sub

 

[edmoor]

Het eerste dat je vergeten bent is het gebruik van codetags en een voorbeeld documentje.

 

[JosEindhoven]

Het is hetzelfde bestand als Gegevens verwerken gaat fout wat ik op 30-10 geplaatst heb

 

[JosEindhoven]

Dan gaat het om uitslagen bekijken