Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 10:48:58
Zufällige Uhrzeit
19.10.2025 10:46:18
Zufallszahlen nur wenn Datum ab kommenden Sonntag
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ü
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
1328to1332
1328to1332
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

bestimmte Anfangsbuchstaben einfärben

Forumthread: bestimmte Anfangsbuchstaben einfärben

bestimmte Anfangsbuchstaben einfärben
12.09.2013 10:02:42
Volker
Hallo,
bei u.st. Beispiel versuche ich krampfhaft den Code für die Spalten C und D anzupassen, aber es funktioniert nur teilweise. In Spalte A klappt alles.
https://www.herber.de/bbs/user/87263.xls
Ich weiß offenbar nicht, welche Werte für was zuständig sind.
Bei:
With .Cells(i, 3).Characters(Start:=1, Length:=1).Font
3. Spalte.
Bei:
For i = 1
dass jede Zeile geprüft wird
Das ist mir noch unklar:
lzeile = .Cells(Rows.Count, 1).End(xlUp).Row
BuchstabeNeu = Left(.Cells(i, 1), 1)
Vielleicht kann mir jemand etwas erklären, bzw berichtigen.
Danke für eure Hilfe.
Gruß Volker

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Spaltenummer auch anpassen!
12.09.2013 10:14:34
hary
Moin Volker
Du musst auch entsprechend der Spalte die Nr. anpassen.
Bsp. fuer SpalteC ist es die 3, fuer SpalteD halt die 4 
With Worksheets("Tabelle1")
lzeile = .Cells(Rows.Count, 3).End(xlUp).Row 'Letzte aus SpalteC hier 3
Buchstabe = "A"
For i = 1 To lzeile
BuchstabeNeu = Left(.Cells(i, 3), 1) 'SpalteC hier 3
If Buchstabe  BuchstabeNeu Then
With .Cells(i, 3).Characters(Start:=1, Length:=1).Font 'SpalteC hier 3

gruss hary

Anzeige
AW: Spaltenummer auch anpassen!
12.09.2013 10:38:00
Volker
Danke Hary, das Chaos ist beseitigt. Gruß Volker.

AW: Spaltenummer auch anpassen!
12.09.2013 11:01:11
Volker
Hallo Hary,
nun habe ich mal testhalber in C1 =INDIREKT("g1")eingegeben.
Jetzt wird das ganze Wort aber rot eingefärbt.
Trifft in diesem Falle (Start:=1, Length:=1).Font nicht mehr zu? Wenn ja, was muss geändert werden?
https://www.herber.de/bbs/user/87264.xls
Gruß Volker

Anzeige
AW: Spaltenummer auch anpassen!
12.09.2013 11:08:15
fcs
Hallo Volker,
das Formatieren einzelner Zeichen des Zellinhalts funktioniert nicht bei Zellen mit Formeln.
Gruß
Franz

AW: Spaltenummer auch anpassen!
12.09.2013 11:15:00
Volker
Hallo Franz,
mmm, dann muss ich mir etwas anderes überlegen.
Gruß Volker
;

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