Mehrere Textboxen per Doppelklick ind. füllen
01.03.2018 09:28:24
Christian
vielleicht kann mir hier jemand helfen.
Ich habe eine Form, die ich in der Tabelle aufrufe.
In dieser Form sind etwa 100 TextBoxen die für eine Schichtbelegung genutzt werden.
Diese TextBoxen werden mit Werten aus einer Excel Tabelle gefüllt.
Das funktioniert auch prima.
Nun wollte ich in diese TextBox eine weitere Zeile hinzufügen per Doppelklick. Sobald ich im Vorfeld ein Item einer Listbox ausgewählt habe.
Auf einer TextBox funktioniert dies auch per:
Private Sub TextBox4_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim lngIndex As Long
With ListBox1
For lngIndex = 0 To .ListCount - 1
If .Selected(lngIndex) Then
TextBox4.Text = TextBox4.Text + Chr(10) & .list(lngIndex)
End If
Next
End With
End Sub
Das müsste ich aber dann in allen 100 TextBoxen Ereignissen reinschreiben, so wollte es gern per Modul machen.
Kann mir jemand helfen wie ich abfragen kann, welche TextBox geklickt wurde um dann das Modul auszulösen?
Danke.
Gruß
Christian