Hyperlink, aber nicht alle
04.08.2007 08:40:00
Markus
die folgende
Function funktioniert gut.
Leider kriege ich als Anfänger nicht hin,
von den Blättern "PNR1", "KST" und "Befehle" keinen Hpyerlink zu erstellen.
Weis jemand Rat?
Jetzt schon bedanke ich mich, bei allen, die in diesem Forum "Arbeiten für Gotteslohn"!
Markus
Function TabellenListeErstellen()
Dim wks As Worksheet
Dim Zeile As Long
Dim xlsortNorMal As String
'nach alter Liste suchen und löschen
For Each wks In ThisWorkbook.Worksheets
If wks.Name = "Tabellenliste" Then
Application.DisplayAlerts = False
wks.Delete
Application.DisplayAlerts = True
End If
Next wks
' Tabelleblatt (Tabellenliste) wieder erstellen
' Zeilenwert auf 3 stellen
Worksheets.Add
ActiveSheet.Name = "Tabellenliste"
ActiveSheet.Move Before:=Worksheets(1)
Zeile = 3
'alle Tabellen eintragen
For Each wks In ThisWorkbook.Worksheets
'mit Hyperlink
With ThisWorkbook.Worksheets("Tabellenliste").Cells(Zeile, 2)
.Hyperlinks.Add Cells(Zeile, 2), Address:="", SubAddress:=wks.Name & "!A1", TextToDisplay: _
=wks.Name
End With
Zeile = Zeile + 1
Next wks
' wieder zum Ursprungsblatt zurückspringen
' Wert in Personalnummer (bue1) löschen
Sheets("Std_Karte").Select
Application.GoTo Reference:="bue1"
Selection.ClearContents
' zum Blatt (Serien_Blaetter) springen
Sheets("Serien_Blaetter").Select
End Function