Projekt-Anfragen: Tel: 07022/9319004 info@CodeDocu.de Software Entwicklung in C# WPF Asp.Net Core Vba Excel Word SQL-Server EF Linq, UWP Net
#

 

 

 

 

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

 

 

Mobile
»
Vba Makro Code: So erstellt man ein Excel Workbook und Sheet zur Laufzeit ohne Excel Verweis
»
Office Verzeichnis Dialog ohne Verweis auf ObjectLibrary
»
Ändern von vba Code zu Late Binding ohne dll-Verweis Dim Excel Word as Object
»
Excel Datei mit Schutz mit erlaubtem Farbformatierungen, Kommentaren und Sperren von Formelfeldern
»
Excel vba Fehler: Laufzeitfehler 1004 Die Locked-Eigenschaft des Range-Objektes kann nicht festgelegt werden
»
Excel Datei schützen
»
Excel Blatt schützen: Protect Parameter
»
Excel vba : Alle Worksheets auflisten
»
Vba: Sonderzeichen austauschen korrigieren
»
Gelöst: Excel vba copy paste values 100e Fehler

.

Jobs, Projekte, Angebote für Freiberufler, Selbstständig an Info@CodeDocu.de