Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
772to776
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
772to776
772to776
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Array in Zelle mit verschiedenen Farben?!

Array in Zelle mit verschiedenen Farben?!
14.06.2006 15:04:18
Thomas
Hallo,
ist es (vielleicht mit einem Trick) möglich, dass die Zahlen eines Arrays, der in einer Zelle steht, unterschiedliche Farben haben können? Praktisch sieht es so aus, dass ein Array von 3 Zahlen in einer Zelle steht (muss auch in einer Zelle bleiben!) und es schön wäre, wenn eine Zahl rot und die anderen schwarz sein würden. Hat jemand ne Idee?
Vielen Dank im Voraus!
Tyke

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Array in Zelle mit verschiedenen Farben?!
14.06.2006 15:27:16
Gerd
Hi,
nur, wenn es Text ist.
mfg Gerd
AW: Array in Zelle mit verschiedenen Farben?!
14.06.2006 16:36:30
Erich
Hallo Thomas,
nur zum Probieren und Spielen (auf einem leeren Blatt):
Sub FarbenInTextzelle()
Dim ss As Integer, zz As Long, ii As Integer, pp As Integer
Dim strQ(2) As String, strZ As String, arr
strQ(0) = "123 4567 890"
strQ(1) = "12 34 56 78 90"
strQ(2) = "1 2 3 4 5 6 7 8 9 0"
For ss = 0 To 2
strZ = Replace(strQ(ss), " ", "")
arr = Split(strQ(ss))
For zz = 1 To 57 - UBound(arr)
With Cells(zz, 2 * ss + 1)
If .NumberFormat = "@" Then .Value = strZ Else .Value = "'" & strZ
pp = 1
For ii = 0 To UBound(arr)
.Characters(pp, Len(arr(ii))).Font.ColorIndex = ii + zz - 1
pp = pp + Len(arr(ii))
Next ii
End With
Next zz
Next ss
Columns("A:E").AutoFit
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige