Hallo,
Du proggst etwas unsauber, probiers nochmal so:
Option Explicit
Private Sub CommandButton1_Click()
'Meine Userform heißt Personhinzufügen
Dim strPerson As String, strName As String
If ListBox1.ListIndex > -1 Then
strName = TextBox1.Value
strPerson = ListBox1.Value
Cells(2, 2).Value = strPerson & " " & strName
Else
Call MsgBox("Sie müssen einen Wert in der Listbox auswählen...", vbExclamation)
End If
End Sub
....Wenn Du mehrere Werte hast, gehts mit nem Arrray oder Du mußt joinen, aber ohne Bsp.-mappe wird das nix mehr, die Mappe soll nur Dummy-Daten enthalten, nicht die Orginalen, und nat. die UserForm, die Mühe mußt Du Dir schon machen, wenn Du weitere Hilfe benötigst...
Gruß,
|