Hyperlink Inhaltsverzeichnis+Auswertung
06.12.2022 15:45:26
Carl
ich habe über ein leicht abgewandeltes Marko aus diesem Forum ein Inhaltsverzeichnis mit Hyperlinks erstellt.
Das Inhaltsverzeichnis wird in der Reihenfolge aufbaut, in der die Tabellenblätter aufgelistet sind.
Nun möchte ich wiederkehrend auf jedem Tabellenblatt Zellen auslesen zusätzlich auf dem Blatt mit ausgeben.
Makro ist wie folgt:
Sub CommandButton1_Click()
'Erstellt ein Inhaltsverzeichnis auf alle Tabellen einer
'Mappe mit Hyperlinks auf die jeweiligen Tabellen
Dim tarWks As Worksheet
Dim i As Integer, myRow As Integer, tmpCnt As Integer
'Blattnamen anpassen
Set tarWks = Worksheets("Overview")
'Bestehenden Inhalt löschen
tarWks.Columns(1).ClearContents
tarWks.Cells(1, 1) = "Overview"
'Erstellen des Inhaltsverzeichnisses
'Vertikal
For i = 1 To Worksheets.Count
If Worksheets(i).Visible Then
tarWks.Cells(i, 1) = Worksheets(i).Name
Cells(i, 1).Hyperlinks.Add Anchor:=Cells(i, 1), Address:="", SubAddress:="'" & Worksheets(i).Name & "'!A1", TextToDisplay:=Worksheets(i).Name
End If
Next i
'Sortiert das Inhaltsverzeichnis
'Abschnitt reinnehmen für Sortierung alphabetisch
'tarWks.Columns(1).Sort Key1:=tarWks.Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
'OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
'DataOption1:=xlSortNormal
'Horizontal
'tmpCnt = 1
'myRow = 1
'For i = 1 To Worksheets.Count
' If i Mod 256 = 0 Then
' tmpCnt = 1
' myRow = myRow + 1
' End If
' If Worksheets(i).Name tarwks.Name Then
' tarwks.Cells(myRow, tmpCnt) = Worksheets(i).Name
' Cells(myRow, tmpCnt).Hyperlinks.Add Anchor:=Cells(myRow, tmpCnt), Address:="", SubAddress:="'" & Worksheets(i).Name & "'!A1", TextToDisplay:=Worksheets(i).Name
' tmpCnt = tmpCnt + 1
' End If
'Next i
End Sub
Nachname -> Mustermann (Feld A2)
Name -> Max (Feld B2)
Geburtstag -> 18.02.1998 (Feld C2)
Die Logik wiederholt sich auf allen Tabellenblättern mit den identischen Feldern. Sehr Ihr eine Möglichkeit zusätzlich zu dem Inhaltsverzeichnis mit Hyperlink auch die 3 folgelagerten Daten mit im Inhaltsverzeichnis auszugeben?
Zusätzlich möchte ich keine Formatierungen wie z. B. Schriftgrade oder "Fett" übernehmen.
1000 Dank im Voraus und beste Grüße
Carl