jerry0110
Erfahrenes Mitglied
Hallo zusammen,
ich habe eine VBA Script geschrieben, dass eine Mail erstellt wird.
Hierbei möchte ich im Sheet Empfänger eine Nummer mit einer Nummer im Sheet Agenturliste vergleichen.
Wenn diese die gleiche ist, dann soll er die Mailadresse aus dem Sheet Agenturliste Feld AB dann in eine Variable stecken, weil ich diese dann nutzen will um dem Empfänger zu deklarieren in der Mail.
Folgenden Code habe ich dafür erstellt:
Der erste Teil bestimmt den Emailtext und der 2te Teil soll dann die Abfrage machen.
Ich habe 4 Testuser in der Excel. Er erstellt 4 Email. 2 mit Empfänger und 2 ohne.
Und das obwohl die Nummer immer in beiden Sheets vorhanden ist.
Wo ist der Denkfehler?
ich habe eine VBA Script geschrieben, dass eine Mail erstellt wird.
Hierbei möchte ich im Sheet Empfänger eine Nummer mit einer Nummer im Sheet Agenturliste vergleichen.
Wenn diese die gleiche ist, dann soll er die Mailadresse aus dem Sheet Agenturliste Feld AB dann in eine Variable stecken, weil ich diese dann nutzen will um dem Empfänger zu deklarieren in der Mail.
Folgenden Code habe ich dafür erstellt:
Visual Basic:
Set ziel = ThisWorkbook.Worksheets("Empfänger")
Set source = ThisWorkbook.Worksheets("Agenturliste")
For f = lastRowNr(ziel) To 4 Step -1
If ziel.Range("A" & f) = "ALL" Then
absendmail = 1
ElseIf ziel.Range("A" & f) = "XALL" Then
absendmail = 2
ElseIf ziel.Range("A" & f) = "XBYE" Or ziel.Range("A" & f) = "BYE" Then
absendmail = 3
Else
GoTo nächster
End If
For i = lastRowNr(source) To 2 Step -1
If ziel.Range("E" & f).Value = source.Range("B" & i).Value Then
empfmail = source.Range("AB" & i).Value
Else
empfmail = ""
End If
Next i
..... mehr code
next f
Der erste Teil bestimmt den Emailtext und der 2te Teil soll dann die Abfrage machen.
Ich habe 4 Testuser in der Excel. Er erstellt 4 Email. 2 mit Empfänger und 2 ohne.
Und das obwohl die Nummer immer in beiden Sheets vorhanden ist.
Wo ist der Denkfehler?