Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
428to432
428to432
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Index aller Tabellenblätter erstellen

Forumthread: Index aller Tabellenblätter erstellen

Index aller Tabellenblätter erstellen
19.05.2004 13:11:16
Martin
Hallo,
ich habe eine Datei mit mehr als hundert Tabellenblättern.
Ich möchte mir (per VBA) auf einem neuen blatt einen Index erstellen und dann
per CommanButton auf das gewünschte Blatt springen.
Ideal wäre es wenn ich der Index alphabetisch wäre.
wie kann ich das erreichen?
Vielen Dank
Martin
Anzeige
AW: Index aller Tabellenblätter erstellen
geri
Hallo MArtin
dies zum Teil 1

Sub Blaetter_auflisten()
Dim i As Integer
Range("A1").activate
For i = 1 To Sheets.Count
ActiveCell = Sheets(i).Name
ActiveCell.Offset(1, 0).Activate
Next i
End Sub

es fehlt noch Hyperlink für Blätter für tEIL 2
gruss geri
Anzeige
AW: Index aller Tabellenblätter erstellen
Sidewinder
Hi,
folgender Code wurde neulich von Uwe Küstner im MS-Office-Forum (Klickmich) gepostet. Wenn Du nach Ausführung die Tabellenspalte noch sortierst, dann hast Du deinen Index.
Gruß
André

Sub TabellenlinksSetzen()
Dim AnzWS As Long
For AnzWS = 1 To ActiveWorkbook.Worksheets.Count
With ActiveSheet
.Hyperlinks.Add Anchor:=.Cells(AnzWS, 1), Address:="", SubAddress:= _
Sheets(AnzWS).Name & "!A1"
.Cells(AnzWS, 1) = Sheets(AnzWS).Name
End With
Next AnzWS
End Sub

Anzeige
AW: Index aller Tabellenblätter erstellen
19.05.2004 13:30:39
Martin
Hallo
vielen dank an euch beide!!!
Spart mir viel arbeit.
Grüße
Martin
AW: Index aller Tabellenblätter erstellen
19.05.2004 13:44:04
Martin
Hallo
habe mich leider etwas zu früh gefreut.
der index klappt, die meisten links funtionieren nicht, einige aber schon.
es erscheint immer "Verweis ist ungültig"
Woran könnte das liegen?
AW: Index aller Tabellenblätter erstellen
Kurt
Falls du Diagrammblätter dabei hast, geht für diese nicht!
Kurt
Anzeige
AW: Index aller Tabellenblätter erstellen
K.Rola
Hallo,
''Die Blätter werden in Tabelle1, Spalte A aufgelistet
''Nicht vergessen, den Code erneut auszuführen, falls Blätter
''hinzugefügt oder gelöscht werden.
Option Explicit

Sub Liste()
Dim sh As Object, c As Long, sh1 As Worksheet
Set sh1 = Sheets("Tabelle1")
sh1.Columns(1).Clear
For Each sh In Sheets
c = c + 1
sh1.Cells(c, 1) = sh.Name
Next
sh1.Columns(1).Sort Key1:=[A1], Order1:=1, Header:=0
End Sub

Gruß K.Rola
Anzeige
AW: Index aller Tabellenblätter erstellen
19.05.2004 13:48:53
Martin
Der Code läuft leider nicht, er erscheint immer index außerhalb des gültigen Bereichs,
ich habe auch versucht "Tabelle1" durch den namen meines ersten Blatttes zu ersetzten.
Mache ich da etwas falsch?
Grüße
Martin
AW: Index aller Tabellenblätter erstellen
geri
Martin
zeige doch den benutzten CODE
gruss geri
AW: Index aller Tabellenblätter erstellen
K.Rola
Hallo,
sehr merkwürdig, welche Zeile wird denn markiert?
Lad die datei mal hoch.
Gruß K.Rola
Anzeige
AW: Index aller Tabellenblätter erstellen
19.05.2004 14:03:07
Martin
Hallo,
die Datei ist leider viel zu gróß zum raufladen.Es gibt auch keine unterschied zwischen den blättern. Auch keine Diagrammblätter.
Es wird aber leider gar keine Zeile om Code markiert.
Also wird es schwer den fehler zu finden, oder?
Grüße
martin.
habe beide versucht:

