Hallo zusammen,
ein Seriendruck bzw die Vorlage dazu öffne ich über ein Excel Workbook. Dabei stellt die Worddatei beim öffnen mittels VBA direkt die Verbindung zu der Datenbank her und filtert die Datensätze nach einem Status aus (In Diskussion). Das funktioniert soweit auch alles prima.
Jetzt würde ich gerne direkt beim Start alle Datensätze filtern und nur die Anzeigen, die für den aktuell angemeldeten Benutzer bestimmt sind. In Sharepoint kann ich mit der Anweisung [Me] auch
nur Datensätze anzeigen die für den angemeldeten Windowsbenutzer interessant sind. Geht sowas auch mit VBA? Bzw wie kann ich den Filter so setzen, das er nur nach
angemeldeten User filtert. Manuel geht es ja auch....
Im Endeffekt lässt sich die Frage herunterbrechen auf: Wie lese ich den angemeldeten Benutzer aus und setze nach ihm den Filter innerhalb VBA bzw. MailMerge?
Hier soweit mein Code:
ein Seriendruck bzw die Vorlage dazu öffne ich über ein Excel Workbook. Dabei stellt die Worddatei beim öffnen mittels VBA direkt die Verbindung zu der Datenbank her und filtert die Datensätze nach einem Status aus (In Diskussion). Das funktioniert soweit auch alles prima.
Jetzt würde ich gerne direkt beim Start alle Datensätze filtern und nur die Anzeigen, die für den aktuell angemeldeten Benutzer bestimmt sind. In Sharepoint kann ich mit der Anweisung [Me] auch
nur Datensätze anzeigen die für den angemeldeten Windowsbenutzer interessant sind. Geht sowas auch mit VBA? Bzw wie kann ich den Filter so setzen, das er nur nach
angemeldeten User filtert. Manuel geht es ja auch....
Im Endeffekt lässt sich die Frage herunterbrechen auf: Wie lese ich den angemeldeten Benutzer aus und setze nach ihm den Filter innerhalb VBA bzw. MailMerge?
Hier soweit mein Code:
Quellcode
- Sub AutoOpen()
- ActiveDocument.MailMerge.MainDocumentType = wdFormLetters
- ActiveDocument.MailMerge.OpenDataSource Name:= _
- "C:\xxxx\yyyyy\zzzzz\Arbeitspakete.xlsm" _
- , ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
- AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
- WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _
- Format:=wdOpenFormatAuto, Connection:= _
- "Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=C:\xxxx\yyyyy\zzzzz\Arbeitspakete.xlsm;Mode=Read;Extended Properties=""HDR=YES;IMEX=1;"";Jet OLEDB:System datab" _
- , SQLStatement:="SELECT * FROM `Arbeitspakete$` WHERE Arbeitspaketstatus = 'In Diskussion'", SQLStatement1 _
- :="", SubType:=wdMergeSubTypeAccess
- ActiveDocument.MailMerge.ViewMailMergeFieldCodes = wdToggle
- End Sub
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „FrankyWill“ ()