Blätter / Tabellen ignorieren
17.02.2023 17:26:36
Marcus1966
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 SubDas 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