Jahreszahl aus Zelle lesen
Chris
Folgendes Makro öffnet Outlook und verschickt eine PDF Datei per Email. Nun soll Excel hinte dem Dateiname Test noch das Jahr aus Einers Zelle ausgelesen werden, Ergebnis wäre dann zum Beispiel: Test2011/2012
Der Zelkenbezugnist im Makro angegeben, funktioniert leider nicht, Das Datum wird leider nicht hinten drangehangen. Weiss md, eine Lösung?
Chris
Private Sub CommandButton1_Click()
Dim olapp As Object
Dim strDatNam As String
Dim Jahr As Worksheet
On Error GoTo Fehler
Application.DisplayAlerts = False
Jahr = Worksheets("Personalplanung").Range("ai7").Value
'Dateiname (im %TMP%-Verzeichnis):
strDatNam = Environ("TMP") & "\" & "test" & Jahr & ".pdf"
'pdf Erzeugen
Sheets(Array("Plan1", "Plan2", "Plan3")).Select
ActiveSheet.ExportAsFixedFormat _
Type:=xlpdf, _
Filename:=strDatNam, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
'EMail
Set olapp = CreateObject("Outlook.Application")
With olapp.CreateItem(0)
.to = Mailadressen(Sheets("Personalplanung").Range("D5:D54"))
'.to = Sheets("Personalplanung").Range("B56").Value
'.to = "empfänger@example.com"
'.cc = "mail1@example.com,mail2@example.com,mail3@example.com" 'optional Kopie an
'.bcc = "mail1@example.com,mail2@example.com,mail3@example.com" 'optional Blindkopie an
.Subject = "Aushangpläne" 'Betreff optional
'.HtmlBody = "HTML-Text" ' Body optional
.body = "Test"
'.ReadReceiptRequested = True 'optional Lesebestätigung anfordern
.Attachments.Add strDatNam
.Display
'.Send 'Sendet E-Mail
End With
Set olapp = Nothing
Kill strDatNam
Unload UserForm1
Exit Sub
Fehler:
MsgBox "Bitte erst die Pläne importieren!!!", vbInformation
Unload UserForm1
Application.DisplayAlerts = True
End Sub