Supportnet / Forum / Datenbanken
"speichern unter" als Makro
Frage
Hi ihr,
Sub neues_jahr()
ActiveWorkbook.SaveAs Filename:= _
"C:\WINNT\Profiles\MUELLERP\Desktop\
[b]Einsatzplan_fertig3.xls[/b]", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
End Sub
Dass hab ich als makro hinter eine Schaltfläche gelegt. Nur kommt beim abbrechen und bei Nein eine Fehlermeldung. Wie bekomm ich die Fehlermeldung denn weg?
Wie mach ich es, dass die Datei einen anderen Namen bekommt? also immer wenn man auf die Schaltfläche klickt, die Datei hochzählt? Einsatzplan_fertig3.xls; einsatzplan_fertig4.xls;...
Antwort 1 von TomKelly
Hallo xxxgomezxxx
Fehlermeldungen unterdrückst Du am einfachtsen mit
On Error Resume Next
Vielleicht nach der kritischen Programmstelle mit
On Error Goto 0
wieder einschalten.
Zum Hochzählen gibt es jede Menge Möglichkeiten. Su kannst Dir eine Tabelle anlegen, in welcher Du den letzten Wert zwischenspeicherst, Du kannst das Verzeichnis durchsuchen nach der höchsten Nummer (der Befehl um ein Vezeichnis zu durchsuchen lautet "Dir"), ...
Wenn ich aber den Dateinamen "Einsatzplan" lese, wäre es vielleicht hilfreich, das Datum zu verwenden, evtl. nur Jahr und Monat. Funktionen um die Werte zu erhalten sind:
Year(Date) / Month(Date) / Day(Date)
Das würde dann etwa so aussehen:
"C:\WINNT\Profiles\MUELLERP\Desktop\
Einsatzplan_fertig" & Year(Date) & "_" & Month(Date) & ".xls
Gruss
TomKelly
Fehlermeldungen unterdrückst Du am einfachtsen mit
On Error Resume Next
Vielleicht nach der kritischen Programmstelle mit
On Error Goto 0
wieder einschalten.
Zum Hochzählen gibt es jede Menge Möglichkeiten. Su kannst Dir eine Tabelle anlegen, in welcher Du den letzten Wert zwischenspeicherst, Du kannst das Verzeichnis durchsuchen nach der höchsten Nummer (der Befehl um ein Vezeichnis zu durchsuchen lautet "Dir"), ...
Wenn ich aber den Dateinamen "Einsatzplan" lese, wäre es vielleicht hilfreich, das Datum zu verwenden, evtl. nur Jahr und Monat. Funktionen um die Werte zu erhalten sind:
Year(Date) / Month(Date) / Day(Date)
Das würde dann etwa so aussehen:
"C:\WINNT\Profiles\MUELLERP\Desktop\
Einsatzplan_fertig" & Year(Date) & "_" & Month(Date) & ".xls
Gruss
TomKelly