Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Dateinamen aus Zelle mit Bedingung

Dateinamen aus Zelle mit Bedingung
18.12.2008 14:02:47
Daniel
Hallo Leute,
ich brauche mal wieder Eure Hilfe:
Mit dem folgenden Makro (hier aus dem Forum) bilde ich den Dateinamen aus dem Zellinhalt; das klappt soweit ganz gut:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = True
Application.EnableEvents = False
Application.Dialogs(xlDialogSaveAs).Show ThisWorkbook.Path & "\" & Sheets(1).Range("A1")
Application.EnableEvents = True
End Sub


Dies ergibt mir die grundsätzliche Dateinamens-Struktur, wie eine interne Weisung es vorgibt.
Nun wird der Name aber je nach dem noch ergänzt (z.B. Lieferanten-Name oder Abteilung etc.); diese Angaben stehen jedoch nicht in der Datei, so dass ich das nicht automatisieren kann.
Weiter wird die Datei, nachdem sie erstellt wurde, noch von anderen Leuten weiter bearbeitet; beim Speichern nach dieser 2.Bearbeitung überschreibt mir das Makro den Dateinamen wieder mit dem Zellinhalt, die Ergänzungen sind verloren.
Ich suche nun eine Lösung, die beim Speichern prüft, ob der Dateiname "Vorlage.xls" heisst, und wenn ja, dann den Namen aus dem Sheet nimmt (wie im Makro), und wenn Nein, den aktuellen Dateinamen übernimmt.
Kann mir da jemand unter die Arme greifen?
Besten Dank
Daniel

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

Betreff
Datum
Anwender
Anzeige
AW: Dateinamen aus Zelle mit Bedingung
18.12.2008 14:09:00
Daniel
Hi
probier mal:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
if ThisWorkbook.Name = "Vorlage.xls" then
Cancel = True
Application.EnableEvents = False
Application.Dialogs(xlDialogSaveAs).Show ThisWorkbook.Path & "\" & Sheets(1).Range("A1")
Application.EnableEvents = True
end if
End Sub


Gruß, Daniel

AW: Dateinamen aus Zelle mit Bedingung
18.12.2008 14:17:00
Daniel
Hallo Daniel,
genau das hab ich gesucht, super!
Gruss
Daniel
Anzeige

338 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige