Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1544to1548
1544to1548
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

PDF-Datei aus einer Variablen bilden

Forumthread: PDF-Datei aus einer Variablen bilden

PDF-Datei aus einer Variablen bilden
07.03.2017 11:44:36
Hlavac
Hallo,
Ich habe einen .pdf-File-Namen aus
zwei String-Variablen gebastelt, und möchte diesen als Pdf-Dateiname in ein Makro einbauen.Nun reklamiert der Skript-Editor:Das Funktionsverzeichnis des Programms oder der Erweiterung konnten nicht gelesen werden, da sie nicht skriptfähig sind.Wie kann ich diesen Pdf-File Skriptfähig machen?
sName = sTxt & dTxt ergibt einen Namen z.B. "Test01_04.05.2017.pdf"
Ich habe im Net irgendwelche Lösungen gefunden, die waren für mich zu kompliziert. Vielleicht hat jemand eine einfach Idee.
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: PDF-Datei aus einer Variablen bilden
07.03.2017 11:53:44
UweD
Hallo
Zeig doch mal den kompletten code.
LG
AW: PDF-Datei aus einer Variablen bilden
07.03.2017 17:10:37
magellan45
Vielen Dank uweD, ich habe es selber herausgefunden...
LG
AW: PDF-Datei aus einer Variablen bilden
07.03.2017 19:00:49
magellan45
Ich habe es nicht ganz herausgefunden , nur das der VBA-Editor nicht mehr reklamiert..
Sub probspei()
MsgBox sName
'Dies ist der Name der PDF-Datei als String
Range("H1:L34").Select
ActiveSheet.PageSetup.PrintArea = "$H$1:$L$34"
ChDir "HD:Users:frantisekhlavac:Documents:GSD:Projekt:PDF:Proben:"
Range("H1:L34").Select
'** PDF erzeugen
ActiveWorkbook.SaveAs Filename:= _
"HD:Users:frantisekhlavac:Documents:GSD:Projekt:PDF:Proben:sName.pdf", FileFormat:= _
xlPDF _
, PublishOption:=xlSelection
'Hier wird der Text "sName.pdf" erstellt anstelle der MsgBox-Anzeige.
Range("A46").Select
End Sub

Anzeige
AW: PDF-Datei aus einer Variablen bilden
08.03.2017 08:54:23
UweD
Hallo
ungetestet...
Der Hauptfehler ..
"HD:Users:frantisekhlavac:Documents:GSD:Projekt:PDF:Proben:" & sName,
- Die Variable muss ausserhalb der "" liegen
- warum hier Doppelpunkte anstelle von \ verwendet werden... ?

ich würde es so lösen:
Sub probspei()
Dim Pfad As String, Rng As Range
Dim sTxt As String, dTxt As String, sName As String
Pfad = "HD:Users:frantisekhlavac:Documents:GSD:Projekt:PDF:Proben:"
Set Rng = Range("H1:L34")
'Dies ist der Name der PDF-Datei als String
sName = sTxt & dTxt ' inkl. .pdf
MsgBox sName
ActiveSheet.PageSetup.PrintArea = Rng
'** PDF erzeugen
ActiveWorkbook.SaveAs Filename:=Pfad & sName, _
FileFormat:=xlPDF, PublishOption:=xlSelection
End Sub

Anzeige
AW: PDF-Datei aus einer Variablen bilden
08.03.2017 11:24:43
magellan45
Hallo, uweD ! Es funktioniert mit einer kleinen Änderung: sName = sTxt & dTxt & ".pdf"
Vielen Dank!!!
Prima! Danke für die Rückmeldung.
08.03.2017 11:38:51
UweD
AW: PDF-Datei aus einer Variablen bilden
09.03.2017 17:48:53
magellan45
Ich habe noch einen Fehler gefunden: Im Teil "PDF erzeugen" soll diese so aussehen: "Text_09.03.2017.pdf"
nach dem Abspeichern sieht die Datei so aus: "Text_09 Numerisch.pdf" Diese Suffix "Numerisch" lässt sich ausblenden wenn ich diese Prozedur von Hand mache. Im VB-Skript weiss ich nicht, wie ich diese ausblenden kann. Danach schneidet das Programm den Dateinamen ab. In einem anderen Modul habe ich folgende Definitionen gemacht:
Option Explicit
Public sTxt As String
Public dTxt As String
Public sName As String
Public sLeer As String
Sub probspei()
Application.ScreenUpdating = False
Pfad = "HD:Users:frantisekhlavac:Documents:GSD:Projekt:PDF:Proben:"
Set Rng = Range("H1:L34")
'Dies ist der Name der PDF-Datei als String
sName = sTxt & "_" & dTxt & ".pdf"
'MsgBox sName
'ActiveSheet.PageSetup.PrintArea = Rng
Range("H1:L33").Select
ActiveSheet.PageSetup.PrintArea = "$H$1:$L$33"
Range("H1:L33").Select
'** PDF erzeugen
ActiveWorkbook.SaveAs Filename:=Pfad & sName, _
FileFormat:=xlPDF, PublishOption:=xlSelection
If sLeer  "" Then
Clear
End If
Range("A46").Select
End Sub

