Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
24.04.2024 17:19:09
Formel mit Index-Funktion
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1148to1152
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
1148to1152
1148to1152
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

119 Forumthreads zu ähnlichen 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
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...
12.03.2009 17:38:23
Thread-ID: 1059597
2 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...
16.03.2009 10:15:21
Thread-ID: 1060621
4 Beiträge
Anzeige
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
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
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
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
19
1
3
3
2
2
7
7
5
2
17
3
1
8
6
13
13
16
17
9
3
16
2
4