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

Zellinhalt an Dateinamen anhängen

Forumthread: Zellinhalt an Dateinamen anhängen

Zellinhalt an Dateinamen anhängen
28.09.2005 20:37:52
HansH
Hallo zusammen,
kann mir bitte jemand verraten wie ich folgenden Code (Manne52 und Hilbmann von heute)so ändere, dass statt der Jahreszahl eine fortlaufende Nummer aus dem Tabellenblatt "Forderung, Zelle A1" beim schließen/speichern der Datei angehängt wird?

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.SaveAs Filename:= _
"D:\Meine_Dateien_neu\Hans\Forderung\Forderung" & Year(Date) & ".xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
False, CreateBackup:=False
End Sub

Gruß
HansH
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellinhalt an Dateinamen anhängen
28.09.2005 20:44:49
cathy
Hallo Hans,
so müßte es gehen (wurde aber von mir nicht getestet):

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.SaveAs Filename:= _
"D:\Meine_Dateien_neu\Hans\Forderung\Forderung" & sheets("Forderung").range("A1").value & ".xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
False, CreateBackup:=False
End Sub

Gruß
Cathy
Anzeige
Klasse Cathy, funktioniert wunderbar o.T.
28.09.2005 20:48:13
HansH
.
oje, Fehler bei gleicher Zahl in A1
28.09.2005 21:17:02
HansH
Hallo Cathy,
funktioniert wirklich, deine Änderung. Jetzt habe ich aber ein nicht bedachtes Problem.
Wenn die Zahl in A1 gleich bleibt, kommt eine Abfrage, ob ich die Datei überschreiben möchte. Egal ob ich nein oder abbrechen sage, kommt folgender Hinweis:
Laufzeitfehler
"Die Methode 'SaveAs' für das Objekt'_Workbook' ist fehlgeschlagen"
und der ganze Code zwischen 

Sub und End 


Sub ist gelb markiert.
Weißt Du oder ein anderer wo der Fehler liegen könnte?
Anzeige
AW: oje, Fehler bei gleicher Zahl in A1
28.09.2005 22:24:14
Matthias
Hallo Hans,
ist kein Fehler im eigentlichen Sinn...
Wenn du die Abfrage nicht möchtest und immer überschreiben willst, setze ein Application.DisplayAlerts = False an den Anfang und ein Application.DisplayAlerts = True an den Schluss.
Wenn du die Abfrage behalten willst, schreibe es so:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
ActiveWorkbook.SaveAs Filename:= _
"D:\Meine_Dateien_neu\Hans\Forderung\Forderung" & sheets("Forderung").range("A1").value & ".xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
False, CreateBackup:=False
If Err.Number>0 Then MsgBox "Datei wurde nicht gespeichert!"
End Sub

Gruß Matthias
Anzeige
Danke Matthias, jetzt ist alles ok o.T.
28.09.2005 23:43:37
HansH
.
AW: Danke Matthias, jetzt ist alles ok o.T.
28.09.2005 23:45:33
Matthias
Hallo Hans,
mir ist noch aufgefallen, dass das "Cancel = True" unnötig ist.
Um Code zu sparen... ;-)
Gruß Matthias
Ups, falscher Thread! - o.T.
29.09.2005 00:04:53
Matthias
-
Anzeige

Beliebteste Forumthreads (12 Monate)

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