Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Erstes Wort aus Zelle fett formatieren

Erstes Wort aus Zelle fett formatieren
26.03.2007 12:31:03
Stefan
Hallo zusammen,
ich habe eine Tabelle mit ca. 500 Artikelbeschreibungen.
Der Übersichthalber würde ich gern jedes erste Wort des Zellinhaltes fett formatieren.
Ich möchte dies gern über VBA erledigen, da es manuell zu umfangreich ist. Ich kann jetzt mit folgendem code wohl das erste Wort in eine andere Zelle auslesen, aber die Formatierung in der gleichen Zelle bekomme ich nicht hin:
...
Cells(zeile, 3) = Left(Cells(zeile, 2), InStr(1, Cells(zeile, 2), " ") - 1)
Cells(zeile, 3).Select
Selection.Font.Bold = True
...
Könnt mir jemand behilflich sein ?
Vielen Dank und Gruß
Stefan
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Erstes Wort aus Zelle fett formatieren
26.03.2007 12:45:00
Marius
Hallo,
vielleicht hilft Dir das hier weiter:
Cells(1, 1).Characters(Start:=1, Length:=5).Font.Bold = True
AW: Erstes Wort aus Zelle fett formatieren
26.03.2007 12:49:22
Bertram
Hallo Stefan,

Sub ErstesWortFett()
Dim i As Integer
i = InStr(1, Cells(Zeile, 2), " ") - 1
Cells(Zeile, 2).Characters(1, i).Font.Bold = True
End Sub

Gruß
Bertram
Anzeige
AW: Erstes Wort aus Zelle fett formatieren
26.03.2007 14:49:52
Stefan
Hallo Bertram,
vielen Dank, Deine Lösung funktioniert perfekt.
Vielen Dank auch an die anderen Beiden Helfer.
Gruß
Stefan
Gerne mwT
26.03.2007 15:02:09
Bertram
Hallo Stefan,
der Vollständigkeit halber solltest du noch folgende Zeile einfügen, damit nicht alles fett ist, falls du mal Änderungen machst:
Cells(zeile, 2).Characters(i + 1, Len(Cells(zeile, 2)) - i).Font.Bold = False
Gruß
Bertram
Anzeige
AW: Erstes Wort aus Zelle fett formatieren
26.03.2007 13:02:40
mpb
Hallo Stefan,
vielleicht geht's auch eleganter, aber ...
Bereich markieren und folgendes Makro ausführen:

Sub Einzelne_Zeichen_formatieren_in_ausgewähltem_Bereich()
Application.ScreenUpdating = False
For Each cell In Selection
Z = cell.Row
s = cell.Column
Cells(Z, s).Select
A = Len(Left(ActiveCell, InStr(ActiveCell, " ") - 1))
For j = 1 To A
ActiveCell.Characters(j, 1).Font.Bold = True
Next j
Next cell
Application.ScreenUpdating = True
End Sub
Gruß
Martin
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Erstes Wort aus Zelle fett formatieren in Excel


Schritt-für-Schritt-Anleitung

Um das erste Wort aus einer Zelle in Excel fett zu formatieren, kannst Du ein VBA-Makro verwenden. Hier ist eine Schritt-für-Schritt-Anleitung, die Dir hilft:

  1. Öffne den VBA-Editor: Drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Erstelle ein neues Modul: Klicke auf Einfügen -> Modul.

  3. Füge den Code ein: Kopiere und füge den folgenden VBA-Code in das Modul ein.

    Sub ErstesWortFett()
       Dim i As Integer
       Dim Zeile As Integer
       Zeile = 2 ' Ändere dies auf die gewünschte Zeilennummer
       i = InStr(1, Cells(Zeile, 2), " ") - 1
       Cells(Zeile, 2).Characters(1, i).Font.Bold = True
       Cells(Zeile, 2).Characters(i + 1, Len(Cells(Zeile, 2)) - i).Font.Bold = False
    End Sub
  4. Führe das Makro aus: Schließe den VBA-Editor und gehe zurück zu Excel. Drücke ALT + F8, wähle ErstesWortFett aus und klicke auf Ausführen.

Mit diesem VBA-Skript wird das erste Wort aus der angegebenen Zelle fett formatiert, während der Rest des Textes normal bleibt.


Häufige Fehler und Lösungen

  • Fehler: Das erste Wort wird nicht fett formatiert.

    • Lösung: Stelle sicher, dass Du die korrekte Zeilennummer im Skript angegeben hast. Der Code verwendet Zeile = 2 als Beispiel.
  • Fehler: Das gesamte Wort wird fett formatiert.

    • Lösung: Überprüfe, ob die Zeile, die das zweite Characters-Objekt ansteuert, korrekt ist. Sie sollte den Rest des Textes nach dem ersten Wort formatieren.

Alternative Methoden

Falls Du eine andere Herangehensweise bevorzugst, kannst Du auch folgende Methode nutzen:

  1. Auswahl des Bereichs: Markiere die Zellen, in denen Du nur das erste Wort fett formatieren möchtest.
  2. Führe das folgende Makro aus:

    Sub Einzelne_Zeichen_formatieren_in_ausgewähltem_Bereich()
       Application.ScreenUpdating = False
       For Each cell In Selection
           Dim Z As Long
           Dim s As Long
           Z = cell.Row
           s = cell.Column
           Dim A As Long
           A = Len(Left(ActiveCell, InStr(ActiveCell, " ") - 1))
           For j = 1 To A
               ActiveCell.Characters(j, 1).Font.Bold = True
           Next j
       Next cell
       Application.ScreenUpdating = True
    End Sub

Diese Methode erlaubt Dir, das erste Wort aus mehreren Zellen gleichzeitig fett zu formatieren.


Praktische Beispiele

Angenommen, Du hast in Zelle B2 den Text "Artikelbeschreibung Produkt A". Mit dem oben genannten Makro wird "Artikelbeschreibung" fett formatiert, während "Produkt A" normal bleibt.

Ein weiteres Beispiel: Wenn in Zelle B3 der Text "Neues Produkt B" steht, wird "Neues" fett, wenn Du das Makro ausführst.


Tipps für Profis

  • Automatisierung: Du kannst das Makro so anpassen, dass es automatisch für alle Zellen in einer Spalte ausgeführt wird. Ändere die Schleife so, dass sie durch jede Zeile iteriert.

  • Fehlervermeidung: Füge Fehlerbehandlungsroutinen hinzu, um sicherzustellen, dass das Makro auch bei leeren Zellen oder unerwarteten Eingaben robust bleibt.


FAQ: Häufige Fragen

1. Wie kann ich das erste Wort aus mehreren Zellen in einer Spalte formatieren?
Du kannst das oben genannte Makro erweitern, indem Du eine Schleife hinzufügst, die durch die gewünschte Spalte iteriert.

2. Funktioniert dieser Ansatz in allen Excel-Versionen?
Ja, diese VBA-Methoden sind mit Excel-Versionen ab Excel 2007 kompatibel. Stelle sicher, dass Du Makros in Deinen Excel-Einstellungen aktiviert hast.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige