| Supplier | Portal | Username | Passwort | Link |
| " & r.Cells("Lieferant").Value & " | " + TextHTMLtable &= "" & r.Cells("Portal").Value & " | " + TextHTMLtable &= "" & r.Cells("Username").Value & " | " + TextHTMLtable &= "" & r.Cells("Password").Value & " | " + + Dim Link As String = getLink(r.Cells("Portal").Value) + + TextHTMLtable &= "" & Link & " | " + + TextHTMLtable &= "