Hallo Zusammen,ich muss mich vorab entschuldigen, wenn ich mich umständlich oder falsch ausdrücke.
Ich bin absoluter Anfänger was Makro / VBA angeht.
Mit mehr Glück als Verstand, habe ich es hinbekommen, dass meine Rechnungen per Makro / VBA in einem Ordner, auf meinem Server gespeichert werden.
Dateiname setzt sich wie folgt zusammen:
Rechnungsnummer Name, Adresse, Rechnungsdatum.pdf
Informationen (Dateiname) bekommt Excel aus der Zelle AO1.
Makro:
Hier fehlt mir eine Fehlermeldung, wenn der Dateiname zum Beispiel ein „/“ enthält. Also das, was nicht in einem Dateinamen vorkommen darf.
Mein 2. Problem:
Beispieldatei:
011-23 Max Mustermann, Musterstraße 8, 55555 Musterstadt 20.04.2023.pdf
Pfad:
sPath = ThisWorkbook.Path & "\Rechnungen 2023"
In dem Übersichtsregister möchte ich durch Eingabe von einem Teil des Dateinamens, die pdf öffnen.
Im Regelfall soll die Rechnungsnummer als Teil-Name der pdf als Suchbegriff eingegeben werden. Genauso gut kann Name oder Datum eigegeben werden.
Das Problem hier: Max Mustermann kommt evtl. oft vor, ebenso kann die Rechnungsnummer sich mit einer Adresse oder einer anderen Eingabe überschneiden.
Keine Ahnung wie so eine Fehlermeldung aussehen kann oder soll.
Ob ich die Eingabe in einer Zelle oder im Eingabefeld mache, ist egal.
Vielleicht kann und möchte mir hier jemand helfen.
Auf alle Fälle vielen Dank an Alle die sich hier für mich Gedanken machen.
Sollte ich Informationen vergessen haben, kurz nachfragen.
Liebe Grüße an alle Leser
Carsten
Ich bin absoluter Anfänger was Makro / VBA angeht.
Mit mehr Glück als Verstand, habe ich es hinbekommen, dass meine Rechnungen per Makro / VBA in einem Ordner, auf meinem Server gespeichert werden.
Dateiname setzt sich wie folgt zusammen:
Rechnungsnummer Name, Adresse, Rechnungsdatum.pdf
Informationen (Dateiname) bekommt Excel aus der Zelle AO1.
Makro:
Visual Basic-Quellcode
- Dim sPath As String
- Dim PDF_NAME As String
- sPath = ThisWorkbook.Path & "\Rechnungen 2023"
- If sPath = "" Then
- MsgBox "Die Datei muß zuerst gespeichert werden"
- Exit Sub
- End If
- sPath = IIf(Right$(sPath, 1) = Application.PathSeparator, sPath, sPath & Application. _
- PathSeparator)
- On Error GoTo ENDE:
- Application.DisplayAlerts = False
- PDF_NAME = sPath & Range("AO1").Value & ".pdf" 'ANPASSEN
- If Not PDF_NAME = "Falsch" Then
- ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=PDF_NAME, Quality:=xlQualityStandard, _
- IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
- End If
- ENDE:
- Application.DisplayAlerts = True
- 'MsgBox ThisWorkbook.Path & "\Rechnungen 2023"
- End Sub
Hier fehlt mir eine Fehlermeldung, wenn der Dateiname zum Beispiel ein „/“ enthält. Also das, was nicht in einem Dateinamen vorkommen darf.
Mein 2. Problem:
Beispieldatei:
011-23 Max Mustermann, Musterstraße 8, 55555 Musterstadt 20.04.2023.pdf
Pfad:
sPath = ThisWorkbook.Path & "\Rechnungen 2023"
In dem Übersichtsregister möchte ich durch Eingabe von einem Teil des Dateinamens, die pdf öffnen.
Im Regelfall soll die Rechnungsnummer als Teil-Name der pdf als Suchbegriff eingegeben werden. Genauso gut kann Name oder Datum eigegeben werden.
Das Problem hier: Max Mustermann kommt evtl. oft vor, ebenso kann die Rechnungsnummer sich mit einer Adresse oder einer anderen Eingabe überschneiden.
Keine Ahnung wie so eine Fehlermeldung aussehen kann oder soll.
Ob ich die Eingabe in einer Zelle oder im Eingabefeld mache, ist egal.
Vielleicht kann und möchte mir hier jemand helfen.
Auf alle Fälle vielen Dank an Alle die sich hier für mich Gedanken machen.
Sollte ich Informationen vergessen haben, kurz nachfragen.
Liebe Grüße an alle Leser
Carsten