Brett vorm Kopf :-(---
Userform aufrufen -- in listbox1 Eintrag anklicken und einer Variablen zuordnen - Variable dann in Tabelle1!A13 schreiben. Ich krieg das nicht hin.
Gruß
Schorsch
Private Sub CommandButton1_Click()
Sheets("Tabelle1").Range("A13") = ListBox1.List(ListBox1.ListIndex)
End Sub