AW: Nachtrag zu letztem Eintrag
05.12.2018 16:28:31
Werner
Hallo Peter,
aus der Tabelle kriegst du die z.B. so in eine Variable:
Public Sub aaa()
Dim strAn As String, loLetzte As Long, i As Long
With Worksheets("Tabelle1") 'Blattname anpassen
loLetzte = .Cells(.Rows.Count, 19).End(xlUp).Row
For i = 2 To loLetzte
If strAn = "" Then
strAn = .Cells(i, 19)
Else
strAn = strAn & ";" & .Cells(i, 19)
End If
Next i
End With
MsgBox strAn
End Sub
Wie werden denn die Mailadressen in Thunderbird getrennt, mit Semikolon? Ich hab jetzt mal das Semikolon als Trenner genommen.
Gruß Werner