Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
25.04.2024 10:30:04
Suche mit MINWENNS und Rückgabe mehrerer Werte
25.04.2024 09:47:49
Daten aus mehreren Dateien untereinander importieren
25.04.2024 09:31:31
Bild "In Zelle platzieren"
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1336to1340
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1336to1340
1336to1340
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Emailverteiler/Makro zu langsam

Emailverteiler/Makro zu langsam
30.10.2013 15:09:26
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
Dim i%
If CheckBox1.Value = True Then
For i = 2 To 12
Worksheets("Verteilerliste").Cells(i, 10) = Worksheets("Verteilerliste").Cells(i, 2) _
_
Next
Else
For i = 2 To 12
Worksheets("Verteilerliste").Cells(i, 10) = ""
Next
End If
End Sub

    • Setze ich in der ersten Box den Haken, überträgt das Makro mir die Email-Adressen ohne Probleme in eine andere Spalte. Spreche ich aber z.B. die 7. Checkbox an passiert nichts oder erst nach einer gefühlten Minute. Woran liegt das? Ist mein Ansatz für das Generieren eines Emailverteilers gänzlich falsch? Vielleicht habt Ihr ja eine bessere Idee, solch einen Verteiler zu erstellen (auch unter dem Gesichtspunkt "AN" & "CC")...?! Für Kritik und Lösungsansätze wäre ich euch sehr dankbar...!
    Anbei die Datei: https://www.herber.de/bbs/user/87881.xls

    11
    Beiträge zum Forumthread
    Beiträge zu diesem Forumthread

    Betreff
    Datum
    Anwender
    Anzeige
    AW: Emailverteiler/Makro zu langsam
    30.10.2013 15:17:50
    Bastian
    Hallo Sebastian,
    ich mache das so:
    Sub Checkboxes_auswerten()
Dim objCB As Object
Dim strAdr() As String
Dim strAdrStr As String
Dim lngCounter As Long
For Each objCB In Worksheets("Verteilerliste").CheckBoxes
If objCB.Value = 1 Then
ReDim Preserve strAdr(lngCounter)
strAdr(lngCounter) = objCB.TopLeftCell.Offset(1, 2).Text
lngCounter = lngCounter + 1
End If
Next
strAdrStr = Join(strAdr, "; ")
Worksheets("Verteilerliste").Range("A1") = strAdrStr
End Sub
    Der komplette Mailverteiler steht dann in Zelle A1.
    Gruß, Bastian

    AW: Emailverteiler/Makro zu langsam
    30.10.2013 15:33:36
    Tino
    Hallo,
    kann zwar diese Verzögerung bei mir nicht feststellen
    aber einen Vorschlag um die Schleife zu verhindern kann ich machen.
    Private Sub CheckBox1_Click()
    With Worksheets("Verteilerliste")
        If CheckBox1.Value = True Then
            .Cells(2, 10).Resize(11).Value = .Cells(2, 2).Resize(11).Value
        Else
            .Cells(2, 10).Resize(11).Value = ""
        End If
    End With
End Sub

Private Sub CheckBox2_Click()
    With Worksheets("Verteilerliste")
        If CheckBox2 = True Then
            .Cells(2, 11).Resize(11).Value = .Cells(2, 3).Resize(11).Value
        Else
            .Cells(2, 11).Resize(11).Value = ""
        End If
    End With
End Sub

Private Sub CheckBox3_Click()
    With Worksheets("Verteilerliste")
        If CheckBox3.Value = True Then
            .Cells(2, 12).Resize(11).Value = .Cells(2, 4).Resize(11).Value
        Else
            .Cells(2, 12).Resize(11).Value = ""
        End If
    End With
End Sub

'... 
'... 
'...
    Gruß Tino

    Anzeige
    AW: Emailverteiler/Makro zu langsam
    31.10.2013 09:31:49
    Sebastian
    Vielen Dank für eure Antwort!
    Habe Tino's Lösungsvorschlag auf meine Bedürfnisse angepasst. Danke !!!
    @ Bastian: An deiner Lösung bin ich auch interessiert...! Hast du vielleicht eine Bespieldatei, die du hochladen kannst? Wenn ja, vielen Dank schon mal im Voraus...!
    Habe aber jetzt noch ein kleines Problem.
    Beim Versenden der Email bleibt der Code an der Stelle hängen:
    EmailadressenAN = Worksheets("Verteilerliste").Range("T2")
EmailadressenCC = Worksheets("Verteilerliste").Range("U3")
    Anbei der Anfang von dem Makro:
    
Dim obNachricht As Object
Dim obMail As Object
Dim htmlBody As String
Dim Liste As String
Dim EmailadressenAN As String
Dim EmailadressenCC As String
Set obMail = CreateObject("Outlook.Application")
Set obNachricht = obMail.CreateItem(0)
With obNachricht
.GetInspector
EmailadressenAN = Worksheets("Verteilerliste").Range("T2")
EmailadressenCC = Worksheets("Verteilerliste").Range("U3")
.To = EmailadressenAN
.CC = EmailadressenCC
.Subject = Subject
    Was mache ich falsch?

    Anzeige
    AW: Emailverteiler/Makro zu langsam
    31.10.2013 09:50:58
    Tino
    Hallo,
    welche Fehlermeldung bekommst Du an dieser Stelle,
    kann an diesen zwei Zeilen keinen Fehler erkennen.
    Gruß Tino

    AW: Emailverteiler/Makro zu langsam
    31.10.2013 09:56:03
    Sebastian
    Bekomme diesen Fehler:
    Userbild

    AW: Emailverteiler/Makro zu langsam
    31.10.2013 10:00:28
    Tino
    Hallo,
    lade mal ein Beispiel hoch, Fehler ist nicht nachvollziehbar.
    Gruß Tino

    jetzt ist es klar...
    31.10.2013 10:51:08
    Tino
    Hallo,
    , die Referenzieren ist falsch.
    mach aus ActiveWorkbook besser ThisWorkbook
    ActiveWorkbook ist die Datei die gerade aktiv ist
    ThisWorkbook ist die Datei wo der Code läuft
    Daher halte ich von Anfang an eine saubere Referenzieren
    ob man dies nun braucht oder nicht für sehr wichtig.
    Gruß Tino

    Anzeige
    AW: jetzt ist es klar...
    31.10.2013 12:52:29
    Sebastian
    Vielen Dank!!! Das war der Fehler....! Wünsche ein schönes langes Wochenende!
    Gruß
    Sebastian

    AW: Emailverteiler/Makro zu langsam
    31.10.2013 11:36:24
    Bastian
    Hallo Sebastian,
    anbei die Datei:
    https://www.herber.de/bbs/user/87889.xlsm
    Trifft nicht ganz Deine Anwendung, aber vielleicht kannst Du ja doch was davon gebrauchen.
    In Tabellenblatt1 steht eine Liste mit Mailadressen. Vor jeder Mailadresse ist eine Checkbox.
    Wenn Du das Makto "SendEmailWithOutlook" aufrufst, wird zunächst die Prozedur "Checkboxes_auswerten" aufgerufen. Diese sammelt alle Mailadressen, die hinter einer aktivierten Checkbox stehen, und fügt sie zu einem gemeinsamen String zusammen.
    Gruß, Bastian

    Anzeige
    AW: Emailverteiler/Makro zu langsam
    31.10.2013 12:54:43
    Sebastian
    Hallo Bastian,
    Dir auch vielen Dank!!! Wünsche auch ein schönes langes Wochenende!!!
    Gruß
    Sebastian

    237 Forumthreads zu ähnlichen Themen

    Outlook Emails einlesen und löschen
    Peter

    Ich würde gerne den Outlook Posteingang in Excel einlesen und danach den Outlook Posteingang löschen.
    Wie kann so etwas in VBA realisiert werden?
    19.08.2008 18:20:00
    Thread-ID: 1003019
    3 Beiträge
    Anzeige
    Email versenden Outlook - Problem
    Peter

    Ich versende via Excel/VBA alle 3 Minuten ein Email.
    Nun kommt es ca. 1x am Tag vor, dass Outlook Emails nicht sofort sendet und sich die Emails im Postausgang sammeln bis ich Outlook schließe und wieder öffne.
    Danke für die Unterstützung.
    Grüße
    Peter
    29.09.2008 13:58:00
    Thread-ID: 1013103
    2 Beiträge
    Email aus Excel über Outlook versenden
    ray

    Hallo,
    ich plane grad neue Projekte und hab eine Frage, wo ich nur die Antwort aber keinen code brauche.
    Ich möchte den Inhalt der Label oder textboxen von ein UserForm an Outlook übergeben und via Outlook versenden.
    Dabei soll diese Mail in dem Outlookordner 'gesendete Objekte' e...
    02.12.2008 10:35:00
    Thread-ID: 1029428
    3 Beiträge
    Anzeige
    Email über Outlook, Konto ändern
    Nico

    Hallo!
    Ich schicke eine Email über ExcelVBA mit Outlook und dem Standardkonto.
    Gibt es eine Möglichkeit die Email nicht über das Standardemailkonto zu verschicken, sondern über ein anderes Konto?
    Wie kann ich das Konto vorher festlegen?
    Sub EmailVerschickenKINDERSKIKURS() Dim...
    16.12.2008 20:16:33
    Thread-ID: 1033418
    2 Beiträge
    eMail aus Outlook in Excel einlesen
    Heinzs

    Hallo,
    ich möchte eine in Outlook in einem bestimmten Ordner angekommene eMail in Excel weiterverarbeiten, d.h. wenn bestimmter Absender und bestimmter Betreff in bestimmten Ordner und bestimmtes Empfangsdatum vorliegt dann soll der Emailbody in die Exceltabelle ans Ende angefügt werden.
    21.01.2009 15:36:17
    Thread-ID: 1042242
    3 Beiträge
    Email aus Excel via Outlook Web Access
    Sven

    Hallo,
    wir haben in der Firma ein kleines Makro das über Outlook 2003 Emails aus Excel versendet. Nun taucht das Problem auf, dass einige Rechner (auf die mehrere user zugreifen) nicht über ein echtes Outlook verfügen sondern Outlook Web Access (OWA) verwenden müssen.
    Hier klappt aber d...
    06.03.2009 14:58:24
    Thread-ID: 1057341
    5 Beiträge
    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
    Serienmail Outlook
    Ilka

    Hallo,
    ich bräuchte mal wieder eure Hilfe. Ich möchte an einen bestimmten Personenkreis eine Art Serienmail verschicken, zu der jeder einen individuellen Datei-Anhang erhalten soll.
    D. h. bei Herrn Müller soll der Anhang A, bei Frau Mayer Anhang B und bei Herr Schmitt Anhang C automati...
    27.04.2009 08:15:33
    Thread-ID: 1071278
    3 Beiträge
    Anzeige

    Links zu Excel-Dialogen

    CheckBox

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Anzeige
    Anzeige
    Archiv - Verwandte Themen
    Forumthread
    Beiträge
    2
    2
    1
    2
    5
    1
    2
    4
    3
    2
    2
    1
    1
    8
    2
    5
    2
    4
    1
    1
    3
    1
    4
    1
    2