Inhaltsverzeichnis dringend benötigt
HaveFun,
27.05.03, 18:02
- drucken - Thema drucken - weiterempfehlen
Hallo Markus & Community!
Ich möchte in einer sehr großen Mappe (ca. 30 Blätter) ein Inhaltsverzeichnis erstellen, so dass ich ein extra Blatt habe, von dem man mit einem Klick einfach auf das gewünscht Baltt springen kann.
Die lange Liste an Tab /Blättern am unteren Bildschrimrand wird nämlich sehr untersichlich ... bei so vielen Blättern.
Die Funktion "inhaltsverzeichnnis" in meiner (resitrierten) MR-T gibt jedoch immer eine Fehlermeldung aus.
Auch dann, als ich zu Testzwecke eine Tabelle mit nur einem Sheet erstellt hatte.
(Excel 2000 SP3, englisch; Markus Reichenbach Toolbox (3.0 XP))
Bitte geb' mir eine Rückmeldung!
Danke!
Dateianlagen:
inhaltsverzeichnnis_fehlermledung.gif (8 kByte, 625 x 364 Pixel)
speichern
AW: Inhaltsverzeichnis dringend benötigt M.Grunewald, 28.05.03, 08:52 - drucken - weiterempfehlen
Das folgende Makro (von Bernd Held) erzeugt ein neues Tabellenblatt und
Hallo Michael!
Hi Jan,
Hallo zusammen!
Anmerkung nach Ersetzen im Makro von Markus:
screen_inhaltsverzeichnis.gif (4 kByte, 346 x 204 Pixel)
Hallo Jan,
Hi Markus!
Hi Jahn,
Hi Markus!
listet darin alle Tabellenblätter der Arbeitsmappe als Link auf.
Die Tabellennamen dürfen keine Leerzeichen enthalten
Mit freundlichen Grüssen
Michael Grunewald
Mailto:[email protected]
-------------------
Sub MappenInhaltZusammenstellen()
Dim Tabelle As Worksheet
Dim i As Integer
Worksheets.Add.Move before:=Worksheets(1)
ActiveSheet.Name = "Inhalt"
Cells(2, 2).Value = "Enthaltene Blaetter"
i = 3
For Each Tabelle In ActiveWorkbook.Worksheets
If Tabelle.Name <> "Inhalt" Then
Cells(i, 2).Value = Tabelle.Name
Tabelle.Hyperlinks.Add Anchor:=Cells(i, 2), _
Address:="", SubAddress:=Tabelle.Name & _
"!A1", ScreenTip:="Hyperlink klicken", _
TextToDisplay:=Tabelle.Name
i = i + 1
End If
Next Tabelle
End Sub
--------------------
-----Ursprüngliche Nachricht-----
Von: HaveFun [mailto:@carookee.com]
Gesendet: Dienstag, 27. Mai 2003 18:10
An: 
Betreff: Inhaltsverzeichnis dringend benötigt
Hallo Markus & Community!
Ich möchte in einer sehr großen Mappe (ca. 30 Blätter) ein
Inhaltsverzeichnis erstellen, so dass ich ein extra Blatt habe, von dem
man mit einem Klick einfach auf das gewünscht Baltt springen kann.
Die lange Liste an Tab /Blättern am unteren Bildschrimrand wird nämlich
sehr untersichlich ... bei so vielen Blättern.
Die Funktion "inhaltsverzeichnnis" in meiner (resitrierten) MR-T gibt
jedoch immer eine Fehlermeldung aus.
Auch dann, als ich zu Testzwecke eine Tabelle mit nur einem Sheet
erstellt hatte.
(Excel 2000 SP3, englisch; Markus Reichenbach Toolbox (3.0 XP))
Bitte geb' mir eine Rückmeldung!
Danke!
Täglich
gewinnen! Jetzt kostenlos mitspielen!
_____
Um auf diesen Beitrag zu antworten, benutzen Sie die Antworten-Funktion
Ihrer Mail-Software.
Einen neuen Beitrag im
Forum verfassen · Diesen Beitrag
Mailingliste
Re: AW: Inhaltsverzeichnis dringend benötigt
HaveFun,
28.05.03, 09:53
- drucken - weiterempfehlen
Danke für den Tipp!
Haargenau dieses Makro habe ich schon ausprobiert. Ich hatte es bei Spotlight.de gefunden.
Aber meine Mappe enthalt viele Blätter, die ausschließlich Diagramme enthalten (nach Beendigung des Diagramm-Assistenten hatte ich "als neues Blatt" ausgewählt).
Diese Diagramm-Sheets werden leider nicht mit in das Inhaltsverzeiochnis mit aufgenommen ... dies wäre jedoch sehr wichtig.
(Excel 2000)
Danke,
Jan
Re: Inhaltsverzeichnis dringend benötigt
MarkusReichenbach,
28.05.03, 23:59
- drucken - weiterempfehlen
bisher konnte ich mit deiner englischen Excelversion noch nicht testen.
Ich vermute aber, dass z.B. folgende Zeile Probleme verursacht, da "DieseArbeitsmappe" in deiner Version "ThisWorkbook" oder so heißt.
+++++++++++++++++++++++++++++++++++++++++++++++++++++
Set VBP = ActiveWorkbook.VBProject.VBComponents("DieseArbeitsmappe")
+++++++++++++++++++++++++++++++++++++++++++++++++++++
Vorschlag:
Ersetze in deiner Toolboxversion "DieseArbeitsmappe" durch die englische Bezeichnung
(Modul Inhaltsverzeichnis; Suchen&Ersetzen STRG+H)
Alternativ kannst du mir den englischen Namen von "DieseArbeitsmappe" posten, dann schicke ich dir die Toolbox für die englsiche Version zu.
Mit freundlichen Grüßen
Markus Reichenbach
http://www.markus-reichenbach.de
http://www.mr-toolbox.de
[editiert: 28.06.03, 14:07 von MarkusReichenbach]
Website-Tipp: englisch deutsch (VBA)
HaveFun,
02.06.03, 15:08
- drucken - weiterempfehlen
Hier eine interessante Website:
Excel Schlüsselwörter, Englisch Deutsch
http://home.arcor.de/setup/office/off10.html
Außerdem habe ich eine wesentlich umfangreeichere Liste mit Übersetzungen Ecel-deutsch/englisch angefügt.
Dort habe ich beispielsweise gelesen:
" ThisWorkbook - DieseArbeitsmappe
"
Gruß,
Jan
[editiert: 02.06.03, 15:23 von HaveFun]
Dateianlagen:
excel_deutsch-englisch.xls (206 kByte)
anzeigen - speichern
Datei wurde schon 361-mal heruntergeladen.
Re: Website-Tipp: englisch deutsch (VBA)
HaveFun,
02.06.03, 15:24
- drucken - weiterempfehlen
Nach dem Ersetzen funktioniert das Makro Inhaltsverzeichnis zuerst einmal einwandfrei :-)
Das Inhaltsverzeichnis wird jedenfalls erstellt. In einer kleinen Beispieldatei funktionieren auch die Links einwandfrei.
nur dann, wenn ich dies an der Originalprojektdatei mache, kommt Excel offenabr mit dem Dateinamen nicht klar: siehe Screenshot.
Dateianlagen:
speichern
Re: Website-Tipp: englisch deutsch (VBA)
MarkusReichenbach,
02.06.03, 22:14
- drucken - weiterempfehlen
die Fehlermeldung ist schon sonderbar.
Wie heißt denn die XLS-Datei, 'Ticksheet_v10-'3.xls???
Sind die rot markierten Zeichen wirklich im Dateinamen oder nur in der Fehlermeldung?
Jedenfalls kommt Excel mit den ' durcheinander.
Auch bei mir, in der deutschen Excelversion, steigt das Makro bei dem Dateinamen 'Ticksheet_v10-'3.xls mit einer Fehlermeldung aus. 
Benenne die Datei mal testweise ohne '
Mit freundlichen Grüßen
Markus Reichenbach
http://www.markus-reichenbach.de
http://www.mr-toolbox.de[img]
[editiert: 02.06.03, 22:16 von MarkusReichenbach]
Dateianlagen:
Ticksheet_v10-3.xls-Fehler (108 kByte, 735 x 325 Pixel)
Anzeige optimiert für beste Darstellung.
anzeigen - Großansicht - speichern
Datei wurde schon 434-mal heruntergeladen.
Inhaltsverzeichnis und Sonderzeichen im Dateinamen
HaveFun,
03.06.03, 00:27
- drucken - weiterempfehlen
Der Dateiname meiner Mappe ist OHNE die Singlequotes!
Meine Datei heisst: Ticksheet_v10-3.xls
Für mich sieht das so aus, als wenn der Dateiname geparsed wird, und Excelvor dem Minus den Dateinamen für beendet erklärt; daher hat Excel das 'Ticksheet_v10-' mit Single-Quotes eingeschlossen.
Siehst Du das genauso?
Ich habe heute nachmittag folgenden Dateinamen ausprobiert:
Ticksheetv103.xls
Und siehe da: Alles Einwandfrei; das Inhaltsverzeichnnis funktioniert komplett 
Danke,
Jan
[editiert: 03.06.03, 00:27 von HaveFun]
Re: Inhaltsverzeichnis und Sonderzeichen im Dateinamen
Markus Reichenbach,
03.06.03, 12:51
- drucken - weiterempfehlen
in der deutschen Excelversion geht es auch mit - ?!?
Re: Inhaltsverzeichnis und Sonderzeichen im Dateinamen
HaveFun,
03.06.03, 15:50
- drucken - weiterempfehlen
Ich habe es gerade gestestet:
Excel 2000 SP-3, englisch.
Nach ändern von ersetzen: DieseArbeitsmappe
Der Dateiname Test_1.xls bringt keine Probleme.
Der Dateiname Test-1.xls erstellt zwar das Inahltsverzeichnis, jedoch beim ersten Klick auf einen Button erscheint die schon gepostete Fehlermeldung.
Dabei wird der Dateiname bis zu dem Minuszeichen in singelquotes (') gesetzt.
Gruß,
Jan
