Sub Fett()
'z.B. so
ActiveCell.Value = "Herber ist toll"
ActiveCell.Font.Bold = True
'oder
Range("B30").Value = "Herber ist toll"
Range("B30").Font.Bold = True
End Sub
Um einen Text in Excel mittels VBA fett zu formatieren, befolge diese Schritte:
Öffne den VBA-Editor, indem du ALT + F11 drückst.
Füge ein neues Modul hinzu: Rechtsklick auf "VBAProject", dann "Einfügen" > "Modul".
Kopiere den folgenden VBA-Code in das Modul:
Sub Fett()
'Text in der aktiven Zelle fett formatieren
ActiveCell.Value = "Herber ist toll"
ActiveCell.Font.Bold = True
'Oder für eine bestimmte Zelle
Range("B30").Value = "Herber ist toll"
Range("B30").Font.Bold = True
End SubSchließe den VBA-Editor und führe das Makro aus, um den Text fett zu machen.
Fehler: Der Text wird nicht fett dargestellt.
Fehler: Der gesamte Zellinhalt wird fett, obwohl nur ein Teil fett sein soll.
Lösung: Verwende den With-Befehl, um spezifische Textteile zu formatieren. Beispiel:
With Range("B30")
.Value = "Herber ist toll."
.Font.Bold = True
End WithMakro-Rekorder verwenden:
HTML-Formatierung:
<b>Text wird fett dargestellt</b>Beispiel 1: Nur ein Wort in einer Zelle fett formatieren
Sub TeilFett()
Range("B30").Value = "Herber ist toll."
Range("B30").Characters(1, 5).Font.Bold = True ' Macht "Herber" fett
End SubBeispiel 2: Text in einer Zelle hinzufügen und teilweise fett formatieren
Sub TeilweiseFett()
Dim zelle As Range
Set zelle = Range("B30")
zelle.Value = "Herber ist toll und das ist gut."
zelle.Characters(1, 5).Font.Bold = True ' Macht "Herber" fett
End Sub.Font.Bold-Eigenschaft, um schnell Schriftarten in VBA zu formatieren..Characters-Befehl, um spezifische Teile eines Textes innerhalb einer Zelle zu formatieren.1. Wie kann ich mehrere Zellen gleichzeitig fett formatieren?
Um mehrere Zellen gleichzeitig fett zu formatieren, kannst du den Range-Befehl verwenden:
Range("B30:B35").Font.Bold = True2. Kann ich die Schriftgröße gleichzeitig mit der Schriftart fetten? Ja, du kannst die Schriftgröße zusammen mit dem Fett-Attribut ändern:
With Range("B30")
.Font.Bold = True
.Font.Size = 14
End With