Hallo Meikel,

sorra, aber Du stellst Deine Fragen immer so, dass diese nur schwer verständlich sind.

Was hat das Ändern der Adresse in den Zellen damit zu tun, dass eventuell keine E-Mail von Excel aus versandt werden kann?

Bitte schreibe etwas deutlicher, was Du genau meinst, damit man nicht ständig nachfragen muss.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Hallo Oliver,

ich versuchs nochmal etwas verständlicher zubeschreiben.

Ich habe grundsätzlich 2 Tabellen "Master" und "List".

In Tabelle "Master" stehen z.B. in A1:A5 die Emailadressen.
Diese "Tabelle" ist aber für den User grundsätzlich nicht sichtbar.

In Tabelle "List" steht ein Bezug zu Tabelle "Master" nämlich
Tabelle "List" A1 entspricht =Tabelle!MasterA1
Tabelle "List" A2 entspricht =Tabelle!MasterA2
Tabelle "List" A3 entspricht =Tabelle!MasterA3

usw.

In dieser Tabelle "List" sind nun die Emailadressen auch für den User sichtbar, lösen ab kein Maito: mehr aus.

Ich habe nun in Tabelle "List" in der Spalte B ein kleines Icon mit einem Umschlag und möchte, das wenn man auf den Umschlag in Tabelle "List" B1 klickt, sich Outlook öffnet und die Adresse aus Tabelle "List" A1 reingeschrieben wird.

Hoffe sehr ich konnte es erklären.

Vielleicht hast Du ja eine Idee
Danke Dir vielmals vorab für Deine Mühe,

Gruß, Michael

Hallo Michael,

nachfolgend das Makro, welches Outlook öffnet und die Adresse aus Zelle A1 in die Empfängerzeile einfügt. Kopiere das Makro in ein StandardModul.

[b]Option Explicit

Sub E_Mail()
Dim Empfänger As String, Betreff As String
Dim OutApp As Object, Mail As Object, i
Dim ClpObj As DataObject
Dim Nachricht
Empfänger = Range("A1").Value
Betreff = "Testmail"
Set ClpObj = New DataObject
Set OutApp = CreateObject("Outlook.Application")
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = Empfänger
.Subject = Betreff
.Display
End With
Set OutApp = Nothing
Set Nachricht = Nothing
End Sub[/b]

Nun musst Du nur noch dem Briefumschlag sagen, dass er bei Anklicken das Makro ausführen soll. Das kriegst Du aber alleine hin.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Hi Oliver,

danke für den Code. Habe alles so einegrichtet. Bekomme aber beim Drücken auf das .gif ein Fehler beim Kompilieren:

Dim ClpObj As DataObject

Weißt Du was damit gemeint ist??

Viele Grüße, Michael

Hallo Michael,

sorry, hatte ich vergessen zu erwähnen, Du musst unter "Extras => Verweise" den Verweis "Microsoft Outlook xx.x Objekt Library aktivieren, da das Makro sonst nicht ausgeführt werden kann und es zu dieser Fehlermeldung kommt. Anstelle der Bezeichnung xx.x steht bei Dir die Versionsbezeichnung von Excel z.B. für Excel 2002 die Zahl 10.0 oder Excel 2003 die Zahl 11.0.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Hi Oliver,

hab ich gemacht. Funktioniert auch soweit.

Das Problem dabei ist, ich müßte für jeden Umschlag, den ich erstellt habe ein eigenes Makro hinterlegen, wo dann drinsteht

Empfänger = Range("A1").Value
Empfänger = Range("A2").Value
Empfänger = Range("A3").Value

usw.

Aber wahrscheinlich ist das nicht anders machbar, oder?

Herzlichen Dank für deine Mühe.

Viele Grüße, Michael

HAllo Meikel,

ja, das musst Du machen. Denn woher soll VBA wissen, wenn Du auf einen Umschlag klickst, welche Zelle die Empfängerdaten beinhaltet.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}