Durch Makro Link von Datei in eine Zelle einfügen.

Sub Ansicht() Worksheets("Emailsenden").Activate a = MsgBox("Are you sure?", vbYesNo) If a = vbNo Then Exit Sub Else Dim mOFT As Object Dim mMail As Object Set mOFT = CreateObject("Outlook.Application") Dim n As Integer For n = 3 To 5 If Cells(n, 6) = "Hallo" Then 'Vorlage Du Danke im Voraus

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Amir,
Deine Anfrage und der gepostete Code sind voller Rätsel und Unklarheiten.
Zitate:
... "Öffnen/Einfügen Fenster geht auf ... Was für ein Fenster? Willst du einfach eine Datei auf deinem Rechner suchen, für die dann ein Hyperlink eingefügt werden soll?
...Link von dieser Datei wird in die Zelle A1 eingefügt.... und
...für die Zellen M13 und M14 die jeweiligen Links durch Mausklick eingefügt... Ja was denn nun? A1, M13, M14 ? Welche Regeln bestimmen die Ausgabeziele? Sollen bereits bestehende Zellinhalte überschrieben werden?
Code:
Der Code ist nicht kompilierbar. Es gibt z.B. keine Else Sub Anweisung in VBA.
Was hat der Code mit Hyperlinks zu tun? Was soll mit dem Code erreicht werden?
Was nun der Zusammenhang zwischen Outlook und deiner Excel-Arbeitsmappe ist, bleibt uns völlig verborgen.
Versuche anhand einer Beispielmappe (ohne Code!) zu erläutern, was du genau ereichen willst.
Diese Beispielmappe ins Forum hochladen.
Wo (in welchen Zellen) werden welche Eingaben gemacht?
Was soll mit deren Inhalt verarbeitet/berechnet/ausgelöst werden?
Was ist das erwartete Resultat, bzw. wo sollen welche Ausgaben gemacht werden?
Gruess Hansueli

Sub Else verschiebt sich jedes mal nach unten. Es befindet sich eigentlich hinter Then Exit _ b> Es soll natürlich wie folgt aussehen: Sub 123 () Then Exit S*b Else End Sub *=u Die zuständigen Zellen sind M13 und M14, A1 war nur ein Beispiel. Und ja die Zellen sollen überschrieben werden. ... "Öffnen/Einfügen Fenster geht auf ... Was für ein Fenster? Willst du einfach eine Datei auf deinem Rechner suchen, für die dann ein Hyperlink eingefügt werden soll? Genau so und nicht anders!! :) Ich will durch Suche eine Datei (den Link davon) einfügen und nicht es selbstständig per hand machen. Ich kann leider die datei nicht hochladen. Vielen Dank im Voraus!

Also nochmal.
Es geht dabei darum, dass eine Reihe von Emails per VBA gesendet werden.
Die Vorlage wird in eine (*.oft) datei erstellen.
Es werden Zellen in excel ausgefüllt und die Emails werden mit den Namen der jeweiligen Personen und an die jeweiligen Adressen zugestellt.
Es funktioniert auch alles gut. Nur gibt es eine Sache was mich stört.
Die Vorlage muss ja irgendwo herkommen. Und dafür muss ich in den Zellen M13 und M14 ein ein Link eingeben. Sowas wie: C/XXX/Du.oft
Dann holt der sich die Vorlage und sendet ab bzw zeigt bei .display etwas an.
Aber ich will, wie Hansueli gesagt hat, die Datei durch klicks aufwählen.
Dabei soll der Link der Datei in die Zelle M13 eingefügt werden, damit ich es nicht händisch eintragen muss.
Wenn es weiterhin unklar sein sollte, dann bitte sagen was, damit ich es euch erläutern kann.
ich bitte um Antworten :)
Vielen Dank und viele Grüße

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) Dim fileName4Link If Target.Address = "$M$13" Or Target.Address = "$M$14" Then Cancel = True fileName4Link = Application.GetOpenFilename("Vorlage (*.oft), *.oft") If fileName4Link = False Then Exit Sub If Not IsEmpty(Target) Then Target.ClearHyperlinks Hyperlinks.Add anchor:=Target, Address:=fileName4Link, TextToDisplay:="Vorlage öffnen" End If End Sub

Sub Sie() Dim lngCount As Long With Application.FileDialog(msoFileDialogOpen) .AllowMultiSelect = True .Show For lngCount = 1 To .SelectedItems.Count Range("N14") = .SelectedItems(lngCount) Next lngCount End With End Sub

Beliebteste Forumthreads (12 Monate)

Durch Makro Link von Datei in eine Zelle einfügen.

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

356 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Durch Makro Link von Datei in eine Zelle einfügen.

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

356 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread