Excel Inhaltsverzeichnis aktualisiert sich in allen offenen Excel Dokumenten

Was das ganze aber mit dem Inhaltsverzeichnis zu tun hat, ist mir fraglich. Wie wird denn das Inhaltsverzeichnis erstellt?

Claus

Für das Inhaltsverzeichnis habe ich im Namensmanager eine Variable "x" erstellt dich sich auf

=ARBEITSMAPPE.ZUORDNEN(1+0*JETZT()) bezieht.

Auf dem Inhaltsverzeichnis Arbeitsblatt wird diese Formel ausgeführt, welche auf die Variable x zugreift:

=WENN(ZEILE(C2)>ANZAHL2(x);"";HYPERLINK("#'"&INDEX(x;ZEILE(C2))&"'!A1";TEIL(INDEX(x;ZEILE(C2));FINDEN("]";INDEX(x;ZEILE(C2)))+1;31)))

So wird ein Hyperlink zu dem Tabellenblatt erstellt und der Arbeitsblattname in die Zelle geschrieben.

Wenn ich das Inhaltsverzeichnis in zwei verschiedenen Dokumenten anwende, die beide keine VBA-Makros besitzen, dann beim Einfügen, Löschen oder Verschieben eines Tabellenblatts nur das Inhaltsverzeichnis des jeweiligen Dokuments aktualisiert.

Wird jedoch etwas durch ein VBA Makro eingefügt, gelöscht oder Verschoben, dann aktualisieren sich beide Inhaltsverzeichnisse mit dem Inhalt von dem Dokument, wo das Makro ausgeführt wurden ist.

Hallo,

das Makro "Muster_kopieren" wird nicht benötigt, weil es das gleiche macht wie das Makro "Vorlage_kopieren".

Select, Selection und Activate werden fast nie benötigt, wenn man korrekt referenziert.

Ändere dein Makro "Vorlage_kopieren" so ab:

 

Sub Vorlage_kopieren() 

' Vorlage_kopieren Makro 

Sheets("0000_FLXXXX; Musterlos").Copy Before:=Sheets(Sheets.Count) 

With ActiveSheet 

.Unprotect Password:="" 

With .Range("11:174,H4:I6,G3,C7,B5:C6,B3:E3, M5") 

.Locked = False 

.FormulaHidden = False 

End With 

.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _ 

False, AllowFiltering:=True 

End With 

End Sub 

Was das ganze aber mit dem Inhaltsverzeichnis zu tun hat, ist mir fraglich. Wie wird denn das Inhaltsverzeichnis erstellt?

Claus

Hallo,

ohne deinen Code zu sehen, kann man keine konkrete Hilfe anbieten. Aber ich denke, dass du nicht exakt referenziert hast.

Poste mal deinen Code.

Claus

Das Inhaltsverzeichnis habe ich nach der Anleitung von dieser Seite gemacht: http://www.borkpc.de/Excel/xl_inhverz.html

Der Code liegt unter "DieseArbeitsmappe":

Private Sub Workbook_NewSheet(ByVal Sh As Object)

Application.DisplayAlerts = False

ActiveSheet.Delete

'MsgBox "Auf dieser Art darf kein neuer Arbeitsplan angelegt werden. Bitte lies in der Anleitung nach, wie man einen neuen Arbeitsplan erstellt."

Call Vorlage_kopieren

End Sub

Sub Muster_kopieren()

'

' Muster_kopieren Makro

n = Application.Sheets.Count

Sheets("0000_FLXXXX; Musterlos").Select

Sheets("0000_FLXXXX; Musterlos").Copy Before:=Sheets(n)

End Sub

Sub Vorlage_kopieren()

'

' Vorlage_kopieren Makro

'

'

n = Application.Sheets.Count

Sheets("0000_FLXXXX; Musterlos").Select

Sheets("0000_FLXXXX; Musterlos").Copy Before:=Sheets(n)

ActiveSheet.Unprotect Password:=""

Range("B11:L174").Select

ActiveWindow.SmallScroll Down:=-247

Range("11:174,H6:I6,H5:I5,H4:I4,G3,C7,B5:C6,B3:E3, M5").Select

Range("B3").Activate

Selection.Locked = False

Selection.FormulaHidden = False

ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _

False, AllowFiltering:=True

End Sub

Dieser Code liegt im Tabellenblatt einer Vorlage für Arbeitspläne:

Private Sub Worksheet_Change(ByVal Target As Range)

Set Bez = ActiveSheet.Range("$B$5")

If Target.Address(False, False) = "B5" Then ActiveSheet.Name = Left(Bez, 31)

End Sub

Hallo,

Arbeitsmappe.Zuordnen ist ein altes Excel4-Makro.

Das funktioniert nur in Mappen, die als Mappen mit Makro, also .xlsm oder .xlsb gespeichert sind.

Dann kannst du auch gleich ein normales Makro schreiben oder in das Makro zum Kopieren den Code einfügen. In diesem Makro kannst du dann exakt referenzieren, in welche Mappe und in welches Blatt das Inhaltsverzeichnis geschrieben wird.

Hier ein Makro das in die eigene Mappe Tabelle1 in Spalte A ein Inhaltsverzeichnis mit Hyperlinks einfügt:

Sub Inhaltsverzeichnis()

Dim i As IntegerWith ThisWorkbook

    For i = 1 To .Sheets.Count

        .Sheets("Tabelle1").Hyperlinks.Add _

            anchor:=Cells(i, "A"), _

            Address:="", _

            SubAddress:="'" & .Sheets(i).Name & "'!A1", _

            TextToDisplay:=.Sheets(i).Name

    Next

End With

End Sub
Scheinbar wird der vergebene Name für Arbeitsmappe.Zuordnen beim Kopieren der Blätter mit kopiert und verursacht damit, dass in beiden Mappen ein Inhaltsverzeichnis angelegt wird.

Claus