AW: Link aus Intranet per VBA zuordnen
18.07.2016 10:52:56
UweD
Hallo
Sub Hyperlink() ' Hier wird ein Hyperlink zu den PDF Aufträgen erstellt und in Spalte 27 (AA) eingetragen.
Dim lngZeile As Long, LR As Long
LR = Cells(Rows.Count, 1).End(xlUp).Row
Range("B2:B" & LR).Clear
For lngZeile = 2 To LR 'von der 2. Zeile bis zur letzten Zeile in Spalte 1
If Cells(lngZeile, 1) <> "" Then
ActiveSheet.Hyperlinks.Add Anchor:=Cells(lngZeile, 2), Address:= _
"http://192.168.100.78/index.php/" & Cells(lngZeile, 1), TextToDisplay:= _
"http://192.168.100.78/index.php/" & Cells(lngZeile, 1)
End If
Next lngZeile
End Sub
VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 15 - mit VBAHTML 12.6.0
Gruß UweD