Gruppe
Extern
Problem
Aus den Texten in den Spalten A und B sollen zum einen Excel-Hyperlinks und zum anderen eine HTML-Seite erstellt werden.
ClassModule: Tabelle1
Private Sub CommandButton1_Click()
Dim iRow As Integer
Dim sPath As String
sPath = "https://www.herber.de"
iRow = 1
Do Until IsEmpty(Cells(iRow, 1))
sPath = sPath & "/" & Cells(iRow, 1)
iRow = iRow + 1
Loop
sPath = Left(sPath, Len(sPath) - 1)
ActiveWorkbook.FollowHyperlink _
Address:=sPath, _
NewWindow:=True
End Sub