Gruppe
Allgemein
Bereich
Ansicht
Thema
Schriftart in Zeilen wechselweise fett/nicht-fett formatieren
Problem
Wie kann ich in zwei Zeilen wechselweise den Schrifttyp "fett" wechseln?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
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