Thema: Aus verschiedenen Zellwerten zusammengesetzte Webadresse aufrufen

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

Beiträge aus dem Excel-Forum zu den Themen Extern und Internet