Mittels folgendem Code werden Daten bei Klick in ListBox in Textfelder geschrieben:
Private Sub ListBox1_Click()
Dim lng As Long
lng = frmDatenanzeige.ListBox1.Column(7)
With frmDatenanzeige
.TextBox2.Value = .ListBox1.Column(0, .ListBox1.ListIndex) + 7
.TextBox3.Value = .ListBox1.Column(0, .ListBox1.ListIndex)
.TextBox4.Value = .ListBox1.Column(1, .ListBox1.ListIndex)
.TextBox5.Value = .ListBox1.Column(2, .ListBox1.ListIndex)
.TextBox6.Value = .ListBox1.Column(3, .ListBox1.ListIndex)
.TextBox7.Value = .ListBox1.Column(4, .ListBox1.ListIndex)
.TextBox8.Value = .ListBox1.Column(5, .ListBox1.ListIndex)
End With
End Sub
Nun soll aber anschließend TextBox3 als CDbl(.TextBox3) erkannt werden. Wie muss ich meinen Code abändern, oder was mache ich wieder einmal falsch?Dank im Voraus!!!
Gruß Frank H.!!!