Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
428to432
428to432
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

1. Buchstabe in Name fett

Forumthread: 1. Buchstabe in Name fett

1. Buchstabe in Name fett
21.05.2004 15:10:00
Tom
Hallo
Ich habe in Spalte A hunderte von Namen alphabetisch geordnet.
Der erste Buchstabe des Namens der mit A beginnt soll fett dargestellt werden, also das A.
Wenn dann die Namen mit B beginnen, soll der erste Buchstabe des ersten Namens mit B wieder fett dargestellt werden, also B usw.
Wie kann ich das mit einem Makro realisieren?
Im Voraus vielen Dank für eure Hilfe.
Tom
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: 1. Buchstabe in Name fett
21.05.2004 15:18:12
Nepumuk
Hallo Tom,
so:


Public Sub erster_fett()
    Dim lngZeile As Long
    Application.ScreenUpdating = False
    For lngZeile = 1 To Cells(65536, 1).End(xlUp).Row
        Cells(lngZeile, 1).Characters(Start:=1, Length:=1).Font.FontStyle = "Fett"
    Next
    Application.ScreenUpdating = True
End Sub


Gruß
Nepumuk
Anzeige
AW: 1. Buchstabe in Name fett
21.05.2004 15:29:33
Tom
Hallo Nepumuk
Vielen Dank für die schnelle Antwort.
Allerdings wird bei jedem Name der 1 Buchstabe fett formatiert
Es soll aber nur jeweils der 1. Buchstabe fett formatiert werden, wenn z.B. die Namen von A nach B wechseln. (Wahrscheinlich habe ich mich zu unklar ausgedrückt:)
A(fett)nna
Albert
Alois
B(fett)erta
Barbara
C(fett)onny
Cornelius
Anzeige
AW: 1. Buchstabe in Name fett
Reinhard
Hi Tom,

Sub fett()
Dim B As String
Dim n As Long
B = ""
For n = 1 To Range("A65536").End(xlUp).Row
If Left(Cells(n, 1), 1) <> B Then
Cells(n, 1).Characters(Start:=1, Length:=1).Font.Bold = True
B = Left(Cells(n, 1), 1)
End If
Next n
End Sub

Gruß
Reinhard
Anzeige
Funktioniert, danke
Tom
Hallo Reinhard
Besten Dank.
Funktioniert bestens.
Tom
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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