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
1564to1568
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
1564to1568
1564to1568
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Farbigen Text in String beim Splitten beibehalten

Farbigen Text in String beim Splitten beibehalten
07.07.2017 09:50:26
Karl
Hallo,
ich habe folgendes Problem in Excel:
Ich habe Zellen mit Zeilenumbruch, die sowohl schwarzen als auch roten Text enthalten (beide Farben treten in der Zelle auf). Ich möchte jetzt den Text an bestimmten Trennzeichen aufsplitten und es soll die Farbe des Textes beibehalten werden.
Den ersten Teil, also das Aufsplitten und in einzelne Zellen schreiben, habe ich gelöst (Split-Funktion). Allerdings ist jetzt der gesamte Text schwarz.
Das Problem mit der Textfarbe ist weiterhin ungelöst.
Beispiele:
In einer Zelle steht:
-4ABC-TZD4/RHG7-9UVR
-3TZD-8UC7
TZD4 und 9UVR sind rot, alles andere schwarz.
Nach dem Splitten steht jeder "Block" in einer einzelnen Zelle:
Zelle1: 4ABC
Zelle2: TZD4/RHG7
u.s.w.
Danke für eure Hilfe!!!

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

Betreff
Datum
Anwender
Anzeige
AW: Farbigen Text in String beim Splitten beibehalten
07.07.2017 10:32:52
Daniel
Hi
wird schwierig.
du müsstest vor dem Splitten im Gesamttext dir für jedes Zeichen die Farbe merken und dann nach dem Splitten die neuen Zellen entsprechend einfärben.
Gruß Daniel
AW: Farbigen Text in String beim Splitten beibehalten
07.07.2017 11:06:35
Sven
Hi,
habe das mal getestet und funktioniert...
Wenn in $A$4 dein urspünglicher Wert steht, dann gibt Dir das Script die einzelnen Teilstrings in $B$4, $C$4, $D$4, etc. aus... Kannst Du ja noch einwenig anpassen.
Public Sub colorsplit(r As Range, delimiter As String)
Dim i, j As Integer
Dim l As Integer
Dim c As Long
Dim colorarr() As Variant
Dim txtarr As Variant
Dim arrcnt As Integer
l = Len(r.Value) - 1
c = r.Column
ReDim Preserve colorarr(l)
For i = 1 To Len(r.Value)
colorarr(i - 1) = r.Characters(i, 1).Font.ColorIndex
Next
txtarr = split(r.Value, delimiter, -1, vbBinaryCompare)
arrcnt = 0
For i = LBound(txtarr) To UBound(txtarr)
c = c + 1
Cells(r.Row, c).Value = txtarr(i)
For j = 1 To Len(Cells(r.Row, c).Value)
Cells(r.Row, c).Characters(j, 1).Font.ColorIndex = colorarr(arrcnt)
arrcnt = arrcnt + 1
Next
arrcnt = arrcnt + 1
Next
End Sub
Grüße
Sven
Anzeige
AW: Farbigen Text in String beim Splitten beibehalten
07.07.2017 11:25:27
Karl
Danke, ich probiere es die Tage aus.

274 Forumthreads zu ähnlichen Themen

Fremdzeichen beim Export in Textdatei
Josef

Hallo!
Manchmal wird bei der Eingabe eines längeren Textes in eine Zelle ein Return gesetzt. Wenn man dann diese Datei in ein Textfile speichert, so erhält man in der Textdatei an diesen Stellen ein leeres Quadrat. Wie kann man bitte verhindern, dass in der Textdatei solche Zeichen gesetzt...
06.04.2009 10:20:01
Thread-ID: 1067048
2 Beiträge
Anzeige
Text splitten wenn Zelle mehr als 265 Zeichen
bernie

Hallo Profis,
in einer Zelle habe ich mehr Text (mehr als 265 Zeichen) als ich über die Datenbankfunktion suchen kann.
Kann mir jemand einen Tipp geben, wie nach dem Einfügen eines langen Textes dieser so gesplittet wird, daß z.B. dann in B1 Text bis 265 Zeichen, in C1 der weitere Tex...
17.11.2010 13:03:03
Thread-ID: 1187321
10 Beiträge
Textbox beim Sonderzeichen Zeile Format Fett
Karel

Gute Morgen,
Im Textbox geben ich einen Text ein mit Umbruch mit ausgabe in Zelle,nach Folgende Muster.
Massives Vollholz Buffet Landhausstil!
- Größe: ca. B 110 x T 50/30 x H 210 cm
- Farbe: Cremeweiss von Hand gestrichen
- in Handarbeit gefertigt aus Massivholz
- das...
18.02.2011 15:57:11
Thread-ID: 1201658
14 Beiträge
Anzeige
Array to String
Philipp

Mithilfe einer Schleife, lasse ich alle Einträge des Arrays durchlaufen.
Weiter oben im Sub stehen mehrere Variablen (integer). Eine davon is "jan_for".
Wie kann ich einen Eintrag vom Array und einen von mir definiert Text in diesem Fall "_for" verbinden, als bereits vorhanden Variable...
02.08.2013 14:53:23
Thread-ID: 1325489
14 Beiträge
Access String zerlegen
Andreas

Ich habe folgenes Problem.
ein String mit Inhalt >>01.12.1945>1945
19.07.2002 14:01:37
Thread-ID: 138505
6 Beiträge
mit VBA Text aufsplitten auf mehrere Zellen
Franzi

Hallo zusammen,
folgende Frage.
ich möchte die Gleichung
A = B + C - D
splitten, sodass jeder Buchstabe in einer seperaten Zelle steht.
mit Teil = Split(Cells(Zeile, 1), "=") kann ich nur A seperieren, wie mache ich das aber mit B,C und D?
Danke für eure Hilfe,
Grü...
01.10.2014 09:46:55
Thread-ID: 1384282
8 Beiträge
formel string zerlegen
Heike

Guten morgen,
In einer Tabelle (Spalte W) steht die Formel:
W1 =SUM('C2'!H12)
W2 =SUM(Out!M12)
.....
In Spalte AA moechte ich nun lediglich die Werte C2 bzw. Out angezeigt bekommen.
Also einfachhalber alles zwischen ( und !
Hat jemand eine Idee?
Danke
Heike
11.06.2015 08:55:52
Thread-ID: 1430273
8 Beiträge
Split-Funktion in VBA
Emre

Hallo,
habe vermutlich ein einfach zu lösendes Problem. Ich habe eine Text-Datei die zu Excel importiert wird (per VBA, mit einem Button). In dieser Datei befinden sich Tausende Werte die nebeneinander geschrieben sind, diese werden in Excel untereinander aufgelistet. Das alles funktioniert...
15.11.2015 22:37:43
Thread-ID: 1458573
12 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
1
3
9
13
2
13
5
7
7
11
3
9
4
5
18
2
4
2
6
5
4
4
8
3
3