Hallo liebes Excel Team . . . ich bin neu hier und ein Anfänger, was Makros betrifft. Ich ahbe ir nun mal was selbst zusammengebaut, damit ich eine Tabelle als pdf
speichern kann und diese pdf dann direkt per Mail versenden kann. Den Dateinamen habe ich in Zelle "J2" eingetragen und die Mailadresse
steht in Zelle "J3". Diese beiden Angaben ändern sich immer dann, wenn ich in meiner Tabell einen entsprechenden Filter gesetzt habe. Das funktioniert auch
soweit . . . wenigstens etwas . . .

Wie gesagt, habe ich mir, aus diversen Seiten, einen Code zusammengebastelt. Leider aber habe ich dann einen Fehler beim Debuggen . . . und zwar in
der Zeile "ActiveSheet.ExportAs. . . . hier der gesamte Code - dabei hoffe ich, dass der Rest dann irgendwie funktioniert . . .
Wäre toll, wenn Ihr einem absoluten Anfänger unter die Arme greifen könnt. Schon jetzt ein großes DANKE.

Sub SpeichernUndSendenAlsPDF()
Dim OutApp As Object
Dim OutMail As Object
Dim SavePath As String
Dim FileName As String

' Pfad zum Speichern der PDF-Dateien
SavePath = "C:\DATEN_MaLo\"

' Dateiname aus Zelle J2
FileName = SavePath & Range("J2").Value & ".pdf"

' Speichern als PDF
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=FileName, Quality:=xlQualityStandard

' E-Mail erstellen
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

' Empfängeradresse aus Zelle J3
OutMail.To = Range("J3").Value

' Betreff und Nachricht
OutMail.Subject = "Betreff Übersicht"
OutMail.Body = "Anbei die Übersicht als pdf"

' Anhang hinzufügen
OutMail.Attachments.Add FileName

' E-Mail senden
OutMail.Send

' Aufräumen
Set OutMail = Nothing
Set OutApp = Nothing



End Sub