Jetzt seh ich das Problem, du musst schon die Datei anhängen welche du als pdf speicherst.
Dateiname verwendest du gar nicht.
Mailattacjment = abelle1.Range("o3").Value & "\" & Tabelle1.Range("o4").Value & ".pdf
Dann gehts