Excel und VBA - Die Excel-FAQ

Schriftart in Zeilen wechselweise fett/nicht-fett formatieren

Screenshots zu den Aufrufoberflächen der Excel-Materialien

Schriftart in Zeilen wechselweise fett/nicht-fett formatieren

Problem: Wie kann ich in zwei Zeilen wechselweise den Schrifttyp "fett" wechseln?

StandardModule: basMain

Sub ToggleBold()
   With Worksheets(1)
      With Rows(1)
         .Font.Bold = Not .Font.Bold
         .Rows(2).Font.Bold = Not .Font.Bold
      End With
   End With
End Sub