Private Sub ListeFüllen(ByRef Eingabe As UserForm1)
Dim i As Integer
With ActiveDocument.MailMerge.DataSource
.ActiveRecord = wdFirstRecord
For i = 1 To .RecordCount
TestAdder Eingabe.ListBox1, .DataFields("BL")
.ActiveRecord = wdNextRecord
Next i
End With
End Sub
Private Sub TestAdder(ByRef LB As ListBox, ByVal BT As String)
If Not findeElement(LB, BT) Then
LB.AddItem BT
End If
End Sub
Public Sub Anzeigen()
Dim i As Integer
Dim Betreuerliste As String
With Me.ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) Then
If Betreuerliste <> "" Then
Betreuerliste = Betreuerliste & ","
End If
Betreuerliste = Betreuerliste & "'" & .List(i) & "'"
End If
Next i
End With
ActiveDocument.MailMerge.DataSource.QueryString = "SELECT * FROM `Tabelle1$` WHERE `BL` in (" & Betreuerliste & ")"
End Sub