Habe unteren Code von "Beverly gefunden.
Funktioniert auch.
Es versendet die Mail an: Cells(5, 1)
Nun möchte ich zusätzlich: CC: an Cells(8, 1)
Könnte mir dazu bitte jemand weiterhelfen?
Gruß
Heinz
Sub einzelnes_blatt_senden()
'* 24.08.06, 22.04.07 *
'* erstellt von Karin (Beverly), http://Excel-Inn.de*
'* Beverly_Forums@web.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 = "Tabelle versenden"
' 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("Tabelle1").Cells(5, 1), "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