Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1480to1484
1480to1484
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Email Verteiler erstellen per Makro

Forumthread: Email Verteiler erstellen per Makro

Email Verteiler erstellen per Makro
18.03.2016 13:29:24
Princess88
Hallo liebe VBA_Freaks,
ich kenne mich leider noch nicht so gut mit VBA aus, deshalb benötige ich dringend eure Hilfe.
Ich möchte gerne einen Email Verteiler erstellen. Ich habe ein Tabellenblatt wo ich zu den Abteilungen die Email Adressen vorgebe.
Ich wünsche mir ein Makro, dass die Spalte A nach der vorgegebenen Abteilung überprüft und die Email Adressen dann mit Semikolon in die "An" Zeile setzt und diese Verteiler in eine Variable speichert:
SpalteA: SpalteB:
Vertrieb xy@welt.de
Vertrieb xyz@welt.de
Einkauf abc@welt.de
Vertrieb= (hier fehlt mir der Makro Code)
vergleiche ob in Spalte A "Vertrieb" steht und gebe die EmailAdressen aus
Spalte B aus(xy@welt.de;xyz@welt.de)
Am Ende möchte ich die Variable dann in mein Email Makro einsetzen:
With olApp.CreateItem(0)
.To = Vertrieb
Ich hoffe mir kann jemand helfen, habe echt ein Brett vor dem Kopf.
Viele Grüße
Princess88

Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Email Verteiler erstellen per Makro
18.03.2016 13:40:48
Michael
Hallo!
Schematisch, so:
Sub Verteiler()
Dim Vertrieb As String
Dim Adr As Range
With ActiveSheet
For Each Adr In .Range("A1:A" & .Cells(.Rows.Count, 1).End(xlUp).Row)
If Adr.Text = "Vertrieb" Then
Vertrieb = Vertrieb & Adr.Offset(0, 1).Text & ";"
End If
Next Adr
End With
Vertrieb = Left(Vertrieb, Len(Vertrieb) - 1)
Debug.Print Vertrieb
End Sub
LG
Michael

Anzeige
AW: Email Verteiler erstellen per Makro
18.03.2016 14:38:37
Princess88
Hallo Michael,
du bist ein Schatz und hast mir das Wochenende gerettet! Das funktioniert super!
DANKEEEEEE
Grüße,
Princess88

Gern! Danke fd Rückmeldung, Schönes WE owT
18.03.2016 14:43:15
Michael

AW: Email Verteiler erstellen per Makro
18.03.2016 15:10:29
Princess88
Ne kleine Frage ist aber gerade noch aufgetaucht. Wie ist es denn, wenn ich mehrere Abteilungen
abfragen möchte, mit "or" funktioniert es leider nicht. Siehe unten:
Sub Verteiler()
Dim Vertrieb As String
Dim Adr As Range
With ActiveSheet
For Each Adr In .Range("A1:A" & .Cells(.Rows.Count, 1).End(xlUp).Row)
If Adr.Text = "Vertrieb" or "Controlling" or "Einkauf" Then
Vertrieb = Vertrieb & Adr.Offset(0, 1).Text & ";"
End If
Next Adr
End With
Vertrieb = Left(Vertrieb, Len(Vertrieb) - 1)
Debug.Print Vertrieb
End Sub
Danke ;-)

Anzeige
AW: Email Verteiler erstellen per Makro
18.03.2016 15:19:11
Princess88
Es hat sich gerade noch eine kleine Frage ergeben, wie ist es denn, wenn ich mehrere Abteilungen abfragen möchte, z.B. "Vertrieb" und "Einkauf" und "Versand"?

AW: Email Verteiler erstellen per Makro
18.03.2016 15:23:09
Princess88
Es hat sich gerade noch eine kleine Frage ergeben, wie ist es denn, wenn ich mehrere Abteilungen abfragen möchte, z.B. "Vertrieb" und "Einkauf" und "Versand"?

Anzeige
AW: Email Verteiler erstellen per Makro
18.03.2016 15:23:52
Princess88
Es hat sich gerade noch eine kleine Frage ergeben, wie ist es denn, wenn ich mehrere Abteilungen abfragen möchte, z.B. "Vertrieb" und "Einkauf" und "Versand"?

AW: Email Verteiler erstellen per Makro
18.03.2016 15:35:42
Steve
Hallo Princess,
bitte höre auf alle paar Minuten die gleiche Anfrage zu posten. Wenn du deinen Browser mit F5 aktualisierst, sieht auch du deine vorherigen Beiträge.
Damit du nicht erneut schreiben musst, will ich dir kurz helfen:
Eine If-Bedingung braucht immer einen oder mehrere Wahrheitswerte, welche mit "Or" bzw. "And" verbunden werden können. Der Text "Einkauf" ist leider kein Wahrheitswert, du musst stattdessen wieder eine Gleichung bilden, deren Ergebnis dann wahr oder falsch sein kann. In deinem Fall willst du ja Adr.Text prüfen, also dann so:
If Adr.Text = "Vertrieb" Or Adr.Text = "Einkauf" Or Adr.Text = "Versand" Then
lg Steve

Anzeige
Wobei sich hier eine Fall-Auswahl aufdrängt...
18.03.2016 20:10:31
Michael
Princess (und Steve),
etwa so:
Sub Verteiler()
Dim Vertrieb As String
Dim Adr As Range
With ActiveSheet
For Each Adr In .Range("A1:A" & .Cells(.Rows.Count, 1).End(xlUp).Row)
Select Case Adr.Text
Case Is = "Vertrieb", "Einkauf", "Versand"
Vertrieb = Vertrieb & Adr.Offset(0, 1).Text & ";"
Case Else
'ggf. anderer Code für andere Abteilungen
End Select
Next Adr
End With
Vertrieb = Left(Vertrieb, Len(Vertrieb) - 1)
Debug.Print Vertrieb
End Sub
LG und schönes Wochenende
Michael
Anzeige
;

Forumthreads zu verwandten Themen

Email an CC Verteiler
Alex

Hallo Excelisten,
ich habe eine Arbeitsmappe, wo nach Auswahl einer Firma die Arbeitsmappe an diese gesendet wird. Hierfür habe ich dann ein Tabellenblatt "Parameter" wo die E-Mailadressen der Empfänger hinterlegt sind.
Die VBA holt sich dann aus dem Tabellenblatt die nötige Emailadres...
27.04.2009 08:03:34
Thread-ID: 1071273
4 Beiträge
Aus Excel-Mappe pdf erstellen und per Outlook vers
jensP

Guten Morgen,
hat jemand zufällig einen VBA-Code, der eine eine Excel-Mappe in pdf umwandelt und dann diese erstellte pdf-Datei automatisch per Outlook an vorgegebene Empfänger versendet.
Gruß, jensP
25.09.2009 13:23:51
Thread-ID: 1105136
2 Beiträge
Outlookmail aus Excel versenden
Peter

Hallo
ich erstelle von Excel aus mit VBA ein neues Mail in Outlook und versende es
Auszug:
Text = "Hier die Dateien"
Bereich = Sheets("Basis").Range("F19:H23") '? in Text einfügen
Sheets("Basis").Range("F19:H23").Copy '? in Text einfügen
Se...
07.10.2009 09:33:30
Thread-ID: 1107734
2 Beiträge
Hyperlink in Mail erstellen
einfachf

Hallo Zusammen,
ich habe ein kleines Problem und hoffe ihr könnt mir helfen.
Ich habe in einem Excel-Blatt einen Link erzeugt
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
pfad & Datei
Cells(CellCount, 3).Select
Nun möchte ich diesen Link per Mail versend...
11.03.2010 10:47:44
Thread-ID: 1145038
5 Beiträge
aus abgespeicherten Emails eine Liste erstellen
niitaka


Hallo zusammen,
für unsere Pfojektabwicklung versuche ich gerade, eine EMail-Datenbank in Excel zu erstellen!
Dazu wird der gewünschte Pfad eingegeben und darin nach allen abgespeicherten EMails im msg-Format gesucht.
Die Mails werden derzeit nur mit Ihrem Dateinamen inkl. Hype...
14.04.2010 12:16:37
Thread-ID: 1151704
5 Beiträge
Arbeitsmappe per Verteiler mailen
Andre

Hallo Forumteilnehmer,
bin lange nicht mehr hier gewesen, heute komme nur mal wieder nicht weiter. Habe mein Problem bereits im Archiv gesucht, allerdings nach langem suchen nichts gefunden. Vielleicht kann mir hier einer von euch helfen.
Ich möchte eine Arbeitsmappe per Mail (Outlook)...
30.07.2010 15:09:36
Thread-ID: 1169721
4 Beiträge
E Mail Verteiler von Excel nach Outlook
Excel

Hallo zusammen,
in meiner Adressenliste habe ich verschiedene Gruppen.
Ich möchte nach einer bestimmten Gruppe filtern (was nicht das Problem ist) und dann
eine Mail an alle Emailadressen aus der gefilterten Gruppe per Outlook verschicken.
Ist dies möglich? Und wenn ja, wie?
...
14.01.2011 15:25:37
Thread-ID: 1195630
2 Beiträge
Anzeige
Excel Datei an email Verteiler senden
Tobiax

Hallo!
Ich habe eine Excel Datei. Diese möchte ich gern per Makro als Email Anhang versenden.
Die Datei soll immer den gleichen Text und die selbe Betreff-Zeile haben.
Falls ebenfalls noch möglich soll als Empfänger eine Gruppe aus Outlook 2010 Adressbuch genommen werden.
Ist di...
18.10.2011 15:39:08
Thread-ID: 1234349
3 Beiträge
Email-Versand & feste Nummerierung sicherstellen
slopor

Hallo zusammen,
habe 2 Probleme in meiner Excel-Tabelle :-(
Wie schaffe ich es dass wenn ich in der Zeile A8 oder A9 beispielsweise bin und darunter eine neue Zeile erstellen will (Mit New-Point Button), dass dann eine Fehlermeldung kommt "Bitte in die leere, knallrote Zeile klicken (a...
26.10.2011 09:56:26
Thread-ID: 1235334
13 Beiträge
Einfache HTML-Emailvorlage aus Excel erstellen
Thomas

Hallo liebes Forum,
ich habe zu diesem Thema schon einige Beiträge gefunden, bislang aber noch keine Lösung für meinen Standard-Fall. :)
Ich möchte beim Klick auf einen Button in einer Tabelle gerne eine einfache Email erstellen (nicht versenden), die einen bestimmten Inhalt enthalten...
24.07.2012 20:20:43
Thread-ID: 1272422
3 Beiträge
Emailverteiler/Makro zu langsam
Sebastian

Hallo Excelprofis,
für das Versenden eines Formulars benötige ich eine Verteilerliste, die ich mit Hilfe von Checkboxes generieren möchte. Auf meinem Sheet befinden sich acht von diesen. Für jede Box nutze ich diesen Code:
Private Sub CheckBox1_Click() 'Kontrollkästchen ansprechen 'S...
30.10.2013 15:09:26
Thread-ID: 1336541
12 Beiträge
Emailverteiler aus Makierten Zellen
Stefan

