Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
428to432
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
428to432
428to432
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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
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
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
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
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

278 Forumthreads zu ähnlichen 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
Anzeige
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
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
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
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
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
18
5
2
3
21
1
6
1
5
3
2
3
4
4
1
5
2
6
1
1
1
3
13
2
11