Supportnet Computer
Planet of Tech

Supportnet / Forum / Tabellenkalkulation

zelle dateinamen





Frage

zelleninhalt beim Speichern einer Excel-Tabelle in den Dateinamen übernehmen!

Antwort 1 von Saarbauer

Hallo,

gleiches Problem

https://supportnet.de/threads/1070861

Gruß

Helmut

Antwort 2 von Noplies

Hallo Helmut,
danke für die schnelle Antwort.

Aber der o.g. Thread trifft nicht ganz mein Problem.

Ich habe folgendes Makro:
Sub Speichern()
ActiveWorkbook.SaveAs Filename:="d:\Ordner\...\Rechnung" & Cells(17, 7).Value
End Sub

Dieses Makro funktioniert einwandfrei beim Debuggen und wenn ich es manuell ausführe.

Aber diese Prozedur sollte autom. beim Speichern
ablaufen.
Wo liegt mein Fehler?

Beste Grüße
Steffen

Antwort 3 von schnallgonz

Moin,
Du musst Dein Makro als Ereignis aufrufen. Dazu in der VBA-Umgebung Doppelklick im linken oberen Fenster auf "DieseArbeitsmappe" und im rechten Codefenster folgendes Ereignis schreiben:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.DisplayAlerts = False
 ActiveWorkbook.SaveAs FileName:="d:\schreibtisch" & Cells(17, 7).Value
Application.DisplayAlerts = True
End Sub

Application.DisplayAlerts klemmt die üblichen Warnmeldungen beim Überschreiben ab.

MfG
schnallgonz

Ich stimme mit der Mathematik nicht überein.
Ich meine, daß die Summe von Nullen eine gefährliche Zahl ist. (S.J. Lec)
Signatur und Textformatierungen wurden mit SNTool V1.2.14 erstellt


Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: