Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.04.2024 21:55:37
Preiserhöhung über mehrere Jahre berechnen
17.04.2024 20:19:32
Endzeitpunkt berechnen aus d:hh:mm errechnen
17.04.2024 18:57:33
Errinnerungsfunktion
17.04.2024 16:56:58
Stunden addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1544to1548
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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.

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

300 Forumthreads zu ähnlichen 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
Anzeige
Bilder automatisch einfügen in Zelle
SimonB

Hallo zusammen,
ich habe ein Problem in Excel, welches ich auch durch diverse VBA-Makros aus dem Netz nicht lösen kann:
Ich möchte in der Spalte A eines Tabellenblattes über ein Makro ein JPG einfügen lassen, welches durch eine immer 6-stellige Artikelnummer in der Spalte H des selben B...
30.09.2009 12:57:23
Thread-ID: 1106400
8 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
Anzeige
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
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
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 in Excel einfügen und Formel hinterlegen
Susanne

Hallo,
mache mal ein neues Thema auf, da es sich auch nicht mehr direkt um das vorige handelt.
Mein Problem:
Kann man ein Logo (Bild) mit einer Formel hinterlegen, damit ich wenn der Kunde xy ist, das Logo ausblende?
Also in der Kopfzeile kann ich keine Formel hinterlegen, oder...
26.04.2010 14:28:36
Thread-ID: 1153845
11 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

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
8
10
7
3
3
1
4
6
10
2
1
3
5
2
5
2
6
5
6
3
13
2
7
5
11