Mehrere Blätter in separate PDFs drucken

[NobX]

Hallo @schauan,

vielen Dank für Deine Ausführungen bezüglich der richtigen Zuweisung von Variabeln zu einem Datentyp. Bin eben auch noch Anfänger bei VBA und freue mich natürlich, wenn sich jemand die Mühe macht mir etwas zu erklären. - Sehe ich das dann richtig, dass bei meiner offensichtlich falschen Zusweisung der Variablen zum Datentyp Long das j und das k als Variant eingestuft würden, das i jedoch als Long?
In welchem Falle würde es zu Problemen kommen, wenn die Typen so wie in meinem Beispiel nicht korrekt zugeordnet würden? Bei meinem Testlauf in der Probedatei hat gab es für micht keine sichtbaren Probleme.

Bin für jede weiterführende Information dazu aufgeschlossen.

Grüße

Norbert

[schauan]

Hallo Norbert,

also, Variablen zu bestimmten Typen zuzuweisen ist erst mal - man steinige mich nicht dafür - meist scheinbar nicht erforderlich. Man nehme Variant - und wenn's nicht passt, wird einem das Excel schon irgendwie mitteilen.

Aber - VBA ist da eine unrühmliche Ausnahme m Reigen der Programmiersprachen. Bei anderen musst Du in der Regel Typen korrekt zuweisen.
Auch bei VBA gibt es einige Fälle, wo Du daran nicht vorbei kommst, z.B. wenn Du Ereignismakros verwendest, bei Objekten (As Object wäre ziemlich allgemein, As Range oder was auch immer dann konkret), wenn Du auf API's zugreifst, wenn Du Variablen zwischen Routinen übergibst, ggf. bei Arrays usw ...

Eine korrekte Zuweisung hat auch weitere Vorteile. Für mich wohl der wichtigste ist, Fehler werden bereits bei der Zuweisung von Inhalten erkannt und nicht erst irgendwann später bei der Verarbeitung. Ein anderer ist z.B. der Speicherbedarf - ist heutzutage weniger relevant, aber wenn Du größere Projekte mit einer Vielzahl Variablen hast, dann vielleicht schon.

Auch die Bezeichnung der Variablen sollte schon etwas erklärend sein. Die Buchstaben i, j und k hatte ich ja nicht angemosert, nur die Länge.
Schleifenzähler vom Typ Long könnte man z.B. mit loCnt01, loCnt02 usw. benennen statt iCnt, jCnt usw.

[NobX]

Hallo André,

danke und Grüße

Norbert

[Excelmachtspass]

Hallo,  

eigentlich solltest du eine Beispielmappe (natürlich anonymisiert) hochladen.

Es kommt halt auf den Aufbau drauf an. Da kann man das schnell einbauen.

Wieder zu schnelle gelesen. man sollte doch nur eine Sache gleichzeitig machen. 

Mache ich fertig und lade es hoch.

---

Hallo Matthias,

schau mal, ob dir das hilft:

http://www.kmbuss.de/Excel-CD/xls2pdf.htm

Gestern getestet. Auf dem Firmenrechner konnte ich es nichtmal downloaden. (Bin aber auch nicht Admin)

Und auf dem privaten konnte ich es nicht in Excel laden. Scheint für eine ältere Version zu sein.

[schauan]

Hallöchen,

der pdf24-Creator ist zur Installation auf dem Rechner und dazu braucht man Admin-Rechte. Zu Hause sollte es also gehen. Dad Tool steht dann als "Drucker" mit einigen weiteren Funktionen zur Verfügung.

Auf Arbeit wärst Du mit Case's Ansatz wohl besser dran.

[Excelmachtspass]

Hallöchen,

der pdf24-Creator ist zur Installation auf dem Rechner und dazu braucht man Admin-Rechte. Zu Hause sollte es also gehen. Dad Tool steht dann als "Drucker" mit einigen weiteren Funktionen zur Verfügung.

Auf Arbeit wärst Du mit Case's Ansatz wohl besser dran.

Den PDF Creator habe ich schon. 
Aber das Add In von der Seite geht halt nicht.

