In diesem Beispiel wird eine neue Formatvorlage basierend auf der Zelle A1 in Sheet1 definiert.
Worksheets("Sheet1").Activate ActiveWorkbook.Styles.Add Name:="myNewStyle", _ BasedOn:=ActiveSheet.Range("A1")
In diesem Beispiel wird eine neue Formatvorlage definiert, die lediglich Schriftarteigenschaften enthält.
With ActiveWorkbook.Styles.Add(Name:="theNewStyle") .IncludeNumber = False .IncludeFont = True .IncludeAlignment = False .IncludeBorder = False .IncludePatterns = False .IncludeProtection = False .Font.Name = "Arial" .Font.Size = 18 End With