In diesem Beispiel wird in Tabellenblatt 1 eine Liste erstellt, die die Namen und den integrierten Status aller Formatvorlagen der aktiven Arbeitsmappe enthält.
r = 0 Worksheets(1).Activate For Each s In ActiveWorkbook.Styles r = r + 1 Cells(r, 1).Value = s.Name Cells(r, 2).Value = s.BuiltIn Next