Wie bekomme ich Blattnamen mit VBA in Microsoft Excel

Falls Sie einen Weg finden möchten, mit dem Sie alle Namen des Blattes erhalten, die sichtbar, d. H. Nicht versteckt sind.

In diesem Artikel erfahren Sie, wie Sie die Namen der sichtbaren Blätter nur mithilfe von VBA-Code abrufen.

Frage): Ich habe mehrere Blätter in einer Datei und ich habe die Blätter versteckt, die andere nicht sehen sollen. Ich möchte einen Code, der mir den Namen aller sichtbaren Blätter gibt.

Nehmen wir an, wir haben 5 Blätter und verstecken absichtlich ein bestimmtes Blatt.

Um den Namen der sichtbaren Blätter zu erhalten, müssen wir die folgenden Schritte ausführen:

Klicken Sie auf die Registerkarte Entwickler. Wählen Sie in der Gruppe Code die Option Visual Basic

img1

aus Kopieren Sie den folgenden Code in das Standardmodul

Sub VisibleSheets ()

Dim i As Integer, j As Integer: j = 1

Zellen (1, 1) .CurrentRegion.Cells.Clear

Für i = 1 To Sheets.Count

Wenn Blätter (i) .Visible = -1 Dann

Zellen (j, 1) = Blätter (i) .Name

j = j + 1

End If

Weiter

End Sub

===

img2

  • Wenn Sie den Code zum ersten Mal ausführen, erhalten Sie die Namen aller Blätter im aktuellen Blatt in Spalte A

img3

  • Wenn wir das Jan-Blatt ausblenden, haben wir die folgende Liste der Blattnamen

img4

Auf diese Weise können wir den Namen aller sichtbaren Blätter mithilfe von VBA-Code abrufen.

image 4