Historie über pdf Ausdrucke anlegen.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Matthias,
1) Ist es möglich über die Art des Ausdruckes im Code vorgeben welches Sheet ausgedruckt werden soll?
Sprich Art 1 , Sheet 1 und 2
Art 2 , Sheet 3 etc.
Wie könnte man dies lösen?
In einer Select Case - Anweisung kann man die jeweils zu drukenden Blätter festlegen.
Die Blätter werden dabei in einer Variablen als Array gespeichert. Diese Daten werden am besten unter dem Change_Ereignis der Combobox für die Art zusammengestellt, dann kann man die Blätter auch im Userform anzeigen.
In der hochgeladenen Textdatei hab ich den kompletten Userform Code mal so angepasst, dass über die Combobox-Auswahl für "Art" die als PDF zu speichernden Blätter vorgewählt werden.
2) Ich möchte den Dateinamen in der Reihenfolge Datum, Name der Datei angeben. Funktioniert auch, aber ich bekomme den Leerschritt zwischen Datum und Name der Datei nicht hin.
Das kann man in das Format für das Datum einbauen oder man fügt per & " " zwischen Datum and Dateinamen ein Leerzeichen ein.

    With ThisWorkbook
'Syntax für automatischen Dateinamen ggf. anpassen
Me.txbDatei = Format(datDatum, " YYYY-MM-DD ") & Left(.Name, InStrRev(.Name, ".") - 1) & _
".pdf"
End With

3) Ich hätte versucht in meiner Userform dein Steuermodule zu kopieren. Innerhalb meiner Userform liegt auch dein toller Code.
Wenn ich aber dann auf pdf erstellen gehe, bringt er mir den Fehler. Laufzeitfehler Objekt erforderlich und markiert mir den Code
wksPrint.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strDatei, Quality:=xlQualityStandard, _
Includedocproperties:=True, Ignoreprintareas:=False, Openafterpublish:=False

Wahrscheinlich hast du die Deklaration der Variablen, die für alle Makros im Userform-Code gelten sollen, am Beginn des Codes vergessen zu kopieren.

Option Explicit 'Sorgt unter anderem dafür das nicht deklarierte Variablen _
beim Kompilieren angemeckert/angezeigt werden.
Private wksPrint As Worksheet, wksHistorie As Worksheet
Private datDatum As Date, datZeit As Date

Gruß
Franz
https://www.herber.de/bbs/user/96609.txt

Hallo Mathias,
wenn du die Info zu Pfad und Datei nicht angezeigt werden soll, dann kannst du Label-Felder löschen. Die Textboxen werden im Code aber benötigt, wenn nicht der ganze Code umgeschrieben und alles über Variablen abgefahren werden soll. Verkleinere die Tectboxen, schiebe sie im Userform irgendwo an den Rand, wo sie nicht stören, und setze unter den Eigenschaften dieser Textboxen, den Visible-Status auf False.
Wenn du den Betreff teilen willst, dann musst du eine zusätzliche Combobox einfügen (Kopiere die für "Art") und ändere die Eigenschaft "RowSource", so dass die benötigten Auswahldaten in der Combobox zur Verfügung stehen.
In der Historie muss dann eine weitere Spalte eingefügt werden und das Makro, dass die Daten dort einträgt muss entsprechend angepasst werden.
Ist es noch möglich benutzerdefinierte Ansichten zusätzlich innerhalb des ausgewählten Tabellenblattes festzulegen?
Theoretisch: Ja. Alles, was vor der Anzeige des Userforms in den Tabellenblättern eingestellt ist, wird ja sowie übernommen. Wenn du aber erst im Userform zu den via "Art" ausgewählten Blättern zusätzlich ggf. eine benutzerdefinierte Ansicht auswählen willst, dann wird es kompliziert. Ich hab da auch nur wenig Erfahrungen mit, was denn funktioniert und was nicht. Da bräuchte ich auch mal eine Beispiedatei was dir da so vorschwebt.
Gruß
Franz

Beliebteste Forumthreads (12 Monate)

Historie über pdf Ausdrucke anlegen.

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Historie über pdf Ausdrucke anlegen.

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread