Readdy Write  
0,00 €
Your View Money
Views: Count
Self 20% 0
Your Content 60% 0

Users by Links 0
u1*(Content+Views) 10% 0
Follow-Follower 0
s2*(Income) 5% 0

Count
Followers 0
Login Register as User

Excel vba : Alle Worksheets auflisten

17.04.2019 (👁3227)


Option Explicit

 

Sub Worksheets_ermitteln()

    '----------------< Worksheets_ermitteln() >------------

    '< init >

    Dim wb As Workbook

    Set wb = ActiveWorkbook

    Dim wsAusgabe As Worksheet

    Set wsAusgabe = wb.ActiveSheet

    '</ init >

   

    Application.Calculation = xlCalculationManual

    Application.ScreenUpdating = False

   

    '----< @Loop: Worksheets >----

    Dim ws As Worksheet

    Dim iSheet As Integer

    iSheet = 0

   

    For Each ws In wb.Worksheets

        iSheet = iSheet + 1

        Dim iZeile As Integer

        iZeile = iSheet + 5

        Dim sName As String

        sName = ws.Name

       

        Application.StatusBar = Now & " " & iSheet & " " & sName

       

        wsAusgabe.Range("C" & iZeile).Value = iSheet

        wsAusgabe.Range("D" & iZeile).Value = sName

        wsAusgabe.Range("E" & iZeile).Value = ws.Index

    Next

    '----</ @Loop: Worksheets >----

    Application.ScreenUpdating = True

    Application.Calculation = xlCalculationAutomatic

   

    MsgBox "Fertig "

    '----------------</ Worksheets_ermitteln() >------------

End Sub