AW: Verteilerliste über Checkbox erstellen
18.09.2005 02:24:36
Matthias
Hallo Dennis,
wie wäre es mit einer Listbox in einer Userform?
Option Explicit
Const AdrListeab = "Tabelle1!A1" 'ab hier sind Namen und in Spalte daneben email-adr. gelistet
Private Sub UserForm_Initialize()
Dim z As Range
Set z = Range(AdrListeab)
With ListBox1
.MultiSelect = fmMultiSelectMulti
.ListStyle = fmListStyleOption
.Clear
Do While z.Value <> ""
.AddItem z.Value
Set z = z.Offset(1, 0)
Loop
End With
End Sub
'Klick "OK", "Senden"
Private Sub CommandButton1_Click()
Dim i
Dim adr As String
With ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) Then
adr = Range(Range(AdrListeab), Range(AdrListeab).Offset(.ListCount - 1, 1)).Find(.List(i)).Offset(0, 1)
MsgBox "Sende an " & adr
End If
Next i
End With
End Sub
Gruß Matthias