Ich habe folgendes Makro:
Sub inhalt()
Set tbl = Worksheets.Add(before:=Worksheets(1))
Sheets(1).Name = "Inhaltsverzeichnis"
Range("A1").Select
ActiveCell.FormulaR1C1 = "Inhaltsverzeichnis"
Range("A1").Select
Selection.Font.Bold = True
With Selection.Font
.Name = "Arial"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
intzeile = 3
For i = 2 To ActiveWorkbook.Sheets.Count
tbl.Cells(intzeile, 1).Value = Worksheets(i).Name
tbl.Cells(intzeile, 1).Hyperlinks.Add Anchor:=Cells(intzeile, 1), Address:="", SubAddress:="'" & Worksheets(i).Name & "'" & "!B20", TextToDisplay:=Worksheets(i).Name
intzeile = intzeile + 1
Next i
End Sub
Dabei möchte ich in die zweite Spalte hinter dem Link jeweils die Beschreibung einfügen, die sich auf dem Blatt in Zelle A1 befindet. Hat jemand eine Idee?
Danke schon mal für die Hilfe!
Gruß,
Andre