Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
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
1148to1152
1148to1152
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Colorindex einer Zeichenkette auslesen

Forumthread: Colorindex einer Zeichenkette auslesen

Colorindex einer Zeichenkette auslesen
Andi
Hallo,
möchte gerne den Colorindex eines Teilstrings einer Excelzelle auslesen.
Zum Beispiel:
Formatiere das vierte bis fünfte Textzeichen rot.
ActiveCell.Characters(4,5).Font.ColorIndex = 3
Ist OK.
Aber lese mir die Schriftfarbe vom vierten bis zum fünften Textzeichen aus?
Farbindex = ActiveCell.Characters(4,5).Font.ColorIndex
Resultat: "-4500"
Hängt das evtl. damit zusammen, daß man immer nur von einem Zeichen eines Strings die Schriftfarbe auslesen kann?
THX.
Andi
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Colorindex einer Zeichenkette auslesen
06.04.2010 16:00:37
ChrisL
Hi
Vorausgesetzt die aktive Zelle enthält Text, dann wird bei diesem Makro, wenigstens bei mir (ebenfalls XL 2003), die 3 ausgegeben:
Sub t()
ActiveCell.Characters(4, 5).Font.ColorIndex = 3
Farbindex = ActiveCell.Characters(4, 5).Font.ColorIndex
MsgBox Farbindex
End Sub
Probleme gibt es, wenn du unterschiedliche Farbcodes innerhalb der 5 Zeichen hast.
Gruss
Chris
Anzeige
Ach Leute, der Fehler besteht doch nur in...
06.04.2010 16:32:43
Luc:-?
…der falschen Verwendung der Characters-Methode! 4,5 ist doch keine Aufzählung, sondern Start und Zeichenanzahl von dort an! Kann man doch schon der ParamInfo entnehmen! Und wenn jetzt nur das Zchn 4,1 rot ist und der Rest auto, kommt entweder NULL oder eben auto raus. Normalerweise ergibt ein Text-Farbindex immer Null, wenn er mehrfarbig ist, die Einzelzeichenabfrage aber stets einen Farbindexwert inkl auto (statt 0). Das kann man mit IsNull(…Font.ColorIndex) feststellen.
Gruß Luc :-?
Anzeige
AW: Ach Leute, der Fehler besteht doch nur in...
07.04.2010 09:09:00
Andi
Hi Luc, THX. Der Farbindex eines Bereiches abzufragen ist eh quatsch, der F-Index eines Zeichen ist völlig ausreichend. In der Tat habe ich die Character Methode falsch interpretiert. Gruß Andi
;

Forumthreads zu verwandten Themen

Indexierung von Steuerelementen in VBA
Steuerelementen

Hallo,
aus VB kenne ich die Vorgehensweise, dass man Steuerelemente (z.B. Labels) Indexieren kann. Man kann sie dan komfortabel über eine Schleife ansteuern.
Ein simples Beispiel zum verdeutlichen:
For i=1 to 10
label(i).text=i
next i
Die zehn Labels haben nun eine Besc...
01.09.2008 11:30:41
Thread-ID: 1006376
3 Beiträge
VBA Bedingte Formatierung
Peter

Hallo,
möchte gern das Abhängig von A1 in der ein "w" oder ein "m" steht, das A2:Z22 alles entweder rosa (w)
oder hell bLau (m) ist.
Habt Ihr eine Idee?
Beim Druck soll nachher alles wieder schwarz weiß sein.
Gruß Peter
09.12.2008 22:32:36
Thread-ID: 1031538
20 Beiträge
VBA - Bedingte Formatierung mit For-Next-Schlaufe
Martin

Hallo zusammen
Ich habe ein Makro geschrieben und komme mit der bedingten Formatierung nicht weiter:
Ich habe eine For-Next-Schlaufe, die von unten die Zeilen rauffährt (For i = lezeile To 7 Step -1), unter anderem sollte am Ende der Schlaufe die Spalte A bis J auf der Zeile i jeweils...
12.03.2009 17:38:23
Thread-ID: 1059597
2 Beiträge
Anzeige
VBA - Bedingte Formatierung mit For-Next-Schlaufe
Martin

Hallo zusammen
Ich habe ein Makro geschrieben und komme mit der bedingten Formatierung nicht weiter:
Ich habe eine For-Next-Schlaufe, die von unten die Zeilen rauffährt (For i = lezeile To 7 Step -1), unter anderem sollte am Ende der Schlaufe die Spalte A bis J auf der Zeile i jeweils...
16.03.2009 10:15:21
Thread-ID: 1060621
4 Beiträge
ColorIndex bei Bedingte Formatierung
Dieterlem

Hallo Excelfreunde,
ich versuche über den folgenden Befehl eine Eingabe zu verhindern, dessen Zellenfarbe nicht weiß ist.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Selection.Interior.ColorIndex = 2 Then MsgBox "Keine Eingabe erlaubt" End Sub
Ich habe ein...
26.04.2009 18:26:21
Thread-ID: 1071213
4 Beiträge
So. & Feiertage Font.ColorIndex = 5
Heinz

Hallo Leute
Habe einen Jahreskalender.
Leider komme ich bei Case "So" & Case "R" nicht weiter.
Es sollte alles das mit Zelle.Interior.ColorIndex = 36 eingefärbt wird, auch die Schrift mit Font.ColorIndex = 5 eingefärbt werden.
Könnte mir bitte jemand weiterhelfen ? Habe die...
22.06.2009 19:55:56
Thread-ID: 1083584
3 Beiträge
Anzeige
Aerzteliste:VBA, bedingte Formatierung, mehr als 3
Jonas

Hallo zusammen
Ich hab etwas Schwierigkeiten mit dem VBA, ich will nämlich in der Ärzteliste: https://www.herber.de/bbs/user/64419.xls , die ich letzte Woche schon gepostet habe, die Ärzte in der rechten Tabelle mit den Monaten farblich hervorheben, also das heisst in etwa: Wenn irgendein F...
14.09.2009 18:57:12
Thread-ID: 1102727
3 Beiträge
Colorindex 15 ungleich Colorindex 15
Karsten

Hallo ...
wenn ich in Spalte A bestimmte Zellen mit Colorindex = 15 einfärbe funktioniert u.st. Code:
For Each Bereich In Bereich
If Bereich.Column >= Selection(1).Column Then
If Not Bereich.Column = Selection(1).Column Or Bereich.Row >= Selection(1).Row Then
varRow =...
30.11.2009 22:13:11
Thread-ID: 1121104
8 Beiträge
Anzeige
Bei ColorIndex = 34 - Formel einfügen
Heinz

Hallo im Forum
Ich habe ein Makro,das mir nach jeden Freitag im Monat eine Zeile mit ColorIndex = 34 einfügt.
Nun möchte ich, das mir nur auf den Zeilen die mit ColorIndex = 34 eingefügt wurden, eine Formel miteinfügt.
Habe zum besseren Verständnis eine Beispieldatei anghhängt.
...
29.12.2009 21:08:46
Thread-ID: 1126283
8 Beiträge
Was hat Interior.ColorIndex mit einem Rand zu tun?
Peter

Hallo
Bei der Bearbeitung eines Ranges verliert ein umrandeter Bereich innerhalb dieses Ranges bei nachfolgender Codezeile den unteren Rand.
Das verstehe ich nicht. Wer hilft mir auf die Sprünge? Ich will nur alle Farben (Hintergrund und Schrift) eliminieren.
Gruss, Peter
With A...
05.01.2010 14:18:02
Thread-ID: 1127323
6 Beiträge
colorindex bei bedingten formatierung
Benjamin

Hallo zusammen,
ich möchte ein VBA verwenden um die Eingabe in Zellen zu verbieten, die Farbig sind.
Normal funktioniert der folgende Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Application.ActiveCell.Interior.ColorIndex = 1 Then MsgBox "This Size is not av...
24.02.2010 15:59:00
Thread-ID: 1141142
18 Beiträge
Colorindex in Wennschleife
Ralf

Hallo Zusammen,
ich habe folgendes Problem. Ich habe in einer Wennschleife 5 Bedingungen die ich farblich unterschiedlich darstellen möchte. Habe im Forum ein Beispiel gefunden das aber nicht richtig funktioniert.
Die Farben ändern sich nicht wenn eine neue Bedingung aufgrund der Wennsc...
28.06.2010 11:40:21
Thread-ID: 1164293
4 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

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