kann mir einer helfen die TextBox1 in einer Variable zu ändern, bekomme das nicht hin.
Mein vorgehen ist:
Mit Doppelklick in z.b TB1 starte ich das event "Call mp".
Aber bekomme es nicht hin das im "sub_mp" die Textbox übernimmt, bei der ich das Doppelklick ausgelöst habe.
Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Call mp
TextBox1 = ""
End Sub
Sub mp() 'MainCall zur Dbl Click aktionDim lngZeile As Long
Dim lngLeereZeile As Long
Dim blnGefunden As Boolean
If MultiPage1.Value = 0 Then
ListBox1.AddItem
For lngZeile = 0 To ListBox1.ListCount - 1
If IsNull(ListBox1.List(lngZeile)) Then
lngLeereZeile = lngZeile
blnGefunden = True
Exit For
End If
Next 'lngZeile
If blnGefunden Then
ListBox1.List(lngZeile, 0) = TextBox1.Text ' Else
'MsgBox "Keine Leerzeile in der Listbox"
End If
ElseIf MultiPage1.Value = 1 Then
ListBox2.AddItem
For lngZeile = 0 To ListBox2.ListCount - 1
If IsNull(ListBox2.List(lngZeile)) Then
lngLeereZeile = lngZeile
blnGefunden = True
Exit For
End If
Next 'lngZeile
If blnGefunden Then
ListBox2.List(lngZeile, 0) = TextBox1.Text ' Else 'MsgBox "Keine Leerzeile in der Listbox"
End If
End If
End Sub Danke und Gruß