Mitarbeitersteckbrief

[StevenBig]

Hi,

a) dann machst Du eine Schleife über alle gewünschten Mitarbeiter-Nummern um das ganze Makro herum.
b) ebenfalls eine Schleife, die zuerst die 200 Steckbriefe erzeugt, dann diese Steckbrief-Blätter alle markieren und abspeichern als ein gemeinsames pdf.

[StevenBig]

Dazu fehlt mir leider das Handwerkszeug, um diese Schleife zu programmieren... ):

[Rabe]

Hi,

a) ich hatte übersehen, daß in dem Makro von Ralf ja schon die Schleife drin ist, also habe ich nur das Speichern als pdf ergänzt:

Option Explicit

Sub alle_MA_ausdrucken()      'RPP63 
   Dim i&
   Dim strPfadDateiExport As String
   
   With Tabelle1
      For i = 3 To .Range("C3").End(xlDown).Row
         Tabelle2.Range("C2") = .Range("C" & i)
         strPfadDateiExport = "C:\temp\" & .Range("C" & i) & "_" & .Range("E" & i)
         Tabelle2.ExportAsFixedFormat xlTypePDF, strPfadDateiExport
         'Tabelle2.PrintOut 
      Next
   End With
End Sub

[StevenBig]

Leider kommt es immer zu der Fehlermeldung  "Laufzeitfehler 1004: Anwendung- oder objektdefinierter Fehler".
Ich habe die Datei mit dem Code nochmal angehangen.

Habt ihr eine Idee woran es liegt ?

[Rabe]

Hi,

ich habe genau Deine angehangene Datei gespeichert und dann das Makro aufgerufen.
Daraufhin habe ich im Verzeichnis c:\temp\
5 Dateien mit den MA-Nummern und Nachnamen vorgefunden.

Gibt es dieses Verzeichnis bei Dir?