End Sub
terminate wenn du das userform mit X beendest und das ergebnis willst. ansonsten den code z.b. in den vom ok-button einbauen oder ...
gruss andre
Schau dir mal folgenden Code an. Du brauchst dazu eine Userform mit einer Listbox und einem Commandbutton. Danch weist du den Code der Userform und dem Button zu.
Falls es zu kompliziert wird ich hab da ein Beispiel. WEnn du mir deine Email Addr. gibst schicke ich sie dir.
Ps.: Du musst in den Eigenschaften des Listfeldes die Multiselect Eigenschaft auf True setzen.
Ciao Peter
Private Sub CommandButton1_Click()
Dim Bereich As Range
Dim Eintrag As Variant
Dim Anzahl_Einträge As Integer
Set Datenblatt = Worksheets("Tabelle1")
Set Bereich = Datenblatt.Range("A1:A5")
Set Bereich1 = Datenblatt.Range("B1:B5")
Bereich1.ClearContents
Anzahl_Einträge = ListBox1.ListCount
Zähler_schreiben = 1
For x = 0 To Anzahl_Einträge - 1
If UserForm1.ListBox1.Selected(x) = True Then
Tabelle1.Cells(Zähler_schreiben, 2) = ListBox1.List(x)
Zähler_schreiben = Zähler_schreiben + 1
End If
Next
End Sub
Private Sub UserForm_Activate()
Dim Bereich As Range
Dim Eintrag As Variant
Set Datenblatt = Worksheets("Tabelle1")
Set Bereich = Datenblatt.Range("A1:A5")
Set List = UserForm1.ListBox1
For Each Eintrag In Bereich
List.AddItem Eintrag
Next
End Sub