Sub TabellenlinksSetzen()
Dim AnzWS As Long
For AnzWS = 1 To ActiveWorkbook.Worksheets.Count
With ActiveSheet
.Hyperlinks.Add Anchor:=.Cells(AnzWS, 1), Address:="", SubAddress:= _
Sheets(AnzWS).Name & "!A1"
.Cells(AnzWS, 1) = Sheets(AnzWS).Name
End With
Next AnzWS
End Sub



Sub Liste()
Dim sh As Object, c As Long, sh1 As Worksheet
Set sh1 = Sheets("Tabelle1")
sh1.Columns(1).Clear
For Each sh In Sheets
c = c + 1
sh1.Cells(c, 1) = sh.Name
Next
sh1.Columns(1).Sort Key1:=[A1], Order1:=1, Header:=0
End Sub

Anzeige
AW: Index aller Tabellenblätter erstellen
geri
Hallo Martin
füge neues Blatt ein, Copy Code in Modul

Sub Blaetter_auflisten()
Dim i As Integer
Range("A1").Activate
For i = 1 To Sheets.Count
ActiveCell = Sheets(i).Name
ActiveCell.Offset(1, 0).Activate
Next i
End Sub



Sub TabellenlinksSetzen()
Dim AnzWS As Long
For AnzWS = 1 To ActiveWorkbook.Worksheets.Count
With ActiveSheet
.Hyperlinks.Add Anchor:=.Cells(AnzWS, 1), Address:="", SubAddress:= _
Sheets(AnzWS).Name & "!A1"
.Cells(AnzWS, 1) = Sheets(AnzWS).Name
End With
Next AnzWS
End Sub

starte zuerst erste Macro und dann zweite, bei mir funktioniert es einwandfrei
wenn du neu machen willst musst du SPALTE A löschen und NEU ausführen
Deine Namen werde zuerst ind SpalteA gelistet und anschliessend mit Hyperlink versehen im Makro2
gruss geri
Anzeige
AW: Index aller Tabellenblätter erstellen
K.Rola
Hallo,
was willst du eigentlich mit den Hyperlinks? Falls ich das richtig gelesen habe,
wolltest du die Blätter doch mit Buttonklick aufrufen, oder?
Hyperlinks haben den Nachteil, dass da ggf. die Tabellenereignisse nicht
aufgerufen werden.
Gruß K.Rola
;

Forumthreads zu verwandten Themen

Zahlen einer Tabelle in Userform einlesen
Josef

Guten Morgen!
Ich habe in einem Arbeitsblatt mehrere Tabellen.
In einer UserForm habe habe ich 460 TextBoxen, wobei die Zählung immer pro Reihe senkrecht erfolgt.
Spalte 1 = TextBox1-23, Spalte2 = TextBox24- TextBox46 usw.
Ich möchte nun z.B. die erste Tabelle in die Textboxen e...
20.08.2008 07:07:03
Thread-ID: 1003059
19 Beiträge
Inhalt einer Tabelle löschen (nur Zellinhalte)
Jürgen

Moin Moin Forumsgemeinde,
ich kniffele hier an einem Problem. Vorweg: Ich habe mir hier im Forum als auch via Google etliche Beispiele geholt, die aber irgendwie alle nicht funktionieren oder nur unvollständig.
Problem: Ich habe eine Tabelle, welches als Grundlage für eine Pivot-Auswert...
23.09.2008 15:00:38
Thread-ID: 1011757
6 Beiträge
Inhalt einer Tabelle in 2. Tabelle kopieren
Thomas

