Habe mir von Beverlys Webseite folgenden Code "besorgt", um ein Sheet automatisiert per Mail zu versenden:
Private Sub CommandButton1_Click()
'* 24.08.06, 22.04.07 *
'* erstellt von Karin, http://beverly.excelhost.de*
'* beverly@excelhost.de *
Dim strTabelle As String ' Variable für den Tabellennamen
Dim wsTabelle As Worksheet ' Variable für die Tabelle als Objekt
' Tabelle2 als Standard festlegen
strTabelle = "KONTOAUSZUG"
' Name der zu versendenen Tabelle abfragen
strTabelle = InputBox("Welches Blatt möchten Sie senden?" & vbCrLf & _
vbCrLf & "Bitte den Tabellennamen eingeben", , strTabelle)
' kein Abbruch der Eingabe
If strTabelle "" Then
' Schleife über alle Arbeitsblätter
For Each wsTabelle In ThisWorkbook.Sheets
' Name der Tabelle entspricht dem der zu versendenen Tabelle
If wsTabelle.Name = strTabelle Then
' Bildschirmaktualisierung aus
Application.ScreenUpdating = False
' Tabelle komplett kopieren
Sheets(strTabelle).Copy
' aktive Arbeitsmappe mit Mailbenachrichtigung "Diese Tabelle wurde als Mail _
versandt" versenden
ActiveWorkbook.SendMail ThisWorkbook.Worksheets("KONTOAUSZUG").Cells(5, 1), " _
KONTOAUSZUG ROKU MECHANIK GMBH - HALTER / GENERATOR"
' aktive Arbeitsmappe schließen ohne Speichern
ActiveWorkbook.Close False
' Bildschirmaktualisierung ein
Application.ScreenUpdating = True
' Schleife verlassen
Exit For
Else
' Tabelle mit dem eingegebenen Namen ist nicht vorhanden
If wsTabelle.Name = ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count).Name Then _
MsgBox "Diese Tabelle gibt es nicht"
End If
Next wsTabelle
End If
End Sub
Der CommandButton, der die Emailfunktion auslöst, wird aber ebenfalls auf das Sheet kopiert.
Gibt es eine Möglichkeit diesen auszublenden oder zu entfernen?
Vielen Dank für eure Hilfe
Gruß Gégga