Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1892to1896
1892to1896
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Speichermenü Punkte erlauben

Forumthread: Speichermenü Punkte erlauben

Speichermenü Punkte erlauben
25.07.2022 15:40:25
kurt
Hallo Fachfrauen und Männer,
ich habe mit Unterstützung hier aus dem Forum ein Speichermakro erstellt.
Wenn ich jetzt in meiner Textbox auf der Userform z.B.
t.r. it works
eingebe, wird Fehlermeldung angezeigt. Laufzeitfehler 1004
Application.DisplayAlerts = False 'Warnung vor Überschreiben abschalten
ActiveWorkbook.SaveAs filename:=VerzOrd & "\" & VerzNam
Application.DisplayAlerts = True
Der Pfad und Verzeichnisname wird im Makro Richtig angezeigt !
gruß kurt b
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Speichermenü Punkte erlauben
25.07.2022 15:56:50
ChrisL
Hi Kurt
Unerlaubte Sonderzeichen gibt es schon, aber Punkte zählen nicht dazu.
Mal testen ob der Pfad und der Dateiname vollständig/korrekt sind

MsgBox VerzOrd & "\" & VerzNam
Und hier ein Beispiel inkl. Dateiname:

Sub t()
Dim VerzOrd As String
Dim VerzNam As String
Dim DateiNam As String
VerzOrd = "C:"
VerzNam = "einPfad\t.r. it works"
DateiNam = "te.st.xlsm"
ActiveWorkbook.SaveAs Filename:=VerzOrd & "\" & VerzNam & "\" & DateiNam, FileFormat:=xlOpenXMLWorkbookMacroEnabled
End Sub
cu
Chris
Anzeige
DateiN = ThisWorkbook.Name ist kompl.
25.07.2022 16:40:03
kurt
Hallo Chris,
habe dies:
DateiN = ThisWorkbook.Name
somit xlsm vorhanden, wird auch angezeigt.
mfg kurt b
AW: DateiN = ThisWorkbook.Name ist kompl.
25.07.2022 16:44:40
ChrisL
Hi Kurt
Was genau die Störung verursacht, kann ich aus der Ferne auch nicht beurteilen (vielleicht ein Backslash der fehlt). Aber ich nehme an, dass es nicht am Punkt liegt (kannst ja mal ohne Punkt testen).
Mal den ganzen Dateipfad inkl. Name in eine MsgBox (oder besser Debug.Print) ausgeben und genau prüfen/vergleichen.
cu
Chris
Anzeige
Danke an ALLE -)
25.07.2022 17:19:27
kurt
Hallo zusammen,
es war der Fehler vom Kollegen, ein Lehrzeichen mehr im Dateinamen.
Alles gelöscht und Verzeichnis neu erstellt, alles einwandfrei.
mfg
kurt b
AW: Speichermenü Punkte erlauben
25.07.2022 15:57:29
Nepumuk
Hallo Kurt,
gib einfach die Dateiendung mit an.
Gruß
Nepumuk
Dateiendung ist vorhanden.
25.07.2022 16:41:07
kurt
Hallo Nepumuk,
Dateiendung ist vorhanden, mit DateiN = ThisWorkbook.Name
gruß kurt b
Anzeige
;

Beliebteste Forumthreads (12 Monate)

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