1
Excel / Re: Bestand voor genealogie
« Laatste bericht door Genealoog100 Gepost op Vandaag om 07:32:11 »@Della
Of
@ iemand...
Doe ik hier iets fout Della?
0 pt;0 pt;40 pt;20 pt;65 pt;65 pt;0 pt;0 pt;0 pt;0 pt;45 pt;20 pt;40 pt
Dit is voor de postcode en plaat bij te voegen in LB03
Hier heb ik niks aan verandert...
Misschien ligt het hier aan..
Ik krijg nu tot aan datum in de listbox..
0 pt;0 pt;40 pt;20 pt;65 pt;65 pt;0 pt;0 pt;0 pt;0 pt;45
de laatste twee worden niet opgenomen.
Once again
Bedankt al bij voorhand
Of
@ iemand...
Doe ik hier iets fout Della?
0 pt;0 pt;40 pt;20 pt;65 pt;65 pt;0 pt;0 pt;0 pt;0 pt;45 pt;20 pt;40 pt
Dit is voor de postcode en plaat bij te voegen in LB03
Hier heb ik niks aan verandert...
Misschien ligt het hier aan..
Code: [Selecteer]
Private Sub LB03_Click()
For i = 0 To 9
Me("T_0" & i) = LB03.Column(i)
Next
For i = 10 To 20
Me("T_" & i) = LB03.Column(i)
Next
T_24 = LB03.Column(21)
T_25 = LB03.Column(22)
T_26 = LB03.Column(23)
T_27 = LB03.Column(24)
T_28 = LB03.Column(25)
T_29 = LB03.Column(26)
T_30 = LB03.Column(27)
T_31 = LB03.Column(28)
T_32 = LB03.Column(29)
T_33 = LB03.Column(30)
T_34 = LB03.Column(31)
T_35 = LB03.Column(32)
LB02.ListIndex = -1
On Error Resume Next
Img00.Picture = LoadPicture(ThisWorkbook.Path & "\plaatjes\" & T_20.Value)
End Sub
Ik krijg nu tot aan datum in de listbox..
0 pt;0 pt;40 pt;20 pt;65 pt;65 pt;0 pt;0 pt;0 pt;0 pt;45
de laatste twee worden niet opgenomen.
Once again
Bedankt al bij voorhand