Grüß euch,
ich habe ein Excel Dokument in denen Kundendaten eingetragen sind. Unter anderem gibt es dort ein Feld namens "Fällig am", in welchem das genau Datum (tt.mm.jjj) einer fälligen Zahlung eingetragen ist. Nun will ich in Word aber jene Adressen im Serienbrief haben, bei denen im gewünschten Jahr (z.B 2018) eine Zahlung fällig ist, also alle Adressen die 2018 eine Zahlung leisten müssen. Da ich dass nicht über die Filterfunktion in Word machen will, soll beim Start der Wordvorlage ein Feld erscheinen, indem man das zu filternde Jahr eingeben soll.
Ich habe einen ähnlichen Code gefunden mit den man den Namen filtern kann und ihn bearbeitet, aber ich denke ich habe mit "findrecord" den falschen Befehl. Kann mir jemand weiterhelfen?
Sub document_new()
Dim adressat As String
adressat = InputBox("Bitte zu filterndes Jahr angeben")
With ActiveDocument.MailMerge.DataSource
.ActiveRecord = wdFirstRecord
If .FindRecord(findtext:=adressat, Field:="Fällig_am") = False Then
MsgBox "In diesem Jahr sind keine Zahlungen fällig"
End If
End With
End Sub
Vielen Dank schonmal und liebe Grüße,
Dominic
|