Keine doppelten Werte in den String schreiben
10.12.2015 14:38:12
Fredi
ich habe ein kleines Problem mit meinem Makro.
Ich versuche derzeit ein E-Mail-Verteiler zu erstellen.
Wenn in der Spalte "D" eine leere Zelle gefunden wird, wird in der gleichen Zeile die Spalte "B" in ein String geschrieben (hier steht die E-Mail)
Bis dahin klappt das soweit ganz gut:
Dim sLeer As String
Dim sVert As String
sLeer = ""
sVert = ""
With wksNeu
For i = 22 To lzeile
If .Cells(i, 4).Value = sLeer Then
sVert = sVert & .Cells(i, 2).Value & ";"
End If
Next i
'letzte Semikolon entfernen
If Trim(sVert) "" Then
sVert = Left(sVert, Len(sVert) - 1)
End If
End With
MsgBox sVert
Bei einer Liste mit ca. 100-200 E-Mail-Adressen sieht der Verteiler sehr unschön aus wenn manche Personen 3-4 mal eingetragen werden.
Gibt es eine Möglichkeit doppelte Einträge aus dem String zu löschen?
so sieht die Tabelle aus:
Manfred | Man@fred.com | Produkt 1 | vorhanden
Manfred | Man@fred.com | Produkt 2 |
Manfred | Man@fred.com | Produkt 3 |
Peter | Pe@ter.com | Produkt 4 |
Peter | Pe@ter.com | Produkt 5 | vorhanden
klaus | Kl@aus.com | Produkt 6 | vorhanden
Der Verteiler müsste jetzt also so aussehen: Man@fred.com; Pe@ter.com