---

Hallo,  

eigentlich solltest du eine Beispielmappe (natürlich anonymisiert) hochladen.

Es kommt halt auf den Aufbau drauf an. Da kann man das schnell einbauen.

So, jetzt nochmal. 

Anbei die Datei. Jeder Abschnitt soll halt in eine extra Datei, die ich dann verschicken kann.

[00202]

Hallo,  

habe für die Bereiche "Namen" vergeben (Formeln - Namens-Manager).
[attachment=45338]

Code:

Option Explicit
' Speichert auf dem Desktop des Users
Public Sub Main_1()
    Dim lngTMP As Long
    For lngTMP = 1 To Application.Names.Count
        Range(Application.Names(lngTMP).Name).ExportAsFixedFormat 0, Environ("UserProfile") & "\Desktop\" & Application.Names(lngTMP).Name & Format(Now, "_DD_MM_YYYY_hh_mm_ss")
    Next lngTMP
    Tabelle1.DisplayAutomaticPageBreaks = False
End Sub
' Speichert im TEMP-Ordner des jeweiligen Users (C:\Users\BENUTZERNAME\AppData\Local\Temp\)
Public Sub Main_2()
    Dim lngTMP As Long
    For lngTMP = 1 To Application.Names.Count
        Range(Application.Names(lngTMP).Name).ExportAsFixedFormat 0, Environ("TEMP") & "\" & Application.Names(lngTMP).Name & Format(Now, "_DD_MM_YYYY_hh_mm_ss")
    Next lngTMP
    Tabelle1.DisplayAutomaticPageBreaks = False
End Sub
' Speichert in einem vorgegebenen Ordner - hier C:\TMP\
Public Sub Main_3()
    Dim lngTMP As Long
    For lngTMP = 1 To Application.Names.Count
        Range(Application.Names(lngTMP).Name).ExportAsFixedFormat 0, "C:\TMP\" & Application.Names(lngTMP).Name & Format(Now, "_DD_MM_YYYY_hh_mm_ss")
    Next lngTMP
    Tabelle1.DisplayAutomaticPageBreaks = False
End Sub

[Excelmachtspass]

Hallo,  

habe für die Bereiche "Namen" vergeben (Formeln - Namens-Manager).

Code:

Option Explicit
' Speichert auf dem Desktop des Users
Public Sub Main_1()
    Dim lngTMP As Long
    For lngTMP = 1 To Application.Names.Count
        Range(Application.Names(lngTMP).Name).ExportAsFixedFormat 0, Environ("UserProfile") & "\Desktop\" & Application.Names(lngTMP).Name & Format(Now, "_DD_MM_YYYY_hh_mm_ss")
    Next lngTMP
    Tabelle1.DisplayAutomaticPageBreaks = False
End Sub
' Speichert im TEMP-Ordner des jeweiligen Users (C:\Users\BENUTZERNAME\AppData\Local\Temp\)
Public Sub Main_2()
    Dim lngTMP As Long
    For lngTMP = 1 To Application.Names.Count
        Range(Application.Names(lngTMP).Name).ExportAsFixedFormat 0, Environ("TEMP") & "\" & Application.Names(lngTMP).Name & Format(Now, "_DD_MM_YYYY_hh_mm_ss")
    Next lngTMP
    Tabelle1.DisplayAutomaticPageBreaks = False
End Sub
' Speichert in einem vorgegebenen Ordner - hier C:\TMP\
Public Sub Main_3()
    Dim lngTMP As Long
    For lngTMP = 1 To Application.Names.Count
        Range(Application.Names(lngTMP).Name).ExportAsFixedFormat 0, "C:\TMP\" & Application.Names(lngTMP).Name & Format(Now, "_DD_MM_YYYY_hh_mm_ss")
    Next lngTMP
    Tabelle1.DisplayAutomaticPageBreaks = False
End Sub

Hallo Case,
danke schon einmal. 

Schau ich mir die Tage mal an. Gerade noch was anderes reinbekommen. 

Melde mich dann hier nochmal. 

Dann noch eine schöne Woche. 

[Excelmachtspass]

Hallo,  

habe für die Bereiche "Namen" vergeben (Formeln - Namens-Manager).

Code:

Option Explicit
' Speichert auf dem Desktop des Users
Public Sub Main_1()
    Dim lngTMP As Long
    For lngTMP = 1 To Application.Names.Count
        Range(Application.Names(lngTMP).Name).ExportAsFixedFormat 0, Environ("UserProfile") & "\Desktop\" & Application.Names(lngTMP).Name & Format(Now, "_DD_MM_YYYY_hh_mm_ss")
    Next lngTMP
    Tabelle1.DisplayAutomaticPageBreaks = False
End Sub
' Speichert im TEMP-Ordner des jeweiligen Users (C:\Users\BENUTZERNAME\AppData\Local\Temp\)
Public Sub Main_2()
    Dim lngTMP As Long
    For lngTMP = 1 To Application.Names.Count
        Range(Application.Names(lngTMP).Name).ExportAsFixedFormat 0, Environ("TEMP") & "\" & Application.Names(lngTMP).Name & Format(Now, "_DD_MM_YYYY_hh_mm_ss")
    Next lngTMP
    Tabelle1.DisplayAutomaticPageBreaks = False
End Sub
' Speichert in einem vorgegebenen Ordner - hier C:\TMP\
Public Sub Main_3()
    Dim lngTMP As Long
    For lngTMP = 1 To Application.Names.Count
        Range(Application.Names(lngTMP).Name).ExportAsFixedFormat 0, "C:\TMP\" & Application.Names(lngTMP).Name & Format(Now, "_DD_MM_YYYY_hh_mm_ss")
    Next lngTMP
    Tabelle1.DisplayAutomaticPageBreaks = False
End Sub

Code 2 hat geklappt. Funktioniert. Danke. 
Hab nur keinen Plan, warum das funktioniert. 
Bei Code 1 und 3, wo auf Desktop und Temp Ordner gespeichert werden soll, kommt eine Fehlermeldung.
"Das Dokument wurde nicht gespeichert. Es ist möglicherweise geöffnet oder...."



Habe jetzt folgendes gemacht.

Habe jetzt erstmal zwei Makros erstellt.
Das eine erstellt Registerkarten mit dem Namen der Standorte.
Das zweite kopiert die jeweiligen Daten in die Registerkarte. Habe eine Range angeben die kopiert wird. Einmal für die Legende vor und dann für die Daten weiter hinten.
So passt das schon einmal sehr gut. So habe ich einen Überblick über die einzelnen Standorte.
Danke ans Forum. 

Der letzte Schritt ist dieser Code.
Der geht mal und geht mal nicht. 

Code:

Sub RegisterSpeichern()

    Dim wkb As Workbook
    Dim wks As Worksheet
   
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
   
    With ThisWorkbook
        For Each wks In .Worksheets
            wks.Copy
            Set wkb = ActiveWorkbook
            wkb.SaveAs wks.Name & ".xlsx", xlOpenXMLWorkbook
            wkb.Close False
            Set wkb = Nothing
        Next
        Set wks = Nothing
    End With
   
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
   
End Sub

Er speichert die jeweiligen Registerkarten im Ordner Dokumente. 
Kann ich dieses Ziel auch ändern?

Und der Code funktioniert nicht immer. 
Mal speichert er alle Registerkarten ab und beendet es dann mit Fehler 1004 
Dann speichert er nur Tabelle1 als neue Excel ab und beendet dann mit 1004.
Oder er läuft komplett durch und alle Dateien sind da. 

"Laufzeitfehler 1004. Die Methode "SaveAs" für das "_Workbook" ist fehlgeschlagen."


Also entweder sollte ein Code doch funktioniere oder halt nicht?   

Sonnige Grüße.

[derHoepp]

Moin,

wenn du immer wieder die Workbooks schließt, bleibt für Excel irgendwann kein Objekt mehr übrig, auf das .SaveAs angewendet werden könnte.

Viele Grüße
derHöpp