AW: Hyperlink auf Datenblatt automatisieren
31.10.2008 12:00:44
JogyB
Ok, dann folgendes Makro (übrigens ergibt 2-163 die Spalten A - FF). Abändern mußt Du nur in der Const-Anweisung den Namen der Tabelle, auf die verlinkt wird. Geschrieben wird in das aktive Tabellenblatt. Falls Du einen anderen Text im Link anzeigen willst, dann kannst Du die TextToDisplay Eigenschaft bzw. die Variable desCr ändern.
Sub HyperlinksRein()
Dim myLink As String
Dim desCr As String
Dim i As Byte
Const tabName = "Tabelle2"
Application.ScreenUpdating = False
For i = 2 To 163
myLink = tabName & "!" & Cells(1, i - 1).Address
desCr = "Spalte " & Mid(Cells(1, i - 1).Address, 2, InStr(2, Cells(1, i - 1).Address, "$ _
") - 2)
With ActiveSheet
.Hyperlinks.Add Anchor:=.Cells(i, 1), Address:="", SubAddress:=myLink, TextToDisplay:= _
desCr
End With
Next
Application.ScreenUpdating = True
End Sub
Gruss, Jogy