Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1628to1632
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
1628to1632
1628to1632
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Speichername aus Zelle

Speichername aus Zelle
18.06.2018 16:45:48
Nico
Hallo Zusammen,
ich habe hier einen Code der meine Excel Datei als PDF speichern soll.
Nun habe ich ein Problem das der Speichername der PDF aus einer Zellen bezogen werden soll.
Die Zellen sind verbunden A10-C10 dort drin wäre der Optimale Datei Name + Lieferschein. Könnte man es dort mit ein Basteln ?
Z.B 0815Lieferschein
Private Sub PDFEmail_Click()
Dim sPathPDF$
Dim objOutlook As Object, objMail As Object
With ThisWorkbook
sPathPDF = IIf(Right$(.Path, 1) = "\", .Path, .Path & "\")
'Dateiname
sPathPDF = sPathPDF & " Range(A10:C10) Lieferschein.pdf"
'Abfrage ob Datei ersetzt werden soll, bei nein Abbruch
If Dir(sPathPDF, vbNormal) "" Then
If MsgBox("Vorhandene Datei ersetzen?", vbYesNo + vbQuestion) = vbNo Then
Exit Sub
End If
End If

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Speichername aus Zelle
18.06.2018 16:49:30
Hajo_Zi
& Range(A10) & "Lieferschein.pdf"

Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
AW: Speichername aus Zelle
18.06.2018 17:04:06
Nepumuk
Hallo Nico,
teste mal:
Option Explicit

Private Sub PDFEmail_Click()
    
    Dim sPathPDF$
    Dim objOutlook As Object, objMail As Object
    
    sPathPDF = "C:\Test\" 'anpassen !!!
    
    sPathPDF = sPathPDF & Range("A10").Text & "\" & "Lieferschein.pdf"
    
    'Abfrage ob Datei ersetzt werden soll, bei nein Abbruch
    If Dir$(sPathPDF, vbNormal) <> vbNullString Then
        If MsgBox("Vorhandene Datei ersetzen?", vbYesNo Or vbQuestion) = vbNo Then
            Exit Sub
        Else
            Call Kill(PathName:=sPathPDF)
        End If
    End If
    
    Call ThisWorkbook.ExportAsFixedFormat(Type:=xlTypePDF, Filename:=sPathPDF, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False)
    
    Set objOutlook = CreateObject("Outlook.Application")
    Set objMail = objOutlook.CreateItem(0)
    
    With objMail
        .To = "deineadresse@provider.de"
        .Subject = "Betreff"
        .Body = "Text"
        Call .Attachment.Add(sPathPDF)
        Call .Display
        ' Call .Send 'sofort senden
    End With
    
    Set objMail = Nothing
    Set objOutlook = Nothing
End Sub

Gruß
Nepumuk
Anzeige
AW: Speichername aus Zelle
19.06.2018 07:05:58
Nico
Hallo,
Leider funktioniert es nicht. Die Datei soll auch dort gespeichert werden wo die excel sich befindet, das funktioniert auch alles.
Nur der Datei Name Zander Zelle ist das Problem. Ich kann der Datei einen festen Namen geben aber lieber wäre es mir wenn er es den Bezug aus der Zelle nimmt.
AW: Speichername aus Zelle
19.06.2018 10:12:10
Nepumuk
Hallo Nico,
teste mal:
Option Explicit

Private Sub PDFEmail_Click()
    
    Dim strPathPDF As String
    Dim objOutlook As Object, objMail As Object
    
    strPathPDF = ThisWorkbook.Path & "\" & Range("A10").Text & " " & "Lieferschein.pdf"
    
    'Abfrage ob Datei ersetzt werden soll, bei nein Abbruch
    If Dir$(strPathPDF, vbNormal) <> vbNullString Then
        If MsgBox("Vorhandene Datei ersetzen?", vbYesNo Or vbQuestion) = vbNo Then
            Exit Sub
        Else
            Call Kill(PathName:=strPathPDF)
        End If
    End If
    
    Call ThisWorkbook.ExportAsFixedFormat(Type:=xlTypePDF, Filename:=strPathPDF, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False)
    
    Set objOutlook = CreateObject("Outlook.Application")
    Set objMail = objOutlook.CreateItem(0)
    
    With objMail
        .To = "deineadresse@provider.de"
        .Subject = "Betreff"
        .Body = "Text"
        Call .Attachment.Add(strPathPDF)
        Call .Display
        ' Call .Send 'sofort senden
    End With
    
    Set objMail = Nothing
    Set objOutlook = Nothing
End Sub

Gruß
Nepumuk
Anzeige

305 Forumthreads zu ähnlichen Themen

per Makro passwortgeschützes PDF erstellen
Frank

Hallo!
Ich hoffe mal wieder aud fachkundige Hilfe. Bei meinem aktuellen Projekt müssen aus Excel heraus täglich viele passwortgeschützte PDF-Doumente erstellt werden. Das Passwort ist immer gleich. Es geht lediglich darum die Dateien vor unautorisiertem Zugriff zu schützen, falls jemand das...
15.08.2008 09:20:00
Thread-ID: 1002042
3 Beiträge
Anzeige
Inhalt einer Zelle im Windows Infobereich anzeigen
Thomas

Hallo,
kann ich den Inhalt einer Zelle im Windows Infobereich anzeigen lassen?
Ich habe eine VBA-Anwendung, die mir den Verarbeitungsstatus in einer Zelle anzeigt.
Weil die Verarbeitung sehr lange dauert möchte ich zwischendurch mit anderen Anwendungen arbeiten und unten rechts nebe...
27.08.2008 17:50:23
Thread-ID: 1005163
3 Beiträge
Formel immer nur in bestimmter Zelle
Katrin

Hallo Zusammen!
Folgendes Problem würde ich gerne lösen, weiß aber nicht wie :)
Ich habe in Spalte A in jeder Zeile Uhrzeiten stehen:
00:15:00
00:30:00
00:45:00
01:00:00
01:15:00
01:30:00
01:45:00
02:00:00
02:15:00
02:30:00
02:45:00
...
02.09.2008 10:30:00
Thread-ID: 1006672
3 Beiträge
Anzeige
Kommenare beim Klick in die leere Zelle anzeigen?
Selma

Hallo Leute,
ich möchte in Zellen der Spalte E und Spalte F die Kommmentare als errechnete Werte beim Klick in die Zelle anzeigen, wenn diese Zelle leer sind. Sind die Zelle gefüllt, dann soll der Kommentar nicht angezeigt werden.
Die Voraussetzung ist, dass in Zelle der Spalte D die Za...
11.10.2008 12:17:00
Thread-ID: 1015730
8 Beiträge
Makro nur in bestimmten Zellen
TomTom

Hi,
der folgende Code soll in der Spalte Q das Datum umformatieren. Nun habe ich aber auch in der Spalte Q auch leere Zellen drin und der Code schreibt dann in die leeren Zellen immer 01.01.1900 rein, obwohl sie eigentlich leer bleiben sollen.
Wie kann man den Code ändern, dass leere Ze...
13.11.2008 08:56:51
Thread-ID: 1024041
5 Beiträge
zählenwenn nur auf Teil einer Zelle basierend?
Sascha

Hallöchen,
folgendes Problem,
ich habe eine Artikelerfolgsauflistung (Alpha-Numerisch gefüllte Zellen) über den Bereich Tabelle3!A2-G99.
Über eine Lagerbestandsliste in Tabelle1!B2-B99, die ich per copy/paste täglich aktualisieren kann zählt mir das Programm automatisch die Menge, i...
13.11.2008 12:08:25
Thread-ID: 1024134
10 Beiträge
Zahl 1 bis 7 nur in Zelle eintragen dürfen
Korl

Hallo,
ich möchte in einem Zellbereich z.B. "B7:BI103" in den jeweiligen Zellen nur die Zahlen von "1 bis"7 eintragen dürfen und sofort den Cursor in der jeweiligen Zeile um eine Zelle nach rechts setzen lassen ohne "Enter" tippen zu müssen.
Den Bereich könnte ich mit Gültigkeitskriteri...
17.11.2008 19:55:00
Thread-ID: 1025380
8 Beiträge
Makro: PDF-Drucken automatischer Dateiname
Stewie

Hallo,
ich habe ein Makro erstellt, mit welchem ich meine Tabellenblatt mittels PDF-Maker "drucken" kann.
Funktioniert soweit auch ganz gut, nur muss ich den Dateinamen noch von Hand eingeben.
Ich möchte gerne, dass mir der Text von 2 Zellen in meiner Tabelle als Dateiname benutzt w...
18.11.2008 11:14:00
Thread-ID: 1025556
3 Beiträge

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
2
3
2
2
5
7
4
9
7
2
2
2
2
1
5
3
5
4
3
1
8
3
13
3
2