Bereichsnamen mit Blättern kopierbar?
08.09.2005 14:41:05
Tobias
in meiner Datei sind viele Sheets enthalten, bei denen die immergleichen Bereiche einen fortlaufenden Namen haben.
Diese Bereichsnamen sind wichtig für einzelne Funktionen in den Sheets.
Nun werden einzelne Sheets kopiert und als eigene Datei gespeichert und anschließend per E-Mail versendet.
Dabei gehen jedoch die Bereichsnamen und damit auch die Funktionen im Sheet verloren!
Deshalb 2 Fragen:
1.) gibt es eine Möglichkeit die Bereichsnamen mit zu kopieren, sodass dass einzelne sheet alle oder nur den dazugehörigen Bereichnamen in der Datei mitgespeichert hat?
Und falls nein,
2.) Wie kann ich dann die Komplette Datei kopieren?
Hier der dazugehörige Code:
Private Sub CommandButton400_Click()
Dim strPath As String
Dim strName As String
Dim strFile As String
Dim Nachricht As Object, OutApp As Object
Dim empfaenger As String
Dim Tab1 As String
Dim Tab2 As String
Dim Tab3 As String
strPath = "C:\Temp\" 'Pfad
strName = Sheets(3).Name & "_" & Sheets(3).Range("B3").Value 'Name
strFile = strPath & strName & ".xls" 'Dateiname
Application.ScreenUpdating = False
Sheets(3).Copy ' Blatt kopieren
Application.CutCopyMode = False
With ActiveWorkbook
.SaveAs strFile
Set OutApp = CreateObject("Outlook.Application")
Set Nachricht = OutApp.CreateItem(0)
empfaenger = ActiveSheet.PageSetup.RightFooter
With Nachricht
.attachments.Add strFile
.Display
End With
.Close
End With
Kill strFile 'Datei löschen
Application.ScreenUpdating = True
End Sub
Falls mir jemand helfen kann, bin ich ihm sehr dankbar!!!!
Viele Grüße
Tobias