(30.07.2017, 18:33)Daniel Albert schrieb: [ -> ]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
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 ?
Fehler gefunden funktioniert einwandfrei
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
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
Moin!
Oder:
Code:
wks.ExportAsFixedFormat xlTypePDF, DeinZusammengesetzterDateinameOhneEndung
Gruß Ralf
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
Zitat: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.
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
übergeben?
Hi,
so?
Code:
InitialFileName = Sheets (Tabelle1.Cells(k, 12).Text) & ".pdf"
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