Anzeige
AW: PDF-Datei aus einer Variablen bilden
09.03.2017 18:01:09
magellan45
Ich habe noch einen Fehler gefunden: Im Teil "PDF erzeugen" soll diese so aussehen: "Text_09.03.2017.pdf"
nach dem Abspeichern sieht die Datei so aus: "Text_09 Numerisch.pdf" Diese Suffix "Numerisch" lässt sich ausblenden wenn ich diese Prozedur von Hand mache. Im VB-Skript weiss ich nicht, wie ich diese ausblenden kann. Danach schneidet das Programm den Dateinamen ab. In einem anderen Modul habe ich folgende Definitionen gemacht:
Option Explicit
Public sTxt As String
Public dTxt As String
Public sName As String
Public sLeer As String
Sub probspei()
Application.ScreenUpdating = False
Pfad = "HD:Users:frantisekhlavac:Documents:GSD:Projekt:PDF:Proben:"
Set Rng = Range("H1:L34")
'Dies ist der Name der PDF-Datei als String
sName = sTxt & "_" & dTxt & ".pdf"
'MsgBox sName
'ActiveSheet.PageSetup.PrintArea = Rng
Range("H1:L33").Select
ActiveSheet.PageSetup.PrintArea = "$H$1:$L$33"
Range("H1:L33").Select
'** PDF erzeugen
ActiveWorkbook.SaveAs Filename:=Pfad & sName, _
FileFormat:=xlPDF, PublishOption:=xlSelection
If sLeer  "" Then
Clear
End If
Range("A46").Select
End Sub

Anzeige
AW: PDF-Datei aus einer Variablen bilden
09.03.2017 18:26:15
magellan45 

Sub probspei()
Application.ScreenUpdating = False
Pfad = "HD:Users:frantisekhlavac:Documents:GSD:Projekt:PDF:Proben:"
Set Rng = Range("H1:L34")
'Dies ist der Name der PDF-Datei als String
sName = sTxt & "_" & dTxt & ".pdf"
'MsgBox sName
'ActiveSheet.PageSetup.PrintArea = Rng
Range("H1:L33").Select
ActiveSheet.PageSetup.PrintArea = "$H$1:$L$33"
Range("H1:L33").Select
'** PDF erzeugen
ActiveWorkbook.SaveAs Filename:=Pfad & sName, _
FileFormat:=xlPDF, PublishOption:=xlSelection
If sLeer  "" Then
Clear
End If
Range("A46").Select
End Sub

Anzeige
;

Forumthreads zu verwandten Themen

Grafik in Kopfzeile gelöscht; wie wieder einfügen?
abdipost

Hallo zusammen,
habe aus einem Tabellenblatt in einer Excel-Mappe die Grafik aus der Kopfzeile gelöscht.
Die Grafik habe ich nicht als Datei vorliegen.
Wie bekomme ich die wieder rein?
In den anderen Tabellenblättern ist sie noch enthalten.
Danke für Eure Hilfe
16.06.2009 15:36:17
Thread-ID: 1081936
9 Beiträge
Bilder per Makro in Excel einfügen
stefanseevetal

Hallo zusammen!
Ich habe ein Problem, das ich mir nicht erklären kann. Ich füge nach einer Auswahl über den untenstehenden Code ein Bild im Tabellenblatt "Deckblatt" ein. Es soll gemäß dem Code oben links eingefügt werden. Leider funktioniert dies bei einigen Computern nicht und das Bild wi...
27.10.2009 19:27:47
Thread-ID: 1112579
4 Beiträge
Bild in Zellverbund einfügen
Markus

