Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1328to1332
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
1328to1332
1328to1332
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige