Dateiname aus bestimmten zellen zusammensetzen
08.08.2014 16:18:33
Nastja
folgendes Problem. habe folgenden Code, der eine bestimmte Registerkarte als Anhang an die angegebene E-Mail Adresse per Knopfdruck versendet.
Nun möchte ich aber, dass der Dateiname sich aus bestimmten Zellen der Tabelle1 zusammensetzt und als solche versendet wird.
Beispielsweise ist bei Tabelle 1 unter A1: name ; B1: Alter ; B3: Datum
Demnach sollte die datei beispielsweise als "Müller_34_08-08-2014.xls" versendet werden. Wie kann man dies umsetzen?
Danke im Voraus
Sub Worksheet_versenden()
Dim s As String
Dim b As String
Sheets("Tabelle xy").Copy
ActiveWorkbook.SendMail "test@test.de", "Hier Betreff eingeben"
Application.DisplayAlerts = False
ActiveWindow.Close
Application.DisplayAlerts = True
End Sub