Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1592to1596
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
Inhaltsverzeichnis

Speicherbefehl in Makro

Speicherbefehl in Makro
06.12.2017 16:48:17
drö
Hallo zusammen
In einem Excel-File haben wir ein Makro, welches eine Datei öffnet, diese mit Daten befüllt, speichert und schliesst. Das Makro hat in der Vergangenheit funktioniert, nun plötzlich nicht mehr. Wir haben nun ein Problem mit dem Abspeichern.
Beim Speichern ist der Pfad vorhanden. Der Dateiname soll das Makro mit dem Text aus Zelle A1 _
bilden. Aber er gibt mir jedesmal eine Fehlermeldung. Dieser Teil des Makros schaut wie folgt _
aus:

wbMaster.SaveAs Filename:= _
"R:\700 Finanzen & Personal\730 Personalwesen\Mitarbeiterbeurteilung\2018\Produzierte  _
Files\" & Cells(1, 1) & ".xlsm" _
', FileFormat:=xlOpenXMLWorkbookMacroEnabled

Gibt es einen Fehler? Kann dies mit Office 365 zu tun haben? (Weil es im letzten Jahr noch funktioniert hat.)
Danke für euren Input.
drö

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Speicherbefehl in Makro
06.12.2017 16:52:19
Hajo_Zi
nur wenige sehen was in Cells() steht, vielleicht liegt es daran?

Ich gebe keinen Dank für eine Rückmeldung, da ich durch solche Beiträge nicht meine Beitragszahl erhöhen muss.
Also ich schreibe keine Beiträge mit dem Betreff "Gerne u. Danke für die Rückmeldung. o.w.T."
Rückmeldung ist ja in der Heutigen Zeit nicht üblich und die wenigen die eine Rückmeldung geben,
mögen mir das verzeihen, das kein Danke für eine Rückmeldung kommt.
Beiträge von Werner, Luc, robert und folgende lese ich nicht.
AW: Speicherbefehl in Makro
06.12.2017 17:15:51
Luschi
Hallo drö,
ob der Pfad wirklich existiert, sollte man im Vba-Code prüfen:

Dim pfad As String
pfad = "R:\700 Finanzen & Personal\730 Personalwesen\Mitarbeiterbeurteilung\" & _
"2018\Produzierte Files\"
If Dir(pfad, vbDirectory) = "." Then
MsgBox "Pfad existiert!", 48
Else
MsgBox "Pfad existiert leider nicht!", vbAbortRetryIgnore
End If
Zudem gibt es einige Zeichen, die von Windows verweigert werden, als Pfad- bzw.
Dateiname zu dienen:
| : * \ / ? "
Steht also eines dieser Zeichen in der Zelle "A1", dann ist der Fehler schon vorprogrammiert.
Gruß von Luschi
aus klein-Paris
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige