UserForm merfach Listbox per mausklick für TexBox
21.02.2009 11:13:10
Schmidt
ich bin neu hier, Heise Robert und fange gerade an mich mit Excel VBA auseinander zu setzen (Anfänger)
Meine Frage:
Übernahme per Mausklick in UserForm - mehrspaltige Listbox in txb1>Spalte1, in txb2>Spalte2,
txb3>Spalte3?
So sieht meine code zu zeit aus , doch leider funktioniert es nicht so richtig
Private Sub lbx1_Click()
Dim intEintrag As Integer
With UserForm3
intEintrag = .lbx1.ListIndex
.txbTyp.Value = .lbx1.Column(intEintrag, 1)
.txbPrEin.Value = .lbx1.Column(intEintrag, 2)
.txbPr.Value = .lbx1.Column(intEintrag, 3)
End With
End Sub
Wenn es euch nichts ausmacht, bitte um Kommentierung einzelnen Befehlen.
Danke im voraus
Robert
Anzeige