Per Makro Abfrage erzeugen welche Tabelltenblätter ausgedruckt werden sollen

[RPP63]

Jetzt läuft es durch aber es passiert nicht. Es wird nichts gedruckt

Ich denke es liegt an Sheets(....

Ich denke, dass es daran liegt, dass nichts in den Sheets steht und somit Excel dankenswerterweise kein leeres Papier von Drucker auswerfen lässt.
Trage mal ein paar Daten ein …

Gruß Ralf

[Daniel Albert]

So du hast recht, jetzt habe ich inhalt eingefügt und es hat funktioniert. Nun habe ich das Makro in meine aktive Tabelle eingefügt und angepasst - jetzt bekomme ich folgende Fehlermeldung:

Fehler im kompilieren:

Next ohne For

Aber es ist doch alles dabei ?

[Daniel Albert]

Fehler gefunden funktioniert einwandfrei

[Daniel Albert]

Hallo, noch eine Frage.

Da ich meistens die Infoblätter nicht ausdrucke sondern als PDF Datei abspeichere wäre es super wenn der Dateiname aus einer Zelle ausgelesen wird und vorgeschlagen wird.

Ist es möglich dies in das Makro einzubinden. Aktuell wird immer der Name der kompletten Excel Datei vorgeschlagen. Bin mir nicht sicher ob das überhaupt geht.

Gruß Daniel

[schauan]

Hallo Daniel,

das ist sicher in Abhängigkeit vom verwendeten PDF-Programm möglich.
Ansonsten kannst Du auch in Excel über Speichern Unter einen Dateinamen vorschlagen, im Prinzip
Application.Dialogs(xlDialogSaveAs).Show Dateiname

[RPP63]

Moin!
Oder:

Code:

wks.ExportAsFixedFormat xlTypePDF, DeinZusammengesetzterDateinameOhneEndung

Gruß Ralf

[schauan]

Moin Ralf,

nur mal zur Ergänzung für die Allgemeinheit - Daniel bekommt das ja auch so hin

Wenn man das integrierte pdf nutzt müsste zumindest lt. Aufgabenstellung

wenn der Dateiname aus einer Zelle ausgelesen wird und vorgeschlagen wird.

noch eine Inputbox kommen, wo der Dateiname als Vorschlag steht und man ihn ändern kann.

Ich sehe Deinen Vorschlag da als gute Ergänzung von meinem. Über einen Dialog den Dateinamen einer Variablen zuweisen und dann ExportAsFixedFormat nutzen.

[Daniel Albert]

Guten Morgen,

Andre deine Annahme ist leider falsch, denn sonst müsste ich hier nicht nachfragen. Ich habe immer wieder neue Herausforderungen in Excel , aber Makros schreiben oder sehr komplexe Formeln zu erstellen kann ich nicht. Ich sehe da nicht mal einen Ansatzweg weil mir das Hintergrundwissen fehlt.

NUn habe ich aber einen im www gefunden.

Problem ist mal wieder - wie bekomme ich die Variable auch befüllt:

Code:

Sub SaveAsPDF()
Dim varFilename As Variant

Dim k As Long
For k = 22 To 37
If Worksheets("Kunden").Cells(k, 13).Text = "x" Then _
Sheets (Tabelle1.Cells(k, 12).Text)

varFilename = Application.GetSaveAsFilename( _
InitialFileName:="Meine.pdf", _
FileFilter:="PDF (*.pdf), *.pdf", _
Title:="als PDF speichern")

If varFilename <> False Then
ThisWorkbook.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=varFilename
End If
Next
End Sub

Mir geht es um

Code:

Sheets (Tabelle1.Cells(k, 12).Text)

Wie kann ich diesen Text an

Code:

InitialFileName

übergeben?

[Rabe]

Hi,

so?

Code:

InitialFileName = Sheets (Tabelle1.Cells(k, 12).Text) & ".pdf"

[Daniel Albert]

Guten Morgen Ralf, probiere ich gleich aus.

Was anderes, mir ist ein Fehler unterlaufen. Ich habe zuerst hier die Frage in dem alten "eigentlich" schon erledigten Thread gestellt, bis ich bemerkt habe das es ein neues Thema ist. Nun laufen beide Parallel was nicht produktiv ist.

Ich würde das Thema hier beenden da es nicht wirklich was mit dem Anfangsthema zu tun hat

Sorry da habe ich Bockmist gebaut :(

Hier der andere Thread:

http://www.clever-excel-forum.de/Thread-...7#pid93717