ich möchte gern die Schriftart im Bereich ändern, leider haben diese Zeilen
nur Fehlermeldung produziert.
ActiveSheet.Range("B26:c50,B91:c115,B155:c179").Select
With Selection
.Name = "Calibri"
.Size = 10
End With
mfg
walter wb
Range("B1:B9,C12:C20").Select
Range("C12").Activate
With Selection.Font
.Name = "Calibri"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
.ThemeFont = xlThemeFontMinor
End With
Das noch gesäubert könnte dann so lauten:Sub Makro1()
With ActiveSheet.Range("B26:c50,B91:c115,B155:c179").Font
.Name = "Calibri"
.Size = 10
End With
End Sub
LG
Sub Makro1()
With ActiveSheet.Range("B26:c50,B91:c115,B155:c179").Font
.Name = "Calibri"
.Size = 10
End With
End Sub
funktioniert nämlich auch. Er hat noch den Vorteil, dass er ohne die "Selectiererei" auskommt, die in den meisten Fällen unnötig ist.