Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
764to768
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
764to768
764to768
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

link zum Tabellenblatt automatisch einfuegen

link zum Tabellenblatt automatisch einfuegen
15.05.2006 19:42:14
Marita
Hallo allerseits,
ich habe gerade ein Makro gebastelt, das mir nach einer Abfrage des gewuenschten Tabellenblattnamens ein neues Blatt mit dem eingegebenem Namen einfuegt. Auf einer Uebersichtsseite werden alle Tabellenblattnamen von oben nach unten aufgelistet, so wie die Blaetter in der Datei von links nach rechts positioniert sind.
Bis jetzt wird der Tabellenblattname in der Uebersichtsliste einfach als Wort dargestellt, sollte aber als Link zum jeweiligen Blatt zur Verfuegung stehen.
Wie mache ich das, dass der Blattname als Link in die jeweilige Zelle eingetragen wird?
Danke und Gruss, Marita

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: link zum Tabellenblatt automatisch einfuegen
15.05.2006 20:12:44
Ramses
Hallo
probier mal das Makro aus
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, myRow As Integer, tmpCnt As Integer
    'Blattnamen anpassen
    Set tarWks = Worksheets("Inhalt")
    'Bestehenden Inhalt löschen
    tarWks.Columns(1).ClearContents
    tarWks.Cells(1, 1) = "Inhalt"
    'Erstellen des Inhaltsverzeichnisses
    '**************************
    'Vertikal
    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
    '**************************
    'Horizontal
    'tmpCnt = 1
    'myRow = 1
    'For i = 1 To Worksheets.Count
    ' If i Mod 256 = 0 Then
    ' tmpCnt = 1
    ' myRow = myRow + 1
    ' End If
    ' If Worksheets(i).Name <> tarwks.Name Then
    ' tarwks.Cells(myRow, tmpCnt) = Worksheets(i).Name
    ' Cells(myRow, tmpCnt).Hyperlinks.Add Anchor:=Cells(myRow, tmpCnt), Address:="", SubAddress:="'" & Worksheets(i).Name & "'!A1", TextToDisplay:=Worksheets(i).Name
    ' tmpCnt = tmpCnt + 1
    ' End If
    'Next i
End Sub
Gruss Rainer
Anzeige
Variante ohne VBA
15.05.2006 21:19:00
{Boris}
Hi Marita,
das geht auch ohne VBA.
Definiere einen Namen (Strg+F3), Name: Alle
Bezieht sich auf:
=ARBEITSMAPPE.ZUORDNEN(1+0*JETZT())
Jetzt schreibe in deinem Übersichtsblatt in irgendeine Zelle diese Formel und kopier sie so weit runter, wie das Blatt irgendwann mal Blätter haben könnte:
=WENN(ZEILEN($1:1)&gtANZAHL2(Alle);"";HYPERLINK("#'"&INDEX(Alle;ZEILEN($1:1))&"'!A1";TEIL(INDEX(Alle;ZEILEN($1:1));FINDEN("]";INDEX(Alle;ZEILEN($1:1)))+1;31)))
Somit hast du alle Blätter verlinkt. Gelöschte / hinzugefügte Blätter werden automatisch erkannt.
Grüße Boris
Anzeige
danke
15.05.2006 22:06:47
Marita
Hallo Ramses und Boris,
danke fuer eure beiden Loesungen. Ich habe mich jetzt fuer die VBA-Variante entschieden, weil ich die ganz einfach in ein bestehendes Makro einbauen konnte!
Liebe Gruesse, Marita
AW: Variante ohne VBA
15.05.2006 22:30:58
Bertram
Hi Boris,
ich hab's zwar noch nicht getestet, aber bei dir gehe ich davon aus dass es funktioniert. Diese Version kann mir auch noch hilfreich sein.
Wie zum Teufel kommt man auf so geniale Ideen? Brilliant.
Gruß
Bertram
AW: Variante ohne VBA
15.05.2006 23:26:37
{Boris}
Hi Bertram,
das ist quasi eine Standard-Anwendung bei mir. Taucht in jeder Mappe auf, die mehrere Blätter hat und in einem separaten Blatt eine Übersicht benötigt.
Ist wirklich sehr hilfreich.
Der eigentliche Trick liegt in der Anwendung der Excel4Macrofunktion ARBEITSMAPPE.ZUORDNEN - und das "verflüchtigen" mit dem Zusatz 0*JETZT().
Der Rest in der Formel ist im Prinzip reine Indizierung sowie Stringzerlegung.
Grüße Boris
Anzeige

199 Forumthreads zu ähnlichen Themen

Cursor auf anderes Blatt springen lassen
KlausF

Schönen Freitag-Morgen Leute!
In einer Datei kontrolliere ich in Tabelle 20 errechnete Werte. Entsprechen diese nicht meinen Vorstellungen, so muß ich in Tabelle 1 in der korrespondierenden Zelle (d.h. die mit der gleichen Adresse wie die aktuelle Zelle in Tab.20) Korrekturwerte eingeben.
26.09.2008 08:02:06
Thread-ID: 1012475
3 Beiträge
Anzeige
Übertrag auf anderes Blatt
Sankt

Hallo,
ich habe diese Frage schon einmal gestellt aber leider komme ich mit der Antwort nicht zurecht.

Ich möchte gerne aus ein Zelle November M47 den Wert in Dezember D9 übernehmen.
Normal würde es funktionieren mit ='November 2008'!M47. Man könnte nun ganz einfach die Stunden...
06.10.2008 11:50:21
Thread-ID: 1014393
7 Beiträge
Text aus einer Zelle in ein anderes Tabellenblatt
grigolet

Hallo,
ich erstelle gerade eine Arbeitsmappe in der auf verschiedenen Tabellenblättern die gleichen Namen erscheinen sollen (aus dem Blatt 'Verhandlungsergebnis' sollen die Personendaten der Beteiligten in ein erstelltes Vertragsformular übernommen werden). Ich habe das z.B. mit = gelöst. J...
09.10.2008 11:24:26
Thread-ID: 1015295
2 Beiträge
Anzeige
Übertrag auf anderes Blatt
Sankt

Hallo
ich habe da ein kleines Problem.
Ich benutze folgende Formel
=INDIREKT(""&WAHL(MONAT(A1)-1;"Januar";"Februar";"März";"April";"Mai";"Juni";"Juli";"August"; "September";"Oktober";"November";"Dezember")&"!D9")
die funktioniert auch so weit ganz gut.
Nun habe ich...
03.11.2008 16:50:00
Thread-ID: 1021376
7 Beiträge
Summenprodukt auf anderes Blatt beziehen
Reinhard

Hallo Wissende, diese Formel in einer bedingten Formatierung in Tabelle1 fuktioniert: =SUMMENPRODUKT(($C$1:$C$100=$A3)*($D$1:$D$100=$B3))>0 Vegebe ich aber z.B. für Tabelle2!$A:$A den Namen TabA Tabelle2!$B:$B den Namen TabB so tut sich nichts bei der bedingten Formatierung in Tabelle1 bei...
27.11.2008 11:02:50
Thread-ID: 1028275
3 Beiträge
Zellwert auf anderes Tabellenblatt übernehmen
Jan

Hallo zusammen
ich habe in den Zellen A10:A10010 diverse Werte stehen. Jetzt möchte ich, dass wenn man auf so einen Wert draufklickt, in der Zelle A8 eines anderen Tabellenblattes genau dieser Wert erscheint... Ist das irgendwie machbar mit einem Makro oder so? Wenn ja, dann wäre ich um jed...
10.03.2009 15:49:15
Thread-ID: 1058747
9 Beiträge
Verlinken auf Blatt mit UDF nicht möglich
Alexandra

Hallo an alle,
ich will heute gleich eine zweite Frage loswerden:
In einem Arbeitsblatt benutzt die Bedingte Formatierung 2 Konditionen mit der UDF HasFormula. Die UDF befindet sich in einem VB-Modul. Damit die UDF verwendet werden kann, muss die Option "Makros aktivieren" beim Öffnen...
02.07.2009 16:11:47
Thread-ID: 1086007
7 Beiträge
Tabellenblatt kopieren ohne Zellbezüge (VBA)
S.

Liebe Herber Excel-Gemeinde,
ich kopiere ein Tabellenblatt aus einem bestehenden Excel-Dokument in ein neues Dokument mit VBA. Dazu kopiere ich einfach das ganze Sheet, da es auch Diagramme enthält. Allerdings kopiert er bei dieser Methode auch die Zellbezüge zur Originaldatei mit. Dies möc...
11.08.2009 11:38:01
Thread-ID: 1094961
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
2
6
1
6
6
2
8
6
3
14
16
2
5
1
3
5
2
2
8
2
2
13
2
2