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
»
Excel: RTF umschreiben zu HTML
»
Excel vba: RTF in HTML umwandeln
»
Feiertage und Ostern mit Excel berechnen
»
Excel : Zeilen löschen per vba Code
»
Excel: Umwandeln von Nummern, Datum und Uhrzeit in Text
»
Excel: Wandle Buchstaben in Ascii Zahlen um
»
Excel: Wandle Buchstaben in Ascii Zahlen um
»
Excel Speichern als .CSV mit Semikolon zeichen
»
Vba Makro Code: So erstellt man ein Excel Workbook und Sheet zur Laufzeit ohne Excel Verweis
»
Office Verzeichnis Dialog ohne Verweis auf ObjectLibrary

.

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