.Cells(x,y).Value = ""
Sub fett()
Dim myString As Integer, x As Integer, y As Integer
Dim myArray
myArray = UsedRange
For x = LBound(myArray, 1) To UBound(myArray, 1)
For y = LBound(myArray, 2) To UBound(myArray, 2)
myString = InStr(1, Cells(x, y), " ", 1) + 1
Cells(x, y).Characters(Start:=myString, Length:=1).Font.Bold = True
Next y
Next x
End Sub
Worksheets("Tabelle1").Cells(1,2).Value = "Das Haus ist rot angestrichen"
Um Wörter in einer Excel-Zelle fett darzustellen, kannst du VBA verwenden. Hier ist eine einfache Anleitung, wie du dies umsetzen kannst:
Öffne die Excel-Datei und drücke ALT + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.
Füge ein neues Modul hinzu: Klicke auf Einfügen > Modul.
Kopiere den folgenden Code in das Modul:
Sub FettSchrift()
Dim myString As String
myString = "Das Haus ist rot angestrichen"
With Worksheets("Tabelle1").Cells(1, 2)
.Value = myString
.Characters(Start:=1, Length:=4).Font.Bold = True ' "Das" fett
.Characters(Start:=5, Length:=4).Font.Bold = True ' "Haus" fett
.Characters(Start:=14, Length:=3).Font.Bold = True ' "rot" fett
End With
End SubSchließe den VBA-Editor und gehe zurück zu Excel.
Starte das Makro über Entwicklertools > Makros und wähle FettSchrift aus.
Damit wird der Text in der angegebenen Zelle formatiert und bestimmte Wörter erscheinen in Fettschrift.
Fehler: "Der angegebene Bereich ist ungültig."
Fehler: "Das Makro kann nicht gefunden werden."
Fehler: "Die Schriftart wird nicht fett dargestellt."
Falls du nicht VBA verwenden möchtest, kannst du die Excel Shortcuts nutzen, um Text manuell fett zu formatieren:
STRG + B, um den Text fett zu formatieren.Für mehr Kontrolle über die Formatierung kannst du auch die Formatierungsoptionen im Ribbon verwenden.
Hier sind einige praktische Beispiele, wie du Fettschrift mit VBA in Excel nutzen kannst:
Ein einfaches Beispiel für das Fetten eines einzelnen Wortes:
Sub FettBeispiel()
With Worksheets("Tabelle1").Cells(1, 1)
.Value = "Hier steht ein Text"
.Characters(1, 4).Font.Bold = True ' "Hier" wird fett
End With
End SubEin Beispiel für mehrere Wörter:
Sub MehrereWoerterFett()
With Worksheets("Tabelle1").Cells(2, 1)
.Value = "Das Auto ist blau"
.Characters(1, 3).Font.Bold = True ' "Das" wird fett
.Characters(8, 3).Font.Bold = True ' "ist" wird fett
End With
End SubNutze die InStr-Funktion, um dynamisch die Position deiner Schlüsselwörter zu finden, falls deine Texte variieren.
Dim position As Integer
position = InStr(myString, "Haus")
If position > 0 Then
.Characters(Start:=position, Length:=4).Font.Bold = True
End IfExperimentiere mit der MsgBox, um den Nutzer zu informieren, wenn ein Wort erfolgreich in Fettschrift formatiert wurde:
MsgBox "Das Wort 'Haus' wurde fett formatiert."1. Wie kann ich mehrere Wörter gleichzeitig fett formatieren?
Du kannst eine Schleife verwenden, um die Wörter zu identifizieren und sie dann mit der .Font.Bold-Eigenschaft zu formatieren.
2. Gibt es einen Shortcut, um schnell Text fett zu machen?
Ja, der Excel Shortcut zum Fett schreiben ist STRG + B.
3. Funktioniert dieser Code in allen Excel-Versionen? Ja, die VBA-Methode funktioniert in den meisten modernen Excel-Versionen (Excel 2010 und höher).
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen