Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Zellnamen beim Speichern mitgeben
zurück: Ordner auslesen und entaltene Dateien in Excel auflisten? weiter: Prüfen, ob Wert in Tabelle Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Offen Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
seppel2010
Im Profil kannst Du frei den Rang ändern


Verfasst am:
15. Jan 2014, 10:05
Rufname:

Zellnamen beim Speichern mitgeben - Zellnamen beim Speichern mitgeben

Nach oben
       Version: Office 2010

Hallo zusammen,

ich habe mal eine ganz kurze Frage:
Und zwar habe ich folgenden Code um meine Exceltabelle an einem vordefinierten ort abzuspeichen.
Ich würde jetzt gerne im Speichernamen zwei Zellen mit angeben ( KW /Jahr).
Wie kann ich dies im folgenden Code unterbringen?
Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Application.EnableEvents = False

ThisWorkbook.Save

Application.DisplayAlerts = False

ThisWorkbook.SaveCopyAs "w:\" & ThisWorkbook.Name & ".xls"

Application.DisplayAlerts = True

Application.EnableEvents = True

End Sub



Vielen Dank erstmal und gruß Sebastian
Phelan XLPH
Fortgeschritten


Verfasst am:
15. Jan 2014, 10:16
Rufname: Phelan


AW: Zellnamen beim Speichern mitgeben - AW: Zellnamen beim Speichern mitgeben

Nach oben
       Version: Office 2010

Hallo,

Code:
Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
   
    Dim KW As Variant
    Dim Jahr As Variant
   
    KW = ThisWorkbook.Worksheets("Tabelle1").Range("A1").Value   ' anpassen
    Jahr = ThisWorkbook.Worksheets("Tabelle1").Range("A2").Value ' anpassen
   
    Application.EnableEvents = False
   
    ThisWorkbook.Save
   
    Application.DisplayAlerts = False
   
    ThisWorkbook.SaveCopyAs "w:\" & ThisWorkbook.Name & " " & KW & "-" & Jahr & ".xls"
   
    Application.DisplayAlerts = True
   
    Application.EnableEvents = True

End Sub

_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
seppel2010
Im Profil kannst Du frei den Rang ändern


Verfasst am:
15. Jan 2014, 10:56
Rufname:

AW: Zellnamen beim Speichern mitgeben - AW: Zellnamen beim Speichern mitgeben

Nach oben
       Version: Office 2010

Vielen Dank. Funktioniert einwandfrei:-)

Eine Frage habe ich noch, wenn ich dieses im u.g. Code unterbringen möchte, so dass die KW und das Jahr im Subjekt und im Body ebenfalls erscheint, wie würde hier der Code aussehen?

Sub Main()
Dim objOutApp As Object
On Error GoTo Fin
Application.ScreenUpdating = False
ThisWorkbook.Worksheets(Array("Dortmund", "Münster", "Hagen")).Copy
With ActiveWorkbook
.ExportAsFixedFormat 0, Left(ThisWorkbook.FullName, _
(InStrRev(ThisWorkbook.FullName, ".") - 1))
.Close False
End With
Set objOutApp = CreateObject("Outlook.Application")
With objOutApp.CreateItem(0)
.To = "Sebastian.Wegner@gmx.de"
.Subject = "This is the subject"
.Body = "See the attached PDF file with the last figures" _
& vbNewLine & vbNewLine & "Regards Chef"
.Attachments.Add Left(ThisWorkbook.FullName, _
(InStrRev(ThisWorkbook.FullName, ".") - 1)) & ".pdf"
.Display ' ODER .Send für versenden
End With
Fin:
Set objOutApp = Nothing
Application.ScreenUpdating = True
If Err.Number <> 0 Then MsgBox "Error: " & _
Err.Number & " " & Err.Description
End Sub

Vielen Vielen Dank für die Info.

Gruß Sebastian
seppel2010
Im Profil kannst Du frei den Rang ändern


Verfasst am:
15. Jan 2014, 12:21
Rufname:


AW: Zellnamen beim Speichern mitgeben - AW: Zellnamen beim Speichern mitgeben

Nach oben
       Version: Office 2010

Würde halt nur gerne noch die KW und das Jahr in die Betreffzeile von der e-Mail einfügen! Kann mir da vielleicht jemand helfen?

Gruß Sebastian
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Formel als Text speichern, benutzen 1 kalein 695 31. Okt 2010, 19:55
Zero Formel als Text speichern, benutzen
Keine neuen Beiträge Excel Formeln: geänderte Zellen farbig anzeigen,nach speichern wieder neutr 4 KruemelZini 1197 04. Sep 2010, 15:30
KruemelZini geänderte Zellen farbig anzeigen,nach speichern wieder neutr
Keine neuen Beiträge Excel Formeln: Eingaben in Kalender speichern 0 droelfer 570 10. Jun 2010, 14:02
droelfer Eingaben in Kalender speichern
Keine neuen Beiträge Excel Formeln: Formel aktualiesieren sich nur mit speichern! 2 Chlausbub 286 10. Jun 2010, 14:02
Chlausbub Formel aktualiesieren sich nur mit speichern!
Keine neuen Beiträge Excel Formeln: SVERWEIS - Tabellenblatt mit Werten speichern 2 sirrius2k 1085 18. Mai 2010, 08:13
Gast SVERWEIS - Tabellenblatt mit Werten speichern
Keine neuen Beiträge Excel Formeln: Hilfe bzgl. Datei speichern ohne Formeln aber mit Werten 1 megaron 1194 16. Nov 2009, 15:07
neopa Hilfe bzgl. Datei speichern ohne Formeln aber mit Werten
Keine neuen Beiträge Excel Formeln: Datenauswertung per SUMMENPRODUKT - Berechnen, Speichern 3 seventy7 1789 13. Jul 2009, 10:56
shift-del Datenauswertung per SUMMENPRODUKT - Berechnen, Speichern
Keine neuen Beiträge Excel Formeln: Jeden 60ten Wert speichern 2 Exceln050b 1405 13. Jun 2009, 18:08
Exceln050b Jeden 60ten Wert speichern
Keine neuen Beiträge Excel Formeln: Diagrammbeschriftung als Diagrammtyp mit speichern? 2 Praktikant_09 381 11. Jun 2009, 15:09
Gast Diagrammbeschriftung als Diagrammtyp mit speichern?
Keine neuen Beiträge Excel Formeln: Doppelte Einträge zusammenzählen und speichern 2 Frank5551 284 01. Jun 2009, 20:03
Frank5551 Doppelte Einträge  zusammenzählen und speichern
Keine neuen Beiträge Excel Formeln: bei befel"Drucken"nur einige Zeile speichern? 2 Dina 381 15. März 2009, 23:33
Gast bei befel"Drucken"nur einige Zeile speichern?
Keine neuen Beiträge Excel Formeln: Excel-Makro: Bearbeitungs-Datum und Bearbeiter speichern 2 madmole 3518 07. Okt 2008, 11:21
madmole Excel-Makro: Bearbeitungs-Datum und Bearbeiter speichern
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Access Tabellen