Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
892to896
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
892to896
892to896
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Hyperlink, aber nicht alle

Hyperlink, aber nicht alle
04.08.2007 08:40:00
Markus
Hallo,
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


1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Hyperlink, aber nicht alle
04.08.2007 09:12:00
Beverly
Hi Markus,
versuche es mit diesem Codeteil

'alle Tabellen eintragen
For Each wks In ThisWorkbook.Worksheets
If wks.Name  "PNR1" And wksname  "KST" And wks.Name  "Befehle" Then
'mit Hyperlink
With ThisWorkbook.Worksheets("Tabellenliste").Cells(Zeile, 2)
.Hyperlinks.Add Cells(Zeile, 2), Address:="", SubAddress:=wks.Name & "!A1",  _
TextToDisplay:=wks.Name
End With
End If
Zeile = Zeile + 1
Next wks


________________________________________

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige