Datenübernahme aus Listenbox
07.05.2020 19:49:17
Marquardt
ich habe folgendes Problem. Ich möchte aus (userform1) Listbox1 den Wert per Doppelklick in eine andere Userform (meinFormular) TextBox (Filiale) einfügen. Der Wert wird aus das Tabelleblatt ME geholt.
Leider kommt ich nicht einmal zum kopieren.
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
If ListBox1.Value "" Then
Application.Goto Sheets("ME").Range(ListBox1.Value), True
Cells(ActiveCell.Row, 2).Select
Selection.Copy
Unload UserForm1
meinFormular.Show
meinFormular.Filiale.Paste
Application.ScreenUpdating = True
End If
End Sub
Könnt Ihr mal drüberschauen?
Danke.