Objekt per VBA in Excel-Datei einfügen

Hallo Community, ich benötige Hilfe, vielleicht kann wer helfen oder ihr sagt mir: "No Way".
Ich kenne mich mit VBA fast garnicht aus und hoffe deshalb auf Eure Hilfe.
Ich bin in einem Stahlhandelsunternehmen für die Werkszeugnisverwaltung zuständig und habe selbige bereits von Anfang an mitbetreut und optimiert, soweit es mir möglich ist. Zur Versendung an unsere Kunden habe ich eine Excel Datei erstellt.
In Zelle A2 gebe ich eine Artikelnummer ein, anhand dieser wird mir dann per Index/Vergleich Zelle B2 und C2 mit der Artikelbeschreibung ausgefüllt. Das klappt super.
Nun muss ich in Spalte D2 einen Dateinamen eintragen und dann manuell die zugehörige Datei in Zelle E2 einfügen. Manuell funktioniert das alles, aber gibt es auch eine Möglichkeit, dass ich in Zelle D2 nur noch den Dateinamen manuell eingebe, sodass dann in Zelle E2 per Formel auf der Festplatte in einem Ordner nach dem Dateinamen gesucht wird und die Datei (PDF) als Objekt eingefügt wird?
Vielleicht kann jemand helfen?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub aaa() Const strPfad = "c:\DerOrdner\" 'anpassen If Dir(strPfad & Range("D2"), vbNormal) = "" Then MsgBox "Die Datei gibt es nicht!", vbInformation, "Gebe bekannt..." Else Range("E2").Select ActiveSheet.OLEObjects.Add Filename:=strPfad & Range("D2") End If End Sub

Sub aaa() Const strPfad = "Z:\temp\" 'anpassen If Dir(strPfad & Range("D6"), vbNormal) = "" Then MsgBox "Die Datei gibt es nicht!", vbInformation, "Gebe bekannt..." Else Range("E6").Select ActiveSheet.OLEObjects.Add(Filename:=strPfad & Range("D6"), Link:=False, _ DisplayAsIcon:=True, IconFileName:="T:\PFT\pft.ico", _ IconIndex:=0, IconLabel:="").Select End If End Sub

Sub aaa() Dim rng As Range Const strPfad = "Z:\temp\" 'anpassen Set rng = Range("A6") Do While rng "" If Dir(strPfad & rng.Offset(, 3) & ".pdf", vbNormal) = "" Then MsgBox "Die Datei gibt es nicht!", vbInformation, "Gebe bekannt..." Else rng.Offset(, 4).Select ActiveSheet.OLEObjects.Add(Filename:=strPfad & rng.Offset(, 3) & ".pdf", Link:=False, _ DisplayAsIcon:=True, IconFileName:="T:\PFT\pft.ico", _ IconIndex:=0, IconLabel:="").Select End If Set rng = rng.Offset(1) Loop End Sub

Habe aber leider nochmal paar Fragen:
Wie kann ich einen Ausschnitt aus diesem erstellten Arbeitsblatt an eine E-Mail anhängen? Ich habe diesen Code gefunden:

 Sub BereichAlsEMailVersenden()
Dim Empänger, Titel As String
Dim n As Range
Empfänger = "Test@aol.com"
Titel = "Excel-Bereich als Anhang"
Set n = Application.InputBox _
("Wählen Sie den Bereich aus, den Sie versenden möchten", Type:=8)
Range(n.Address).Select
Selection.Copy
Worksheets.Add
ActiveSheet.Paste
ActiveWorkbook.SaveAs "Anhang.xls"
Application.Dialogs(xlDialogSendMail).Show Empfänger, Titel
End Sub

1. Problem: Es wird zwar ein neues Arbeitsblatt des benötigten Ausschnittes erstellt, aber die Formatierung wird nicht eingehalten, das heißt, Zellgrößen passen nicht.
2. Kann ich den Code so ändern, dass ich jedes mal nach einer E-Mail gefragt werde?
Ich nhoffe, das ist nicht zu viel verlangt... ;-)

Beliebteste Forumthreads (12 Monate)

Objekt per VBA in Excel-Datei einfügen

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

293 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Objekt per VBA in Excel-Datei einfügen

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

293 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread