Code Anpassung
04.08.2021 09:09:43
Dom
ich habe folgendes Problem:
astrTemp = Split(Cells(lngRow, 13).Text, "/")
die Spalte 13 hat Zeilen die leer sind, deshalb wird der Code abgebrochen.
Wie kann ich die Sub ergänzen das leere Zeilen übersprungen werden ?
Vielen Dank !
Public Sub hyperLinksCatalog()
Const LINK_START As String = "https://cloud.com/client/index.html#/view/tenant/"
Const LINK_MID As String = "/repository/80374133-e2bf-4b9a-8536-8c8988ce5865/stage/published/search/"
Const LINK_END As String = "?locale=en"
Dim astrTemp() As String, strLink As String
Dim lngRow As Long
For lngRow = 3 To Cells(Rows.Count, 1).End(xlUp).Row
If Not IsEmpty(Cells(lngRow, 3).Value) Then
astrTemp = Split(Cells(lngRow, 13).Text, "/")
strLink = LINK_START & astrTemp(3) & LINK_MID & Chr$(34) & _
Cells(lngRow, 4).Text & Chr$(34) & LINK_END
Call Cells(lngRow, 3).hyperLinks.Add(Anchor:=Cells(lngRow, 3), _
Address:=strLink)
End If
Next
End Sub
Anzeige