|
inhaltsverzeichnis erstellen
|
| Autor |
Nachricht |
Gast Stefanie
Gast
Verfasst am: 06. Jun 2008, 16:46 Rufname:
|
|
| Version: Office XP (2002) |
|
hallo leute,
ich brauch eure hilfe
ich muss in einer arbeitsmappe mit ca. 50 tabellenblätter ein inhaltsverzeichnis erstellen. hier im forum habe ich schon einen code gefunden der funktioniert
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
vielen dank im voraus
stefanie
|
|
ExcelTüftler
Excel-VBA "Rumspieler"
Verfasst am: 06. Jun 2008, 17:45 Rufname: Daniel
Wohnort: Kehl am Rhein
|
| |
| 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:
|
|
| 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
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
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
|
|
| 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:
|
| |
| Version: Office XP (2002) |
|
hallo daniel,
viele dank für deine hilfe
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:
|
|
| 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
|
|
ExcelTüftler
Excel-VBA "Rumspieler"
Verfasst am: 09. Jun 2008, 14:33 Rufname: Daniel
Wohnort: Kehl am Rhein
|
|
| 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
|
|
gast stefanie
Gast
Verfasst am: 09. Jun 2008, 21:59 Rufname:
|
| |
| Version: Office XP (2002) |
|
danke für die antworten
ich habe den fehler gefunden
in machen zellen war ein leerzeichen hinter der letzten ziffer - hier hatte das skript schwiergkeiten
lg
stefanie
|
|
| Verwandte Themen |
| Forum / Themen |
Antworten |
Autor |
Aufrufe |
Letzter Beitrag |
 |
Excel VBA (Makros): Säulendiagramm mittels VBA erstellen in einer Userform |
3 |
Hendrik83 |
366 |
15. Feb 2010, 14:55 Gast  |
 |
Excel Formeln: Siegerliste erstellen |
9 |
Thorsten123 |
119 |
10. Nov 2009, 10:12 Thorsten123  |
 |
Excel Formate: Wie kann ich eine Pickliste erstellen |
2 |
Helmut1 |
567 |
28. Okt 2009, 01:03 Gast  |
 |
Excel Formeln: einfachen Notdienstplan erstellen |
7 |
Drunken_Panda |
455 |
15. Mai 2009, 13:33 Drunken_Panda  |
 |
Excel VBA (Makros): Diagrammassistent für eigenes Diagrammformat erstellen |
0 |
Steewie82 |
134 |
26. Jun 2008, 16:12 Steewie82  |
 |
Excel Hilfe: Dynamische Query erstellen |
0 |
sebschae |
217 |
16. Jun 2008, 14:23 sebschae  |
 |
Excel Auswertungen: OLAP-Cube erstellen mit MS Query funktioniert nicht |
2 |
Gast |
3242 |
06. Apr 2008, 12:08 Gast  |
 |
Excel VBA (Makros): Checkbox(en) dynamisch aus einer Zeile erstellen |
2 |
thowe |
1869 |
20. Feb 2008, 12:43 Unbekannter User  |
 |
Excel Formeln: Hallenbelegungsplan mit 8 Personen erstellen. |
2 |
Macc |
435 |
19. Sep 2007, 14:34 Macc  |
 |
Excel VBA (Makros): Makro erstellen mit Uhrzeit???!!! |
1 |
Knutt |
311 |
13. Jun 2007, 16:26 ae  |
 |
Excel Formate: Makro erstellen, bis zur Druckerauswahl |
9 |
Kena |
2381 |
01. Dez 2006, 14:27 myfake  |
 |
Excel Hilfe: CD-Etiketten erstellen |
1 |
Slider99 |
2894 |
27. Okt 2006, 14:11 Dimitri  |
| |