Microsoft Excel

Herbers Excel/VBA-Archiv

xlDialogSaveAs Name definieren + prüfen

Betrifft: xlDialogSaveAs Name definieren + prüfen von: Daniel
Geschrieben am: 09.09.2020 12:03:34

Hallo Zusammen ich benötige Eure Hilfe bei einem Problem wo ich leider an meine Grenzen stoße:

Ich möchte eine Datei per Makro speichern und dabei einen Dateinamen vorschlagen. Anschließend sollen Daten aus der Datei in eine Datenbank übertragen werden und bei Bedarf eine PDF der Datei erzeugt werden, welche per Mail verschickt werden soll.

Mein Problem
- wie kann ich einen Namen anhand bestimmter Werte aus den Zellen vorschlagen
- sobald eine Zelle keinen Wert besitzt soll nur die Struktur des Dateinamens mit Dummy vorgeschlagen werden
- sobald der Pfad + Dateiname zu zulässige Anzahl von 255 Zeichen überschreitet soll eine Fehlermeldung erscheinen
(Dies funktioniert bei dem konventionellen "Speichern unter" Variante, nicht aber bei meiner

- kann ich den Code sonst noch optimieren, dass dieser Schneller abläuft?

im Folgenden Findet Ihr den relevanten Abschnitt des Codes. Im Anhang dann die komplette Datei.

Danke für eure Hilfe!


'_______________________________
'Dateinamen vorschlagen
On Error GoTo vorschlag
If Lab_nummer = True And Teilenummer_ZSB = True And Bezeichnung = True And Farbkennung = True   _
_
And TGS = True And Datum = True Then
    userresponce = Application.Dialogs(xlDialogSaveAs).Show(Lab_nummer & Format("-") _
                & Teilenummer_ZSB & Format("-") _
                & Bezeichnung & Format("-") _
                & Farbkennung & Format("-") _
                & TGS & Format("-") _
                & Datum)
Else:
vorschlag:   userresponce = Application.Dialogs(xlDialogSaveAs).Show("LIMS-Teilenummer- _
Bezeichnung-Farbkennung-(FKZ-Narbe)-TGS-Datum")
End If

'Überprüfen ob Abbrechen gedrückt wurde, falls Ja Code beenden
If userresponce = False Then
    GoTo ende
End If
'_______________________________

Betrifft: AW: xlDialogSaveAs Name definieren + prüfen
von: Daniel
Geschrieben am: 09.09.2020 12:05:55

hier die Datei


https://www.herber.de/bbs/user/140143.xlsm

Beiträge aus dem Excel-Forum zum Thema "xlDialogSaveAs Name definieren + prüfen"