Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 12:16:26
Name von aktuellem VBA-Modul ausgeben
24.04.2024 12:07:15
Werte einer Liste vergleichen und markieren
24.04.2024 11:56:21
Export bestimmter Spalten in eine neue Exceldatei
24.04.2024 11:32:28
Formel für die letzten 1-2 Zeichen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
428to432
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige