Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Aus verschiedenen Zellwerten zusammengesetzte Webadresse aufrufen

Gruppe

Internet

Problem

Die Web-Adresse http://www.herber.de soll um die Verzeichnisse und den Dateinamen in Spalte A ergänzt und aufgerufen werden.

Lösung
Den nachstehenden Code in ein Standardmodul eingeben, einer Schaltfläche zuweisen und starten.

ClassModule: Tabelle1

Private Sub CommandButton1_Click()
   Dim iRow As Integer
   Dim sPath As String
   sPath = "http://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