Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: ---> Neu: Office 2010 Forum <-
inhaltsverzeichnis erstellen
zurück: Prozent des abgelaufenen Makros sichtbar machen weiter: Zeile kopieren Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Gast Stefanie
Gast


Verfasst am:
06. Jun 2008, 16:46
Rufname:

inhaltsverzeichnis erstellen - inhaltsverzeichnis erstellen

Nach oben
       Version: Office XP (2002)

hallo leute,

ich brauch eure hilfe Wink

ich muss in einer arbeitsmappe mit ca. 50 tabellenblätter ein inhaltsverzeichnis erstellen. hier im forum habe ich schon einen code gefunden der funktioniert Very Happy

bei dem code werden alle tabellenblätter aufgelistet und gleichzeitig verlinkt.
aus den einzelnen tabellenblätter möchte ich neber den link im inhaltsverzeichnis jetzt noch eine weitere informationen anzeigen lassen.

also z.b. aus dem tabelle1 - zelle A1
die tabellen heisen aber "meier" "huber" "schmitt" und werden auch ab und zu umbenannt.

kann mir da einer einen tipp geben, da meine kenntnisse in vba nicht so toll sind Smile

vielen dank im voraus
stefanie
ExcelTüftler
Excel-VBA "Rumspieler"


Verfasst am:
06. Jun 2008, 17:45
Rufname: Daniel
Wohnort: Kehl am Rhein


AW: inhaltsverzeichnis erstellen - AW: inhaltsverzeichnis erstellen

Nach oben
       Version: Office XP (2002)

Hi Stefanie...

es wäre hilfreich, wenn du den Code mit dazustellst.
Dann ist es leichter, was einzufügen...

MFG

Daniel
Gast



Verfasst am:
06. Jun 2008, 18:08
Rufname:

AW: inhaltsverzeichnis erstellen - AW: inhaltsverzeichnis erstellen

Nach oben
       Version: Office XP (2002)

hallo daniel,

hier der code der das inhaltverzeichnis erstellt
Code:
Sub MappenInhaltZusammenstellen()
Dim Tabelle As Worksheet
Dim i As Integer

ActiveSheet.Name = "Inhalt"
Cells(2, 2).Value = "Übersicht"
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


hier werden ab zelle b3 alle blätter aufgelistet
in zelle c4 soll mit VBA eine formel eingefügt werden die einen wert aus einer bestimmten zelle zurückgeben.

ich stell mir das so vor Smile
der inhalt aus zelle b3 wird in einen variable zwischen gepeichert und dann in c3 als string in eine formel eingefügt "='variable'!A1"
hier spricht aber der leihe Wink

noch mal danke für eure hilfe
stefanie
ExcelTüftler
Excel-VBA "Rumspieler"


Verfasst am:
07. Jun 2008, 11:48
Rufname: Daniel
Wohnort: Kehl am Rhein

AW: inhaltsverzeichnis erstellen - AW: inhaltsverzeichnis erstellen

Nach oben
       Version: Office XP (2002)

Hi Stafanie...

hast recht!

Code:

Sub MappenInhaltZusammenstellen()
Dim Tabelle As Worksheet
Dim i As Integer

    ActiveSheet.Name = "Inhalt"
    Cells(2, 2).Value = "Übersicht"
    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
            ActiveSheet.Cells(i, 3) = "=" & Tabelle.Name & "!A1"
            i = i + 1
        End If
    Next Tabelle
End Sub


Gruß
Daniel
Gast



Verfasst am:
09. Jun 2008, 12:58
Rufname:


AW: inhaltsverzeichnis erstellen - AW: inhaltsverzeichnis erstellen

Nach oben
       Version: Office XP (2002)

hallo daniel,

viele dank für deine hilfe Smile

habe den code probiert, bekomme aber jetzt ein laufzeitfehler 1004.
beim debuggen wird die zeile gelb markiert

Code:
 
ActiveSheet.Cells(i, 3) = "=" & Tabelle.Name & "!A1"


ohne der extra code zeile läuft das program ohne probleme durch.

noch mal vielen dank für deine hilfe

lg
stefanie
gast stefanie
Gast


Verfasst am:
09. Jun 2008, 13:38
Rufname:

AW: inhaltsverzeichnis erstellen - AW: inhaltsverzeichnis erstellen

Nach oben
       Version: Office XP (2002)

noch ein nachtrag - der evtl. wichtig ist

laufzeitfehler 1004
anwendungs- oder objektdefinierter fehler

ich habe 60 tabellenblätter und der fehler tritt nach ca. 1/3 der auflistung auf Smile
ExcelTüftler
Excel-VBA "Rumspieler"


Verfasst am:
09. Jun 2008, 14:33
Rufname: Daniel
Wohnort: Kehl am Rhein

AW: inhaltsverzeichnis erstellen - AW: inhaltsverzeichnis erstellen

Nach oben
       Version: Office XP (2002)

Sorry, Steffi...

keine Ahnung warum der Fehler kommt..

[Ruf ins Forum] "HIILFE... weis jemand Rat?"

Gruß
Daniel
Thomas Ramel
Microsoft Excel-MVP


Verfasst am:
09. Jun 2008, 14:42
Rufname:
Wohnort: Riken CH

AW: inhaltsverzeichnis erstellen - AW: inhaltsverzeichnis erstellen

Nach oben
       Version: Office XP (2002)

Grüezi Stefanie

Muss das Ganze denn unbedingt mit VBA ablaufen?

Schau dir doch mal den folgenden Link näher an:

http://www.office-loesung.de/ftopic99516_0_0_asc.php&highlight=inhaltsverzeichnis+hyperlink

_________________
Mit freundlichen Grüssen

Thomas Ramel
[Vista Ultimate SP-1 / xl2007 SP-2]
gast stefanie
Gast


Verfasst am:
09. Jun 2008, 21:59
Rufname:


AW: inhaltsverzeichnis erstellen - AW: inhaltsverzeichnis erstellen

Nach oben
       Version: Office XP (2002)

danke für die antworten Very Happy

ich habe den fehler gefunden Very Happy Very Happy

in machen zellen war ein leerzeichen hinter der letzten ziffer - hier hatte das skript schwiergkeiten

lg
stefanie
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen




Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel VBA (Makros): Säulendiagramm mittels VBA erstellen in einer Userform 3 Hendrik83 366 15. Feb 2010, 14:55
Gast Säulendiagramm mittels VBA erstellen in einer Userform
Keine neuen Beiträge Excel Formeln: Siegerliste erstellen 9 Thorsten123 119 10. Nov 2009, 10:12
Thorsten123 Siegerliste erstellen
Keine neuen Beiträge Excel Formate: Wie kann ich eine Pickliste erstellen 2 Helmut1 567 28. Okt 2009, 01:03
Gast Wie kann ich eine Pickliste erstellen
Keine neuen Beiträge Excel Formeln: einfachen Notdienstplan erstellen 7 Drunken_Panda 455 15. Mai 2009, 13:33
Drunken_Panda einfachen Notdienstplan erstellen
Keine neuen Beiträge Excel VBA (Makros): Diagrammassistent für eigenes Diagrammformat erstellen 0 Steewie82 134 26. Jun 2008, 16:12
Steewie82 Diagrammassistent für eigenes Diagrammformat erstellen
Keine neuen Beiträge Excel Hilfe: Dynamische Query erstellen 0 sebschae 217 16. Jun 2008, 14:23
sebschae Dynamische Query erstellen
Keine neuen Beiträge Excel Auswertungen: OLAP-Cube erstellen mit MS Query funktioniert nicht 2 Gast 3242 06. Apr 2008, 12:08
Gast OLAP-Cube erstellen mit MS Query funktioniert nicht
Keine neuen Beiträge Excel VBA (Makros): Checkbox(en) dynamisch aus einer Zeile erstellen 2 thowe 1869 20. Feb 2008, 12:43
Unbekannter User Checkbox(en) dynamisch aus einer Zeile erstellen
Keine neuen Beiträge Excel Formeln: Hallenbelegungsplan mit 8 Personen erstellen. 2 Macc 435 19. Sep 2007, 14:34
Macc Hallenbelegungsplan mit 8 Personen erstellen.
Keine neuen Beiträge Excel VBA (Makros): Makro erstellen mit Uhrzeit???!!! 1 Knutt 311 13. Jun 2007, 16:26
ae Makro erstellen mit Uhrzeit???!!!
Keine neuen Beiträge Excel Formate: Makro erstellen, bis zur Druckerauswahl 9 Kena 2381 01. Dez 2006, 14:27
myfake Makro erstellen, bis zur Druckerauswahl
Keine neuen Beiträge Excel Hilfe: CD-Etiketten erstellen 1 Slider99 2894 27. Okt 2006, 14:11
Dimitri CD-Etiketten erstellen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: MS Frontpage