Ausgewählte Tabellenamen als Hyperlink
18.04.2007 18:02:45
Fritz_W
mit dem folgenden Makro werden die Tabellennamen, der Tabellen der Arbeitsmappe, deren Tabellennamen aus einer Zahl besteht in einen bestimmten Bereich einer Tabelle als Hyperlink eingefügt.
Ich möchte nun, dass der Code so geändert wird, dass von den Tabellen, deren Namen aus einer Zahl besteht, nur diejenigen als Hyperlink in diesen Bereich eingefügt werden, wenn in der betreffenden Tabelle der Zelleintrag in der Zelle E3 jeweils 30 beträgt.
Für eure Unterstützung bei der Verwirklichung meines Vorhabens danke ich im Voraus.
mfg
Fritz
Public Sub Worksheet_Activate()
Dim objWs As Worksheet
Dim lngR As Long
lngR = 2
For Each objWs In Me.Parent.Worksheets
If IsNumeric(objWs.Name) Then
Cells(lngR, 14) = objWs.Name
Me.Hyperlinks.Add Anchor:=Cells(lngR, 14), Address:="", SubAddress:= _
"'" & objWs.Name & "'!A1"
lngR = lngR + 1
End If
Next
Range(Cells(2, 14), Cells(lngR - 1, 14)).Sort Key1:=Cells(2, 14), order1:=xlAscending, header:= _
xlNo
End Sub