Arbeitsmappe inventarisieren

Sub ArbeitsmappeInventarisieren()
    Dim ws As Worksheet, out As Worksheet, r As Long
    On Error Resume Next
    Set out = ThisWorkbook.Worksheets("Admin_Inventar")
    On Error GoTo 0
    If out Is Nothing Then
        Set out = ThisWorkbook.Worksheets.Add(Before:=ThisWorkbook.Worksheets(1))
        out.Name = "Admin_Inventar"
    Else
        out.Cells.Clear
    End If
    out.Range("A1:E1").Value = Array("Blatt", "Sichtbarkeit", "Zeilen", "Spalten", "UsedRange")
    r = 2
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name <> out.Name Then
            out.Cells(r, 1).Value = ws.Name
            out.Cells(r, 2).Value = ws.Visible
            out.Cells(r, 3).Value = ws.UsedRange.Rows.Count
            out.Cells(r, 4).Value = ws.UsedRange.Columns.Count
            out.Cells(r, 5).Value = ws.UsedRange.Address
            r = r + 1
        End If
    Next ws
    out.Columns.AutoFit
End Sub