Namen mit Farbe aus LisBox in Zelle eintragen?

Hallo an alle!
Ich habe da ein Problem, bzw. eine Frage ob das was ich vorhabe überhaupt realisierbar ist. Angehängt habe ich mal eine Beispieldatei mit meinem momentanen Stand.
https://www.herber.de/bbs/user/84375.xlsm
Wenn man den Button im Tabellenblatt betätigt, öffnet eine UserForm mit einem Listenfeld. In das Listenfeld werden die Namen aus dem Bereich A25:A45 eingelesen. Außerdem lese ich in Spalte 1 der ListBox die Schriftfarben der Namen ein und es wird, sollte bereits in Zelle C25 etwas stehen, dieses in der ListBox markiert.
Betätigt man den Button in der UserForm, so werden die markierten Namen in Zelle C25 geschrieben. Das funktioniert bestens.
Wie man sehen kann, haben die Namen in Spalte A bestimmte Schriftfarben. Ich möchte nun die Farben der Namen mit in Zelle C25 übernehmen. Das habe ich auch schon versucht. Allerdings erhalte ich immer nur zwei Farben. Alles bis auf den letzten Namen erhält die Farbe von Teilnehmer 1, und der letzte Name erhält eine die richtige Farbe.
Meine Frage nun, geht das, was ich mir vorgestellt habe, also dass alle Namen in Zelle C25 die Schriftfarbe erhalten, wie diese in Spalte A vorhanden sind? Wenn das gehen sollte, wie stelle ich das an?
Danke Euch für Eure Hilfe,
Kasimir

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

With Range("C25") .Characters(Start:=1, Length:=6).Font.Color = -16727809 .Characters(Start:=7, Length:=4).Font.Color = -16776961 .Characters(Start:=11, Length:=10).Font.Color = -16727809 .Characters(Start:=21, Length:=8).Font.Color = -16776961 .Characters(Start:=29, Length:=2).Font.Color = -16727809 .Characters(Start:=31, Length:=6).Font.Color = -14130609 End With

Hallo Hajo!
Ich habe auch nicht verlangt, dass Du mein Beispiel umbauen sollst. Aber ist Dir eventuell mal die Idee gekommen, dass man ein paar Probleme hat, wenn mein Level (VBA nur mit Makrorecorder) nicht so ist wie Deiner, Deinen Vorschlag umzusetzen? Aus diesem Grund (niedriger Level) frage ich hier und dachte auch hier Hilfe zu bekommen. Das ist doch das Prinzip eines Forums? Wenn Du allerdings davon ausgeht, dass hier alle Deinen Level haben müssen, glaube ich, hast Du das Prinzip "Forum" nicht verstanden.
Sorry, dass ich mir Luft mache, aber das musste sein.
Eventuell gibt es hier ja jemanden anderes, dem es nichts ausmacht, sich mit meiner Testdatei zu beschäftigen und seine Lösungsvorschläge darauf bezieht?
Gruß,
Kasimir

Private Sub CommandButton2_Click() Dim i As Integer Dim jj As Integer Dim strText As String Dim lngFontColor As Long Dim intStart As Integer Dim intLength As Integer Dim arrLen() As Long ReDim arrLen(ListBox1.ListCount - 1, 1) For i = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(i) Then strText = strText & ", " & ListBox1.List(i) ' hänge Wort an arrLen(jj, 0) = Len(ListBox1.List(i)) ' merke Länge arrLen(jj, 1) = ListBox1.List(i, 1) ' merke Farbe jj = jj + 1 End If Next i Range("C25") = Mid(strText, 3, Len(strText)) ' Text wird einmalig geschrieben intStart = 1 For i = 0 To jj - 1 ' Farbe wird stückweise gesetzt Range("C25").Characters(Start:=intStart, _ Length:=arrLen(i, 0)).Font.Color = arrLen(i, 1) intStart = intStart + arrLen(i, 0) Next i End Sub

Beliebteste Forumthreads (12 Monate)

Namen mit Farbe aus LisBox in Zelle eintragen?

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

352 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Namen mit Farbe aus LisBox in Zelle eintragen?

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

352 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread