VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Aus Zelleintragungen Hyperlinks und HTML-Tabelle erstellen

Gruppe

Extern

Bereich

HTML

Thema

Aus Zelleintragungen Hyperlinks und HTML-Tabelle erstellen

Problem

Aus den Texten in den Spalten A und B sollen zum einen Excel-Hyperlinks und zum anderen eine HTML-Seite erstellt werden.

Lösung

Nur anhand einer Beipspielarbeitsmappe darstellbar.




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 HTML