Startseite Inhaltsverzeichnis Nutzungsbedingungen Datenschutz Impressum Weitere Informationen

CODE-SCHNIPSEL

Alle Arbeitsblätter auflisten

VBA und Makros • Codeschnipsel • Arbeitsblatt • Tabelle • Auswertung

Ausgangslage ... Was tut der Codeschnipsel?

Folgend finden Sie zwei Varianten zur Auflistung aller Arbeitsblätter in der aktuell geöffneten Arbeitsmappe:
a) Erstellt ein neues Arbeitsblatt und listet dort alle vorhandenen Arbeitsblätter auf.
b) Schreibt alle Arbeitsblätter an die aktuelle Cursorposition nach unten fort.

Achtung: Daten unterhalb der selektierten Zelle werden überschrieben!

VBAVBA Codeschnipsel
XLSQuelltext zur Verwendung mit Microsoft® Excel®

Der Quelltext ...

Option Explicit
Option Compare Text
' ****************************************************************
' Autor/en und Original-Quelltext unter:
' https://www.online-vba.de/vba_listsheets.php
' Verwendung der Quelltexte auf eigene Gefahr!
' Es gelten die Nutzungsbedingungen von https://www.online-vba.de
' ****************************************************************


Public Sub OVBAde_Alle_Arbeitblaetter_auflisten_neues_Blatt()
  Dim z As Long, i As Long
    
    ActiveWorkbook.Sheets.Add
    Cells(1, 1) = "Arbeitsblätter in dieser Arbeitsmappe"
    z = 2
    
    For i = 1 To Sheets.Count
        Cells(z, 1) = Sheets(i).Name
        z = z + 1
    Next i
End Sub

Public Sub OVBAde_Alle_Arbeitblaetter_auflisten_an_Cursorposi()
  Dim z As Long, s As Long, i As Long
    
    s = Selection.Column
    z = Selection.Row
    Cells(z, s) = "Arbeitsblätter in dieser Arbeitsmappe"
    z = z + 1
    
    For i = 1 To Sheets.Count
        Cells(z, s) = Sheets(i).Name
        z = z + 1
    Next i
End Sub

Anmerkungen und Hinweise ...

Achtung: Daten unterhalb der selektierten Zelle werden überschrieben!

Dieser Codeschnipsel wurde geschrieben von Marc Wershoven im Jahr 2013.
Es gelten die Nutzungsbedingungen von Online-VBA.de.
TOTOP
ANZEIGE