Office: (Office 2010) Makro Hyperlink "anzuzeigender Text" ändern

Hallo zusammen,

mein Wunsch war es ein Makro zu besitzen was Tabellenname auflistet und die Tabellenblätter sortiert.
Da ich keine Ahnung von Programmierung habe, habe ich mir einen Code via Internet und Makrorekorder zusammengebastelt.
Der Code schmeißt jetzt Hyperlinks aus, deren Texte wie folgt aussehen:
Tabelle3'!A1
Ich hätte das der "anzuzeigender Text" nur noch
Tabelle3
ist, bekomme das aber nicht auf die Kette.
Wie geht das?

Gruß
Carsten

Hier der Code


Sub Tabellenliste()
Dim wks As Worksheet
Dim Zeile As Long
Dim WS As Worksheet
Dim X As Integer
Dim Y As Integer

'nach alter Liste suchen und löschen
For Each wks In ThisWorkbook.Worksheets
If wks.Name = "- Tabellenliste" Then
Application.DisplayAlerts = False 'Warnmeldung aus
wks.Delete 'alte Liste löschen
Application.DisplayAlerts = True 'Warnungen ein
End If
Next wks

Worksheets.Add 'neue Tabelle anlegen
ActiveSheet.Name = "- Tabellenliste" 'Name vergeben
ActiveSheet.Move Before:=Worksheets(1) 'an erste Stelle rücken
Zeile = 1

'alle Tabellen eintragen
For Each wks In ThisWorkbook.Worksheets

' 'als Hyperlink
With ThisWorkbook.Worksheets("- Tabellenliste")
'.Hyperlinks.Add Cells(Zeile, 2), Address:="", SubAddress:=wks.Name & "!A1"

' so fluppt es auch mit Le erzeichen im Tabellenname:
.Hyperlinks.Add Cells(Zeile, 2), Address:="", SubAddress:="'" & wks.Name & "'!A1"
End With

Zeile = Zeile + 1
Next wks

'Liste sortieren
Columns("B:B").Sort Key1:=Range("b1"), Order1:=xlAscending

Columns("A:A").Select
Selection.Delete Shift:=xlToLeft
Columns("A:A").EntireColumn.AutoFit

' Tabellenblätter sortieren:
Set WS = ActiveSheet
For X = 1 To ActiveWorkbook.Worksheets.Count
For Y = X To ActiveWorkbook.Worksheets.Count
If Worksheets(Y).Name < Worksheets(X).Name Then
Worksheets(Y).Move Before:=Worksheets(X)
End If
Next Y
Next X
WS.Activate
Set WS = Nothing

' Button einfügen

ActiveSheet.Buttons.Add(220.5, 21, 125.25, 42.75).Select
Selection.OnAction = "Tabellenliste"
Selection.Characters.Text = "Start: Auslesen + sotieren"
With Selection.Characters(Start:=1, Length:=5).Font
.Name = "Arial"
.FontStyle = "Standard"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With


End Sub

:)

 

Hi,

einfach SubAddress:=wks.Name an allen betreffenden Stellen schreiben.

 

Hallo Beverly,

dann klappt leider der Hyperlink zu den Tabellenblätter nicht mehr

 

Hi,

sorry, Fehler vom Amt - muss natürlich heißen TextToDisplay:=wks.Name und muss nach SubAddress:=wks.Name & "!A1" noch ergänzt werden, ebenfalls abgetrennt durch ein Komma (,).

 

Vielen Dank für den Hinweiß

die funktionierende Änderung:

.Hyperlinks.Add Cells(Zeile, 2), Address:="", TextToDisplay:="'" & wks.Name
.Hyperlinks.Add Cells(Zeile, 2), Address:="", SubAddress:="'" & wks.Name & "'!A1"

Gruß
Carsten

 

Hi Carsten,

es reicht 1 Zeile:

Code:

Bei TextToDisplay muss kein Apostroph ' vor wksName gesetzt werden, denn es ist nur Text. Wenn du einen Apostroph setzt, dann steht in der Zelle 'Tabellen Name - das ist zwar kein Fehler, weil der Apostroph am Beginn einen Text in der Zelle kennzeichnet, ist aber unnötig.

 

Danke Beverly