[VBA] Inhaltsverzeichnis von Arbeitsblättern....

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub sbName() Dim strN As String, X As Long, Y As Long, i As Long ' Application.ScreenUpdating = False ' evtl. NACH dem Test aktivieren With Sheets("01. Übersichtsliste") .Unprotect For X = 1 To Worksheets.Count - 1 For Y = X + 1 To Worksheets.Count If Worksheets(Y).Name strN Then .Cells(i + 2, 1) = i - 1 Worksheets(i).Cells(2, 2).Value = i - 1 Worksheets(i).PageSetup.RightFooter = CStr(i - 1) End If Next i .Columns("A:A").EntireColumn.AutoFit Application.PrintCommunication = True Application.GoTo Reference:="R3C1" .Protect DrawingObjects:=True, Contents:=True, Scenarios:=True End With Application.ScreenUpdating = True End Sub

Sub sbName() Dim strN As String, X As Long, Y As Long, i As Long ' Application.ScreenUpdating = False ' evtl. NACH dem Test aktivieren With Sheets("Tabelle1") For X = 1 To Worksheets.Count - 1 For Y = X + 1 To Worksheets.Count If Worksheets(Y).Name

Hallo,
Zuerst eine Frage? Wer ist Uwe?
Frage 1: So wie Dein Tabellenblatt betitelt ist, musst Du auch den selben Namen im Makro verwenden
Frage2: Ändere einfach den Zellbezug im Makro um nicht in B3 zu Beginnen obwohl Du in Deiner Anfrage geschrieben hast, es sei Dir egal wo es beginnt --> (aber kein muss)
Frage 3: Die Sortierung habe ich aus dem Code gelöscht, vergleiche einfach beide, dann weißt Du wo
hier mal mein neuer Code mit ein paar kleinen Anleitungen:

Sub IHV()
Dim strN As String, X As Long, Y As Long, i As Long
With Sheets("Tabelle1") ' hier Deinen Blattnamen eingeben
Range("A:B").ClearContents ' dieser Bereich wird vor Erstellung eines neuen IHV gelöscht
Application.PrintCommunication = False
For i = 2 To Worksheets.Count ' Zahl 1 wäre mit dem Tabellenblatt1, 2 ohne Tabellenblatt1  _
aufzulisten usw.
strN = Worksheets(i).Name
.Cells(i + 1, 2) = strN ' 1,1 ist Beginn in Zelle A1, 1,2 ist Zelle B3 usw.
.Hyperlinks.Add Anchor:=Cells(i - 1, 2), Address:="", _
SubAddress:="'" & strN & "'!B1", TextToDisplay:=strN
Next i
.Columns("A:A").EntireColumn.AutoFit
Application.PrintCommunication = True
Application.GoTo Reference:="R3C1"
End With
Application.ScreenUpdating = True
End Sub

Abschließend möchte ich sagen, ich bin kein VBA Profi, sondern probiere selber nur an den Codes anderer herum. Selbiges bezieht sich auch auf die Pivot Charts, da kann ich leider nicht weiter helfen.
Da wird sich sicher jemand anderer finden.
Hoffe wir sind Deinem Ziel wieder etwas näher gekommen?
Dann noch schönen Sonntag,
mfg Bernd

Sub IHV() Dim strN As String, X As Long, Y As Long, i As Long With Sheets("Tabelle1") ' hier Deinen Blattnamen eingeben Range("A:B").ClearContents ' dieser Bereich wird vor Erstellung eines neuen IHV gelöscht Application.PrintCommunication = False For i = 2 To Worksheets.Count ' Zahl 1 wäre mit dem Tabellenblatt1, 2 ohne Tabellenblatt1 _ _ aufzulisten usw. strN = Worksheets(i).Name .Cells(i + 2, 2) = strN ' 1,1 ist Beginn in Zelle A1, 1,2 ist Zelle B3 usw. .Hyperlinks.Add Anchor:=Cells(i + 2, 2), Address:="", _ SubAddress:="'" & strN & "'!B1", TextToDisplay:=strN Next i .Columns("A:A").EntireColumn.AutoFit Application.PrintCommunication = True Application.GoTo Reference:="R3C1" End With Application.ScreenUpdating = True End Sub

Hi Bernd,
ja jetzt funktioniert es danke.
Ich bin leider ein absoluter noob und habe davon gar keine Ahnung, das mit dem Rumprobieren lasse ich lieber sein, bevor am Ende mein Dokument hinüber ist, daran habe ich schon eine halbe Ewigkeit gebastelt!
Und von dem Code versteh ich gar nichts....
für mich stellen sich dort folgende Fragen.
Für was genau brauche ich das i?
Wenn das nicht wäre könnte man ja "normal" zählen und müßte nicht als umrechnen (+/- 2)
für was ist dieser Absatz?

.Columns("A:A").EntireColumn.AutoFit
Application.PrintCommunication = True
Application.GoTo Reference:="R3C1"

Frage mich halt was er in A sucht oder macht? Da soll ja gar nichts gemacht werden?!?
und nochmal wegen den Diagrammtiteln. Ich habe diese nun alle dynmaisch hinterlegt.
Die Information dafür befindet sich auf jedem Arbeitsblatt in B2
Wie kann ich daraus nun ein IHV erstellen? Das sollte doch nun deutlich einfacher sein.

Option Explicit Sub IHV() Dim ws As Worksheet Dim rng As Range Dim pt As PivotTable Dim i, iRow, iRowPT As Integer With Sheets(1).Range("C5") 'Startzelle evtl anpassen For i = 2 To Worksheets.Count .Offset(iRow).Hyperlinks.Add Anchor:=.Offset(iRow), _ Address:="", SubAddress:="'" & Sheets(i).Name & "'!A1", _ TextToDisplay:=Sheets(i).Name iRow = iRow + 1 For Each pt In Sheets(i).PivotTables .Offset(iRow - 1 + iRowPT, 1) = pt.Name iRowPT = iRowPT + 1 Next pt If iRowPT > 0 Then iRow = iRow + iRowPT - 1 iRowPT = 0 End If Next i End With End Sub

Beliebteste Forumthreads (12 Monate)

[VBA] Inhaltsverzeichnis von Arbeitsblättern....

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

[VBA] Inhaltsverzeichnis von Arbeitsblättern....

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread