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 vba : Alle Worksheets auflisten
»
Vba: Sonderzeichen austauschen korrigieren
»
Gelöst: Excel vba copy paste values 100e Fehler
»
Excel vba: eine Liste automatisch per makro aktualisieren
»
Excel: Prüfen ob ein Worksheet vorhanden ist
»
Excel Code: in Powerpoint Grafiken oder Bereiche einfügen
»
Neu (22.03.20Excel fehler: -2147188160 LinkFormat.BreakLink : Invalid request. This operation requires a linked object.19 14:59:14)
»
Excel vba: Blätter in eine neue Datei kopieren
»
Excel Code für ein kleines Addin
»
Excel Checkbox in vba makro setzen

.

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