Blattnamen abrufen

Anonim

So erhalten Sie Blattnamen mit VBA in Microsoft Excel

Falls Sie einen Weg finden möchten, um alle sichtbaren, d. h. nicht ausgeblendeten Namen des Blatts zu erhalten.

In diesem Artikel erfahren Sie, wie Sie mit VBA-Code nur die Namen der sichtbaren Blätter erhalten.

Frage): Ich habe mehrere Blätter in einer Datei und habe die Blätter ausgeblendet, 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 . 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

If Sheets(i).Visible = -1 Then

Zellen(j, 1) = Tabellen(i).Name

j = j + 1

Ende Wenn

Nächste

End Sub

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

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

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

Download - So erhalten Sie Blattnamen mit vba - xlsm