Thema Datum  Von Nutzer Rating
Antwort
06.12.2016 09:58:24 Danny
NotSolved
Blau Email bezogene Werte senden
07.12.2016 19:11:32 BigBen
NotSolved

Ansicht des Beitrags:
Von:
BigBen		 Datum:
07.12.2016 19:11:32		 Views:
539		 Rating:
     
Antwort:
  Ja
Thema:
Email bezogene Werte senden

Hallo,

vielleicht hilft Dir dieser vba-Code weiter:

Sub sendEmails()
    Dim rngWerte As Range
    Dim rngEmail As Range
    Dim iEmail As Integer
    Dim strEmail As String
    Dim rng As Range
    Set rngWerte = Range(Range("D1"), Range("D1").End(xlDown))
    Set rngEmail = Range(Range("B1"), Range("B1").End(xlDown))
    
    For Each rng In rngWerte.Cells
        iEmail = NumbersInValue(rng.Value)
        strEmail = rngEmail.Cells(iEmail, 1).Value
        Debug.Print strEmail
    Next
End Sub

Function NumbersInValue(text As String) As Integer
    Dim iPos As Integer
    Dim strOut As String
    For iPos = 1 To Len(text)
        If IsNumeric(Mid(text, iPos, 1)) Then
            strOut = strOut & Mid(text, iPos, 1)
        End If
    Next
    NumbersInValue = strOut
End Function

Erläuterung:

In der Tabelle befinden sich in Spalte B alle Emails (1 bis 5)

... und in Spalte D alle Werte.

----

Beim Aufruf werden die ausgelesenen Emails in der Direktfenster des VBA-Editors ausgegeben (siehe Befehl print.debug ... ).

Dieser debug.print-Befehl muss durch den eigentlichen Email-Befehl eingesetzt werden.

LG, BigBen

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
06.12.2016 09:58:24 Danny
NotSolved
Blau Email bezogene Werte senden
07.12.2016 19:11:32 BigBen
NotSolved