PDF erstellen mit VBA unter CITRIX Um
17.01.2021 11:08:45
Holger
mein Problem ist das das VBA-Makro (Modul1) auf meinem Rechner zu Hause läuft und auf dem Dienstrechner eben nicht.
Im Dienst benutzen wir EXCEL 2010 in einer CITRIX Umgebung.
Kann es sein, das in einer CITRIX Umgebung weitere Einstellungen in Excel selbst vorgenommen werden müssen um das Makro zum laufen zu bewegen? Denn zu Hause funktioniert alles so wie ich es gerne hätte.
--------------------------------------------------------------------------------------------------------------------------------------------------------
Sub PDF()
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets(Array("Kita Düsseldorfer Straße", "Kita Prager Straße", _
"Walter-Benjamin-Platz", "Richard-Wagner-Straße", "Goethestraße", _
"Württembergallee ", "Schlüterstraße", "Wilhelmsaue", "Homburger Straße", _
"Cunostraße", "Heydenstraße", "Siegburger Straße", "Kuno-Fischer-Straße", _
"Orber Straße", "Livländische Straße", "Karolinenstraße", "Alt-Tegel", _
"Frohnauer Straße", "Maximiliankorso", "Markgrafenstraße 14", _
"Hennigsdorfer Straße", "Neheimer Straße", "Ernststraße", "Senftenberger Ring 96", _
"Tornower Weg", "Rathauspromenade 73", "Senftenberger Ring 99", "Humboldtstraße ", _
"Auguste-Viktoria-Allee ", "Letteallee", "Amendestraße 41", "An der Havelspitze", _
"Spandauer Straße", "Griesingerstraße", "Stadtrandstraße", _
"Olga-Tschechowa-Straße", "Lünette", "Remscheider Straße", "Germersheimer Weg", _
"Wichernstraße ", "Länderallee", "Schlossstraße", "Warburgzeile 8")).Select
Sheets("Kita Düsseldorfer Straße").Activate
Sheets(Array("Kita Düsseldorfer Straße", "Kita Prager Straße", _
"Walter-Benjamin-Platz", "Richard-Wagner-Straße", "Goethestraße", _
"Württembergallee ", "Schlüterstraße", "Wilhelmsaue", "Homburger Straße", _
"Cunostraße", "Heydenstraße", "Siegburger Straße", "Kuno-Fischer-Straße", _
"Orber Straße", "Livländische Straße", "Karolinenstraße", "Alt-Tegel", _
"Frohnauer Straße", "Maximiliankorso", "Markgrafenstraße 14", _
"Hennigsdorfer Straße", "Neheimer Straße", "Ernststraße", "Senftenberger Ring 96", _
"Tornower Weg", "Rathauspromenade 73", "Senftenberger Ring 99", "Humboldtstraße ", _
"Auguste-Viktoria-Allee ", "Letteallee", "Amendestraße 41", "An der Havelspitze", _
"Spandauer Straße", "Griesingerstraße", "Stadtrandstraße", _
"Olga-Tschechowa-Straße", "Lünette", "Remscheider Straße", "Germersheimer Weg", _
"Wichernstraße ", "Länderallee", "Schlossstraße", "Warburgzeile 8")).Select _
Dim DateiName As String
DateiName = "KST921_KITA NW Abrechnung.pdf"
Range("a1:G48").ExportAsFixedFormat xlTypePDF, Filename:=DateiName, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, openafterpublish:=True
End Sub
--------------------------------------------------------------------------------------------------------------------------------------------------------------
Ich hoffe auf die Schwarmintelligenz der VBA-Gemeinde denn ich weiß nicht mehr weiter.....
Winterliche Grüße aus Bärlin
Holger