Habe hier ein Super Makro zum Emailversenden eines Tabellenblatt von Beverly bekommen.
Nochmals Danke an Beverly.
Nun hätte ich ein paar Fragen dazu.
1. Sollte das zu versendende Tab.Blatt den Namen von Sheets Personalbesetung
C5 & Q5 & U5 haben.
2. Sollte der Shapes 6 gelöscht werden im neuen Sheets,bevor versendet wird.
3. Sollte der Betreff "Personalbesetung " & von Sheets Personalbesetung
C5 & Q5 & U5 haben.
Wäre mir dazu bitte jemand behilflich ?
Gruß
Heinz
Option Explicit
Sub einzelnes_blatt_senden()
'* 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 = "Personalbesetzung"
' 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("Personalbesetzung").Cells(5, _
26), "Diese Tabelle wurde als Mail versandt"
' 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