Was stimmt denn da nicht?

Forumthread: Was stimmt denn da nicht?

03.06.2005 11:08:01

niki

Dieses makro sollte mir alle tabellenblatt namen auslesen und auf seite 1 hyperlinken...aber der will nicht?!
Danke euch für jede hilfe!


Sub Blattname()
For Blatt = 2 To ActiveWorkbook.Sheets.Count
Sheets(1).Cells(Blatt, 1).Select
Sheets(Blatt).Name = Sheets(1).Cells(Blatt, 1)
ActiveSheet.Hyperlinks.Add anchor:=Selection, Address:="", SubAddress:= _
Sheets(Blatt).Name & "!A1", texttodisplay:=ActiveCell.Formula
Next Blatt
Sheets(1).Select
End Sub

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Was stimmt denn da nicht?

03.06.2005 11:32:50

Ramses
AW: Was stimmt denn da nicht?

03.06.2005 11:34:05

UweD
AW: Was stimmt denn da nicht?

03.06.2005 12:02:21

EffHa
AW: Was stimmt denn da nicht?

03.06.2005 12:55:19

niki
AW: Was stimmt denn da nicht?

03.06.2005 13:36:13

EffHa
AW: Was stimmt denn da nicht?

03.06.2005 13:47:40

Dani

AW: Was stimmt denn da nicht?

03.06.2005 11:32:50

Ramses

Hallo
lass das mal laufen


Sub Create_Hyperlink_Table_of_Contents()
'(C) Ramses
'Erstellt ein Inhaltsverzeichnis auf alle Tabellen einer
'Mappe mit Hyperlinks auf die jeweiligen Tabellen
Dim tarwks As Worksheet
Dim i As Integer
'Blattnamen anpassen
Set tarwks = Worksheets("Inhalt")
'Bestehenden Inhalt löschen
tarwks.Columns(1).ClearContents
tarwks.Cells(1, 1) = "Inhalt"
'Erstellen des Inhaltsverzeichnisses
For i = 2 To Worksheets.count
tarwks.Cells(i, 1) = Worksheets(i).name
Cells(i, 1).Hyperlinks.Add Anchor:=Cells(i, 1), Address:="", SubAddress:=Worksheets(i).name & "!A1", TextToDisplay:=Worksheets(i).name
Next i
'Sortiert das Inhaltsverzeichnis
tarwks.Columns(1).Sort Key1:=tarwks.Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub

Gruss Rainer

AW: Was stimmt denn da nicht?

03.06.2005 11:34:05

UweD

Hallo
so.
Die Zuweisung muß genau anders herum erfolgen..


Sub Blattname()
For Blatt = 2 To ActiveWorkbook.Sheets.Count
Sheets(1).Cells(Blatt, 1).Select
Sheets(1).Cells(Blatt, 1) = Sheets(Blatt).Name
ActiveSheet.Hyperlinks.Add anchor:=Selection, Address:="", SubAddress:= _
Sheets(Blatt).Name & "!A1", TextToDisplay:=ActiveCell.Formula
Next Blatt
Sheets(1).Select
End Sub

Gruß aus dem sonnigen Siegen

AW: Was stimmt denn da nicht?

03.06.2005 12:02:21

EffHa

So sollte es gehen:


Sub xx()
Dim I&, Blatt&
I = 1
For Blatt = 2 To ActiveWorkbook.Sheets.Count
Worksheets(1).Hyperlinks.Add anchor:=Worksheets(1).Cells(I, 1), Address:="", SubAddress:= _
Sheets(Blatt).Name & "!A1", TextToDisplay:="Link zu Tab" & Blatt
I = I + 1
Next Blatt
End Sub

Gruß
Fritz

AW: Was stimmt denn da nicht?

03.06.2005 12:55:19

niki

Tut mir leid, füge den code in ein modul ein aber es funktioniert nicht, keine der antworten...mache ich etwas falsch?

AW: Was stimmt denn da nicht?

03.06.2005 13:36:13

EffHa

Hier nochmal eine Beispieltabelle
https://www.herber.de/bbs/user/23604.xls
Gruß
Fritz

AW: Was stimmt denn da nicht?

03.06.2005 13:47:40

Dani

Hallo Niki
versuchs mal so:


Sub Blattname()
Dim Blatt As Integer
For Blatt = 2 To ActiveWorkbook.Worksheets.Count
Worksheets(1).Cells(Blatt - 1, 1).Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="Tabelle" & Blatt & "!A1", TextToDisplay:="Tabelle" & Blatt & "!A1"
Next
End Sub

Gruss
Bambi

Beliebteste Forumthreads (12 Monate)

Forumthread: Was stimmt denn da nicht?

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread