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

Forumthread: Jeder Anfangsbuchstabe in Zelle Fett

Jeder Anfangsbuchstabe in Zelle Fett
29.10.2019 12:03:08
Stefan137
Hi zusammen,
ich möchte eine Spalte in Excel durchlaufen, jede Zelle dieser Spalte soll überprüft werden, sodass jeder erste Buchstabe eines Wortes in der Zeile "Fett" dargestellt werden kann. Beispiel: Mein Name Ist.
Kann ich irgendwie sagen, dass jeder Satzanfang groß ist und dann die Zelle nach Leerzeichen durchsuchen und somit sagen, dass nach jedem Leerzeichen der erste Buchstabe wieder "fett" sein soll?
Danke im Voraus
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Jeder Anfangsbuchstabe in Zelle Fett
29.10.2019 12:27:40
Rudi
Hallo,
Sub LeckMichFett()
Dim r As Range, i As Integer
For Each r In Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp))
r.Characters(1, 1).Font.Bold = True
For i = 2 To Len(r)
If Mid(r, i - 1, 1) = " " Then
r.Characters(i, 1).Font.Bold = True
End If
Next i
Next r
End Sub

Gruß
Rudi
Anzeige
AW: Jeder Anfangsbuchstabe in Zelle Fett
29.10.2019 14:54:28
Günther
Moin,
ab 2016: über Daten | Abrufen und transformieren gibt es dafür extra einen Befehl (Auswahl) ...
Gruß
Günther
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Jeden Anfangsbuchstaben in Excel-Zellen fett formatieren


Schritt-für-Schritt-Anleitung

Um jeden Anfangsbuchstaben in einer Zelle fett zu formatieren, kannst du ein einfaches VBA-Makro verwenden. Folge diesen Schritten:

  1. Öffne Excel und drücke ALT + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.

  2. Klicke auf Einfügen und wähle Modul, um ein neues Modul zu erstellen.

  3. Kopiere und füge folgenden Code in das Modul ein:

    Sub LeckMichFett()
        Dim r As Range, i As Integer
        For Each r In Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp))
            r.Characters(1, 1).Font.Bold = True
            For i = 2 To Len(r)
                If Mid(r, i - 1, 1) = " " Then
                    r.Characters(i, 1).Font.Bold = True
                End If
            Next i
        Next r
    End Sub
  4. Schließe den VBA-Editor und kehre zu Excel zurück.

  5. Führe das Makro aus, indem du ALT + F8 drückst, das Makro LeckMichFett auswählst und auf Ausführen klickst.

Jetzt sollte jeder Anfangsbuchstabe in den Zellen der ersten Spalte fett dargestellt werden.


Häufige Fehler und Lösungen

  • Fehler: Das Makro funktioniert nicht.

    • Lösung: Stelle sicher, dass du das Makro in einer Arbeitsmappe mit aktivierten Makros ausführst. Überprüfe auch, ob der VBA-Code korrekt kopiert wurde.
  • Fehler: Nur der erste Buchstabe wird fett dargestellt.

    • Lösung: Überprüfe den Code und stelle sicher, dass die Schleife, die die Leerzeichen überprüft, korrekt funktioniert.

Alternative Methoden

Wenn du Excel 2016 oder neuer verwendest, kannst du die Funktion "Daten abrufen und transformieren" nutzen, um eine ähnliche Formatierung zu erreichen. Diese Methode ist jedoch weniger flexibel und erfordert mehr manuelle Schritte.

  1. Wähle die Spalte mit den Texten aus.
  2. Gehe zu Daten > Abrufen und transformieren.
  3. Wähle die entsprechende Umwandlungsfunktion, um die Zeichen zu formatieren.

Diese Methode ist besonders nützlich, wenn du häufig Daten importierst und eine automatisierte Lösung suchst.


Praktische Beispiele

Angenommen, in Spalte A stehen folgende Einträge:

  • "mein Name ist"
  • "das ist ein Test"
  • "Excel ist mächtig"

Nach dem Ausführen des Makros sollten die Zellen wie folgt aussehen:

  • Mein Name Ist
  • Das Ist Ein Test
  • Excel Ist Mächtig

Tipps für Profis

  • Experimentiere mit der Anpassung des VBA-Codes, um andere Schriftarten oder Farben zu verwenden.
  • Du kannst das Makro in eine Schaltfläche auf deinem Excel-Blatt einfügen, um es leichter zugänglich zu machen.
  • Nutze die Möglichkeit, das Makro für mehrere Spalten gleichzeitig auszuführen, indem du den Zellbereich im Code anpasst.

FAQ: Häufige Fragen

1. Wie kann ich das Makro für eine andere Spalte anpassen?
Ändere im Code den Bereich Cells(1, 1) in Cells(1, 2) für die zweite Spalte oder entsprechend für andere Spalten.

2. Ist VBA in allen Excel-Versionen verfügbar?
Ja, VBA ist in den meisten Excel-Versionen verfügbar, jedoch kann die Benutzeroberfläche leicht variieren. Achte darauf, dass du in einer unterstützten Version arbeitest.

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