mehrspaltiger ListBox-Eintrag in TextBox von anderer UF übertragen
04.12.2019 17:27:24
anderer
Dieses Thema wurde schon sehr oft angesprochen und ich habe auch verschiedene Lösungen ausprobiert. Ich bin aber zu meiner Situation noch zu keinen Erfolg gekommen.
Ich öffne auf der UF frm_Tag über einen Button "Suche" eine weitere UF "frm_Suche", bei der ich nach Einträgen suchen möchte. Nach gefunden Eintrag in der ListBox "lst_Zieladresse" in UF "frm_Suche", die 3 Spalten hat, möchte ich per Doppelklick gewählten Eintrag in die UF "frm_Tag" in die TextBox "txt_Zieladresse" übertragen, und zwar alle 3 Spalten von lst_Zieladresse.
Hier habe ich eine einfache Lösung im Netz gefunden.
Private Sub lst_Zieladresse_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
With frm_Tag
.txt_Zieladresse.Text = lst_Zieladresse.List(lst_Zieladresse.ListIndex, 0)
End With
End Sub
Ich bekomme aber die Fehlermeldung '381' wegen ungültigen Index der List-Eigenschaft.
Auch die kompliziertere Lösung
Private Sub lst_Zieladresse_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim intX, intY As Integer
Dim ctlTxt As control
Set ctlTxt = frm_Tag.txt_Zieladresse
intX = 0
With lst_Zieladresse
intY = .ListIndex
For Each ctlTxt In frm_Tag.Controls
If TypeName(ctlTxt) = "TextBox" Then
If intX = 6 Then Exit For
ctlTxt.Text = .Column(intX, intY)
intX = intX + 1
End If
Next
End With
End Sub
zeigt mir die selbe Fehlermeldung.
Hat jemand eine funktionierende Lösung?
Vielen Dank
LG
Peer