Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1892to1896
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
1892to1896
1892to1896
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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
Anzeige
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

Links zu Excel-Dialogen

TextBox UserForm

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige