Hallo,
Ik ben druk bezig om iets te maken voor een wagenparkbeheer.
Nu heb ik vanaf dit forum al veel hulp gehad, dus ik blijf gewoon doorgaan!
Ik heb onderstaande code, alleen krijg ik een fout melding op kolom 9 (zie code!) ( dit is een kolom met de vervaldatum APK per auto. ).
Als ik die regel weghaal, werkt het wel. Wie kan mij helpen?
Ik ben druk bezig om iets te maken voor een wagenparkbeheer.
Nu heb ik vanaf dit forum al veel hulp gehad, dus ik blijf gewoon doorgaan!
Ik heb onderstaande code, alleen krijg ik een fout melding op kolom 9 (zie code!) ( dit is een kolom met de vervaldatum APK per auto. ).
Als ik die regel weghaal, werkt het wel. Wie kan mij helpen?
Code:
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim wn As String
Dim kt As String
Dim km As String
Dim va As String
wn = ListBox1.Column(0)
kt = ListBox1.Column(1)
km = ListBox1.Column(3)
[I][/I][B]va = ListBox1.Column(9)[/B]
UserForm2.Label1.Caption = wn
UserForm2.Label8.Caption = kt
UserForm2.Label10.Caption = km
UserForm2.Label12.Caption = va
Me.Hide
UserForm2.Show
End Sub