Mehrere Links mittels Button aktivieren
07.04.2016 19:29:30
Florian
letztens half mir hier Jemand super aus. Für das Erstellen von eMails hat er mir diesen Code: pre>
Sub t()
Dim iZeile As Long
For iZeile = 1 To Cells(Rows.Count, 1).End(xlUp).Row
Cells(iZeile, 5).Formula = "=HYPERLINK(""mailto:" & Cells(iZeile, 3) & _
"?subject=" & Cells(iZeile, 2) & " " & Cells(iZeile, 1) & """,""Send"")"
Next iZeile
End Sub
gegeben. Das funktioniert super. Daraufhin werden mehrere "Send" - Links erstellt, welche ich dann nacheinander abarbeiten (drauf klicken) muss. Dies würde ich mir gern vereinfachen.
Gibt es hier einen Code, welcher gleich 50 dieser "Send" - Links aktiviert? So müsste ich nicht jeden einzeln anklicken. Die Links stehen alle in Spalte E untereinander weg. Vielen Dank!!!
Anzeige