---

Hy Leute,

ich habe eine Arbeitsmappe wo Zellenwerte aus einer anderen Datei abgefragt werden und später noch ein Makro über eine Button getartet wird.
Wenn alles aktualiesiert und der Makrodurchlauf beendet ist möchte ich das Dokument mit dem Dateiname Bestellung_[Datum von heute] abspeichern.

Wie kann ich das an das Ende von meinem Makro schreiben?

Und noch eins... Wenn ich das von Hand speichern unter mache und diese gespeicherte Datei nochmal zur Kontrolle öffne werde ich wieder abgefragt ob ich die Daten aktualiesieren will.
Kann man diese Aktualiesierungsabfrage auch beim beenden des Makros abstellen?

Bin für jeden Tipp dankbar...

------------------
Gruß
    Marco

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Code:

---

Private Sub CommandButton1_Click()
'Werte in einem Bereich werden statisch gemacht
Range("A1:Q37").copy
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Range("O10").Select 'nicht schön, da nur aufgezeichnet ;-)
     
    'speichern
    Dim dName$
    Set TB = ActiveWorkbook.Worksheets(1)
    eName = "Schulungsanmeldung " & TB.Range("E4") & ".XLS"
    dName = "\\Verzeichnisblabla\Schulungs-Anmeldungen_CATIA_V5_2003_2004\" & _
            eName    ' anstelle TB.Range("E4") kann auch date stehen -holt sich das aktuelle datum   
    ActiveWorkbook.SaveAs dName
'email
ThisWorkbook.SendMail _
   "emailanschulung@bla.de", eName ' email
End Sub

---

so was mache ich mit meinen Anmeldungen aus einer Ecxel-listerheraus
neues Blatt werte werden per sverweis() geholt , aber ohne verknüpfung abgespeichert und versand

gruss Thomas, nun ist aber Feierabend ;-)

[Diese Nachricht wurde von Thomas Harmening am 24. Feb. 2005 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Moin Thomas,

die Lösung werde ich in meine Mappe mal einbringen und testen.

Danke für den Code..... und die schnelle Antwort.

Da sieht man das hier Excelprofis 24/7 arbeiten

------------------
Gruß
    Marco

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP