Emailadrssenliste wird nicht vollständig übernomme

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Emailadrssenliste wird nicht vollständig übernomme
von: Lisa
Geschrieben am: 02.09.2015 14:51:43

Hallo liebe Helfer, ich benötige bitte Eure Hilfe.
Ich versende aus Excel heraus eine Mail und suche mir den Adressaten aus einer Tabellenzelle mittels u.g. Codes.

Private Sub CommandButton5_Click()
Dim Nachricht As Object, OutApp As Object
Set OutApp = CreateObject("Outlook.Application")
Dim AWS As String
AWS = Environ("USERPROFILE ") & "\" & Sheets(1).Range("A1") & ".xls"
Dim i As Integer
Dim iZeile As Integer
Dim Empfänger As String
iZeile = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To iZeile
Empfänger = Empfänger & ";" & Sheets("Tabelle2").Cells(i, 3)
Next i
ThisWorkbook.SaveCopyAs AWS
Application.Visible = True
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
        .To = Empfänger
        '.Cc = ""
       .Subject = "bitte um Bearbeitung " & Sheets(1).Range("C63") & " " & Sheets(1).Range("H3") _
 & " " & Sheets(1).Range("F4") & " Test.xls"
       .Attachments.Add AWS
        .Body = "bitte um Bearbeitung!" & vbCrLf & ""
       .Display
End With
Set OutApp = Nothing
Set Nachricht = Nothing
End Sub
In meiner Tabelle2 habe ich in der Spalte3 untereinander pro Zelle mehrere Adressaten(Mailadredssen) stehen, diese ich gern übernehmen möchte.
Leider bekomme ich aber nicht mehr als zwei in das Adressfeld.
Was habe ich falsch gemacht bzw. nicht beachtet?
Hat hier jemand eine Idee und kann helfen?
LG Lisa

Bild

Betrifft: Emailadrssenliste wird nicht vollständig übernomme
von: Rudi Maintaire
Geschrieben am: 02.09.2015 14:58:30
Hallo,
ist Tabelle2 denn aktiv?

With Tabelle2
iZeile = .Cells(Rows.Count, 3).End(xlUp).Row
For i = 1 To iZeile
Empfänger = Empfänger & ";" & .Cells(i, 3)
Next i
End With
Empfänger = Mid(Empfänger, 2)

Tipp:
Dim komplett am Anfang des Codes, nicht mittendrin.
Vermeide Variablen mit Umlauten (hakt bei anderen Sprachversionen)
Gruß
Rudi

Bild

Betrifft: AW: Emailadressenliste wird nun übernommen
von: Lisa
Geschrieben am: 02.09.2015 15:28:49
Hallo Rudi, vielen Dank für deine Hilfe und Tips.
Ich habe alles entsprechend umgestellt und berücksichtigt und es klappt tadellos.
Vielen Dank, Lisa

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Emailadrssenliste wird nicht vollständig übernomme"