Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1920to1924
1920to1924
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Blätter / Tabellen ignorieren

Forumthread: Blätter / Tabellen ignorieren

Blätter / Tabellen ignorieren
17.02.2023 17:26:36
Marcus1966
Hallo an Alle,
ich habe mir mit einer VBA Routine alle Tabellenblätter in ein Tabellenblatt ausgelesen. 
Sub TabellenAuslesen()
Dim Sheet As Worksheet
Dim Spalte As Integer
With Tabelle6
Spalte = 1
For Each Sheet In ActiveWorkbook.Worksheets
.Cells(1, Spalte).Value = Sheet.Name
Spalte = Spalte + 1
Next Sheet
End With
End Sub

Das funktioniert auch einwandfrei. Die Routine soll aber Blätter die auf "veryhidden" gesetzt sind bei dieser Abfrage ignorieren und sozusagen "übersehen".
Kann man das einbauen?
Gruß Marcus
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Blätter / Tabellen ignorieren
17.02.2023 17:43:29
Yal
Hallo Markus,
vermeide Variablennamen, die zu nah an reservierter Wörter sind. Ich bevorzuge sogar deutsche Bezeichnung, um eine klare Ausgrenzung der üblichen VBA-Vokabular zu haben.
Wenn Tabelle6 nur einmal verwendet wid, ist es fraglich, ob ein "With" erforderlich ist.
Achte auf einem sauberen Einrücken. So ist es leichter, Verschachtelungsfehler zu erkennen. 
Sub TabellenAuslesen()
Dim Blatt As Worksheet
Dim Spalte As Integer
    Spalte = 1
    For Each Blatt In ActiveWorkbook.Worksheets
        If Not Blatt.Visible = xlSheetVeryHidden Then
            Tabelle6.Cells(1, Spalte).Value = Blatt.Name
            Spalte = Spalte + 1
        End If
    Next Blatt
End Sub
VG
Yal
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige