wer kann bei Problem helfen?
Folgender Code versendet per Mail ausgeblendete Tabellen, zumindest sollte er, aber es wird leider immer die gesamte Mappe (20 Tabellen) versendet. Wo liegt der Fehler?
Private Sub CommandButton3_Click()
Application.ScreenUpdating = False
Dim bytMsg As Byte
Dim outObj As Object
Dim Mail As Object
Dim wbKopie As Workbook
Dim i As Integer
'Anzeige für die Vorbereitung des Versandes der Tabellen
bytMsg = MsgBox("Datei wird nun für den Versand per E-Mail in neue Mappe kopiert." & vbLf & _
"bitte einen Augenblick gedult......! Dauer ja nach Rechnerleistung ?" & vbLf & _
"ca. 40 sec.", vbYesNo)
'Versendete Tabellen
Application.ScreenUpdating = False
Application.ShowWindowsInTaskbar = False
'Ausgabe eines Hinweistextes
Dim DateiName As String
Sheets(Array("Fin.-Anfrage", _
"Passwort (2)", _
"Fi-Plan (Neubau)", _
"Fi-Plan (Bestand)", _
"Grunddaten f. Tilg.-Berechnung")).Copy
With ActiveWorkbook
.SaveAs "Zukunftneu_a.xls"
DateiName = .FullName
.Sheets(2).Name = "Fin.-Anfrage"
.Sheets(1).Name = "Passwort (2)"
Sheets("Fi-Plan (Neubau)").Visible = xlVeryHidden
Sheets("Fi-Plan (Bestand)").Visible = xlVeryHidden
Sheets("Grunddaten f. Tilg.-Berechnung").Visible = xlVeryHidden
'Formel in Festwerte umwandeln nachdem im Postausgang
Application.CutCopyMode = False
Set wbKopie = ActiveWorkbook
With wbKopie.Sheets("Fin.-Anfrage")
.Range("C2:BJ277") = .Range("C2:BJ277").Value
End With
'Schließen der Datei nach Kopieren und legen in Postausgang
.Close False
End With
'Löscht kopierte Datei
Kill DateiName
Application.Dialogs(189).Show "info@ifvs-gmbh.de", ActiveSheet.Name
Application.ScreenUpdating = True
End Sub
Viele Dank
Gruß Torge