Hallo,
füge ich ein Bild (Einfügen Graphik) in einen Zellverbund (verbunde Zellen von A3 bis R13 ein,
so wird das Bild zwar eingefügt ....
aber die Grösse passt sich nicht dem Zellverbund an (Bild meistens zu gross);
es wird zudem nicht eingemittet (der Zellverbund wurde vorher...
29.10.2009 16:19:45
Thread-ID: 1113103
4 Beiträge
Einfügen von Bildern in Kommentar geht nicht mehr
Bildern

Hallo zusammen,
ich habe ein Problem mit folgenden Codezeilen:
For spalte = 4 To 13
'*********
If Cells(zeile, spalte).Hyperlinks.Count 1 Then 'Abfrage, ob Hyperlink vorhanden
GoTo weiter2
Else
Dim mycom As Object
On Error Resume Next
Pfad = ActiveWorkbook.P...
30.11.2009 15:34:28
Thread-ID: 1121036
2 Beiträge
Anzeige
Bilder in Zelle einfügen wenn
Andre´

Hallo alle zusammen,
ich möchte für den Bereich C5:F10 Bilder einfügen (jeweils mittig in Zelle), in Abhängigkeit des Zellwertes.
Ist der Zellwert = 1 dann Bild1 von Tabelle "Bilder" einfügen
Ist der Zellwert = 2 dann Bild2 von Tabelle "Bilder" einfügen
Ist der Zellwert = 3 dann...
15.12.2009 09:51:03
Thread-ID: 1123961
5 Beiträge
Anzeige
Bild einfügen in Originalgrösse
Marc

Hallo
Möchte ein Bild mittels VBA so einfügen, dass die obere linke Ecke in der Zelle "B5" liegt.
Das Bild soll aber in Originalgrösse bleiben.
Mein Code sieht so aus:
Bild = Ordner & "L" & BogenNr & "_" & "2" & ".jpg"
If Bild "" Then
Set varBild =...
12.02.2010 12:00:30
Thread-ID: 1138036
7 Beiträge
Bild von der userform in tabelle einfügen
der

Hallo Excelsfans,
ich habe auf einer userform ein bild (image). dieses möchte ich gern als bild in eine zelle einfügen
irgendwie so
cells(1,1).insert.picture=image1.picture
geht sowas?
gruß rocky
14.06.2010 19:14:52
Thread-ID: 1161836
3 Beiträge
Anzeige
Makro Bild einfügen funktioniert 2007,in 2003 nich
Kasimir

Hallo an alle!
Ich benötige Eure Hilfe. zunächst einmal mein momentanes Makro:
Sub Bilder_einfuegen() Dim rngActiveCell As Range Dim strAdresseBereich As String Dim strPicture As String On Error GoTo ERRORHANDLER Application.ScreenUpdating = False strAdresseBereich = S...
02.09.2010 00:18:05
Thread-ID: 1175309
2 Beiträge
Bild in Zelle einfügen.
Ernst

Hallo Exel Profis !
Ich würde mal wieder eure Hilfe benötigen.
Ich bräuchte ein makro das mir folgendes erfüllt, per Doppelklick in Zelle. g3 sollte sich der ordner C:\Dokumente und Einstellungen\Eigene Dateien\Eigene Bilder öffnen .Danach möchte ich mir ein bild auswählen können das si...
24.11.2010 12:48:35
Thread-ID: 1188515
4 Beiträge
Internetbild einfügen
Stef@n

Hallo
gibt es eine Möglichkeit, in eine Excel-Datei ein Hyperlink auf ein Bild aus dem Internet
einzufügen ?
Da sich das Bild permanent ändert, würde ich gern ein Hyperlink einfügen,
dass (sobald eine Internetverbindung existiert) im Excel das jeweilige aktuelle Bild angezeigt...
06.02.2011 19:46:50
Thread-ID: 1199334
6 Beiträge
Bilder in Zelle einfügen
Armin

Hallo,
ich füge mit folgendem Code Bilder aus einem Verzeichnis in Excel-Zellen untereinander ein:
Set pct = ActiveSheet.Pictures.Insert(strVerzeichnis & "\" & strDatei)
Wenn ich die Bilder z. B. 100 Stück aus einem Verzeichnis mit je 2 MB einfüge, wird die Excel-Datei zieml...
27.04.2011 00:19:02
Thread-ID: 1211877
3 Beiträge
Bild aus Userform in bestimmte Zeile einfügen
David

Moin Moin,
ich komme mal wieder nicht weiter... :-(
Vor kurzer Zeit habe ich das Problem gehabt, dass ich gerne Bilder in einer Userform anzeigen lassen wollte.
Nun soll im nächsten Schritt dieses Bild, welches mir in einem Image in der Userform angezeigt wird auch gleichzeitig in T...
07.06.2011 09:45:23
Thread-ID: 1217519
7 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige