Thema Datum  Von Nutzer Rating
Antwort
07.07.2019 08:37:23 Gast98519
NotSolved
07.07.2019 10:59:01 Werner
NotSolved
07.07.2019 11:31:27 Gast67759
Solved
Blau Nur senden wenn nich ausgefildert
 07.07.2019 13:05:24 Werner
NotSolved

Ansicht des Beitrags:
Von:
Werner		 Datum:
07.07.2019 13:05:24		 Views:
451		 Rating:
     
Antwort:
  Ja
Thema:
Nur senden wenn nich ausgefildert

Hallo,

oder mit einer Schleife über die sichtbaren Zellen des Bereiches und sammeln der Mailadressen in einer Variablen. Die Variable mit den gesammelten Mailadressen kannst du dann in deinem Code zum Senden übergeben.

Sub Mail()
Dim raZelle As Range, strMailAn As String

For Each raZelle In Range("M10:M100").SpecialCells(xlCellTypeVisible)
    If raZelle <> "" Then
        If strMailAn = "" Then
            strMailAn = raZelle
        Else
            strMailAn = strMailAn & ";" & raZelle
        End If
    End If
Next raZelle

MsgBox strMailAn
End Sub

Gruß Werner

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
07.07.2019 08:37:23 Gast98519
NotSolved
07.07.2019 10:59:01 Werner
NotSolved
07.07.2019 11:31:27 Gast67759
Solved
Blau Nur senden wenn nich ausgefildert
 07.07.2019 13:05:24 Werner
NotSolved