Hallo Excel Gemeinde,
Den Inhalt einer Tabelle, möchte ich in eine zweite Tabelle in der gleichen Arbeitsmappe kopieren, das funktioniert schon mal.
Die zu kopierenden Daten sollen aber am Ende der bereits vorhandenen Daten angefügt werden, bisher überschreibt es mir diese aber ;-(
...
24.09.2008 22:19:00
Thread-ID: 1012186
3 Beiträge
Daten einer Tabelle in ein Blatt übertragen??
mfc_pj@bluewin.ch

Vielleicht kann mir jemand helfen. Ich habe eine ziemlich grosse Tabelle mit Kundendaten, Sachen wie Adresse, Tel. usw. Nun habe ich auch in Excel eine Karte erstellt mit Feldern wie Vorname, Name usw. um eine Kartei anzulegen. Nun möchte ich gerne die Daten der Liste in die Karte übertragen fü...
18.02.2009 14:24:00
Thread-ID: 1051812
4 Beiträge
Beim erstellen Tabellenblatt VBA Code eintragen | Herbers Excel-Forum
Robert
Guten morgen Leute,
wer kann mit helfen?
Ich möchte per VBA Code in dem neuer erstellten Tabellenblatt mit Namen XY einen Quellcode
reinschreiben z.b.
in einer Spalte AF addiere Zellen wenn die eine Zahl enthalten.
Mit dank im Voraus
Robert
23.05.2009 09:00:32
Thread-ID: 1076816
22 Beiträge
Anzeige
Autovervollständigen aus einer Tabelle eines ander
Rockinger

Hallo,
ich hab folgendes Problem:
In meinem Verein gibt es ca. 100 Mitglieder, deren Namen ich in einer Excel-Tabelle eingetragen habe.
Zu einem Turnier kommen nun etliche Mitglieder und Gäste.
Für das Turnier habe ich eine Excel-Auswertung vorbereitet; in dieses Auswerteblatt m...
03.06.2009 13:43:52
Thread-ID: 1078711
2 Beiträge
Tabellenblätter autom. erstellen und ausfüllen
Robert

Hallo Leute
ich habe hier eine Mappe in der ich eine Vorlage für die Prüfung von Maschinen hab.
Ich brauch pro Maschine ein Tabellenblatt und daher würde ich diese gerne automatisch erstellen wenn in der Geräteliste ein Gerät eingetragen wird.
Des Weiteren soll in den automatisch er...
07.07.2009 20:30:38
Thread-ID: 1086950
7 Beiträge
Anzeige
Infos aus einer Tabelle in extra Mappe suchen
Kalle

Hallo zusammen,
ich hab noch nicht viel Ahnung von VB, deshalb es wäre absolut klasse wenn mir einer bei folgendem Problem helfen könnte:
Ich habe eine Tabelle in Mappe 2. In dieser Tabelle stehen zu einer Person verschiedene Daten z.B. Namen, Telefonnummern, Lieblingssportart usw.
...
19.08.2009 08:48:02
Thread-ID: 1096912
2 Beiträge
Anzeige
aus vielen einzelnen Tabellen in einer datei autom
Michael

Hallo zusammen,
wer kann mir helfen, ich möchte aus 175 tabellen in einer datei automatisch eine machen... geht das?
Danke Gruss
M.
05.11.2009 15:33:08
Thread-ID: 1114748
6 Beiträge
Erstellen einer weiteren Graphik aus Wertetabelle
Ganna

Hallo,
nachdem ich nach der Berechnung eine Wetetabelle bekomme und mit 1. und 2. Spalte eine Graphik erstelle, möchte ich nun einen weitern Graph aus dieser Tabelle als Zusatzdiagrammblatt mit 1. und 3. Spalte erstellen. Habe ein Teil noch mal kopiert und statt 2 die 3 geschrieben, sowie G...
12.11.2009 12:09:45
Thread-ID: 1116444
4 Beiträge
Tabelle erstellen über Inputbox und vbchancel
Juergen

Hallo Ihr Exelaner,
Ich habe da ein Problem Ich möchte über die Funktion Inputbox eine neue Tabelle erstellen.
Habe schon viel gesucht aber nichts passendes gefunden.
Und bekomme das nicht so richtig hin immer wenn ich auf Abbrechen gehe erstellt er mir trotzdem eine Tabelle mit N...
20.01.2010 20:29:08
Thread-ID: 1131514
3 Beiträge
Löschen einer Tabelle verhindern
snickers
o.T. = ohne Textaber dennoch, vielen Dank fürs vorbeischau'n
16.04.2002 07:48:11
Thread-ID: 113575
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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