Hallo
ich benütze unten aufgeführtes Makro erfolgreich
jetzt müsste ich zur perfektion nur noch die Mailempfänger variabel gestallten.
d.h. es sollten aus der (Tabelle 1) Spalte B die ausgewählt/Makierten Zellen (Welches Mailadressen sind) als Mailempfänger sowie aus Spalte C (z....
10.08.2014 20:17:22
Thread-ID: 1375541
4 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Email Verteiler aus Excel erstellen mit VBA

Schritt-für-Schritt-Anleitung

  1. Öffne Deine Excel-Datei mit der Tabelle, in der sich die E-Mail-Adressen befinden.
  2. Drücke ALT + F11, um den VBA-Editor zu öffnen.
  3. Füge ein neues Modul hinzu: Klicke mit der rechten Maustaste auf "VBAProject (DeinDateiname)" > Einfügen > Modul.

  4. Kopiere den folgenden Code in das Modul:

    Sub Verteiler()
    Dim Vertrieb As String
    Dim Adr As Range
    With ActiveSheet
        For Each Adr In .Range("A1:A" & .Cells(.Rows.Count, 1).End(xlUp).Row)
            If Adr.Text = "Vertrieb" Or Adr.Text = "Einkauf" Or Adr.Text = "Versand" Then
                Vertrieb = Vertrieb & Adr.Offset(0, 1).Text & ";"
            End If
        Next Adr
    End With
    Vertrieb = Left(Vertrieb, Len(Vertrieb) - 1)
    Debug.Print Vertrieb
End Sub
  5. Schließe den VBA-Editor und kehre zu Excel zurück.
  6. Führe das Makro aus: Gehe zu Entwicklertools > Makros > wähle Verteiler und klicke auf Ausführen.

Jetzt hast Du erfolgreich einen E-Mail Verteiler aus Deiner Excel-Liste erstellt!

Häufige Fehler und Lösungen

  • Fehler: "Typ nicht definiert"

    • Stelle sicher, dass Du alle Variablen korrekt deklariert hast. In VBA müssen Variablen vor der Verwendung deklariert werden.

  • Problem: E-Mail-Adressen werden nicht korrekt zusammengefügt

    • Überprüfe, ob die Adressen in der richtigen Spalte stehen (Spalte B in diesem Beispiel).

  • Fehler bei der Verwendung von Or

    • Stelle sicher, dass Du jede Bedingung korrekt formulierst. Die richtige Syntax ist: If Adr.Text = "Vertrieb" Or Adr.Text = "Einkauf" Then.

Alternative Methoden

  1. Verwendung von Select Case:

    Select Case Adr.Text
    Case "Vertrieb", "Einkauf", "Versand"
        Vertrieb = Vertrieb & Adr.Offset(0, 1).Text & ";"
End Select

    Dies kann die Lesbarkeit des Codes verbessern.

  2. E-Mail Verteiler aus Excel Tabelle erstellen: Du kannst auch direkt in Outlook einen Verteiler erstellen, indem Du die Kontakte aus Excel importierst.

Praktische Beispiele

  • Ein E-Mail Verteiler für verschiedene Abteilungen:

    If Adr.Text = "Vertrieb" Or Adr.Text = "Marketing" Then

    Diese Zeile kann einfach angepasst werden, um mehr Abteilungen zu berücksichtigen.

  • Verwendung eines Makros für Outlook:

    With olApp.CreateItem(0)
    .To = Vertrieb
    .Subject = "Betreff"
    .Body = "Nachrichtentext"
    .Display
End With

    Dadurch wird der Verteiler direkt in Outlook verwendet.

Tipps für Profis

  • E-Mail Verteiler einrichten in Outlook: Du kannst auch eine Verteilerliste in Outlook direkt erstellen. Gehe zu Personen, wähle Neue Kontaktgruppe und füge die E-Mail-Adressen hinzu.

  • Makros automatisieren: Du kannst das Makro so einstellen, dass es automatisch ausgeführt wird, wenn Du die Excel-Datei öffnest.

FAQ: Häufige Fragen

1. Wie kann ich E-Mail Verteiler aus einer Excel-Liste erstellen? Du kannst dies mit VBA tun, indem Du die E-Mail-Adressen aus einer bestimmten Spalte auswählst und sie in eine Variable speicherst.

2. Kann ich E-Mail Verteiler in Gmail erstellen? Ja, Du kannst E-Mail Verteiler in Gmail erstellen, indem Du eine Gruppe von Kontakten anlegst und diese in deine E-Mails einfügst.

3. Was muss ich beachten, wenn ich mehrere Abteilungen abfragen möchte? Verwende die richtige Syntax in Deinen Bedingungen, um sicherzustellen, dass alle gewünschten Abteilungen korrekt erfasst werden.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige