Makro um Daten bereinigen
30.01.2023 10:38:11
Anna
Ich habe hier einmal folgendes Makro, das eine Übersicht aus Dateien aller Reiter + Hyperlink erstellt, wodurch man schnell auf den jeweiligen Reiter springen kann. Allerdings gibt es sog. Übersichtsreiter, die in dieser Overview nicht auftreten sollen (die heißen z.B. Basics Übersicht), jetzt gerade aber drin sind. Gibt es eine Möglichkeit diese Reiter von der Overview, die sich aus einem Makro erstellt, aussortiert?
Mein Makro sieht momentan so aus:
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 'Erstellen des Inhaltsverzeichnisses 'Vertikal For i = 4 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 tarWks.Cells(i, 2).Value = Worksheets(i).Range("F6").Value tarWks.Cells(i, 3).Value = Worksheets(i).Range("F47").Value tarWks.Cells(i, 4).Value = Worksheets(i).Range("F48").Value tarWks.Cells(i, 5).Value = Worksheets(i).Range("F49").Value End If Next i End SubKann man das um die "Basics Übersicht" bereinigen?
Danke im Voraus!
LG,
Anna