xlDialogSaveAs Name definieren + prüfen
09.09.2020 12:03:34
Daniel
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
'_______________________________
Anzeige