Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema ListBox
BildScreenshot zu ListBox ListBox-Seite mit Beispielarbeitsmappe aufrufen

Zelleinfärbung in Listbox | Herbers Excel-Forum


Betrifft: Zelleinfärbung in Listbox von: siegfried
Geschrieben am: 25.01.2010 10:09:39

Hallo zusammen,

ich übertrage Daten aus einem Blatt in ein anderes Blatt. Die Auswahl erfolgt über eine Listbox.
Leider bekomme ich es nicht hin, dass auch die Zelleinfärbungen übertragen werden.
Kann mir jemand helfen?

Gruß Siegfried

  

Betrifft: AW: Zelleinfärbung in Listbox von: Hajo_Zi
Geschrieben am: 25.01.2010 10:12:01

Hallo Siegfried,

das geht nicht das jede Zeile eine andere Farbe hat.

Gruß Hajo


  

Betrifft: AW: Zelleinfärbung in Listbox von: welga
Geschrieben am: 25.01.2010 10:17:28

Hallo,

du kannst doch die Farbe aus der Ursprungszelle auslesen und die Zielzelle dann einfärben.

Hast du mal eine Bsp.-Datei mit deinem Code?

Gruß
welga


  

Betrifft: AW: Zelleinfärbung in Listbox von: siegfried
Geschrieben am: 25.01.2010 10:57:44

Hallo Welga,
so sieht mein Code aus:

Dim ArrListe2()
ReDim ArrListe2(1 To 10, 1 To Feld)
For iCol = 1 To 10
For iRow = 1 To Feld
ArrListe2(iCol, iRow) = Range("BK1").Offset(iRow, iCol - 1).Value
Next iRow
Next iCol
ListBox3.Column = ArrListe2
Tabelle6.Activate

Gruß Siegfried


  

Betrifft: AW: Zelleinfärbung in Listbox von: welga
Geschrieben am: 25.01.2010 14:07:31

Hallo,
leider arbeite ich nur ganz ganz selten mit Arrays (Leider, wollte schon die ganze Zeit mich mit diesem thema beschäftigen).
Vllt. geht es aber so:



Dim ArrFarbeliste2()
ReDim ArrFarbeliste2(1 To 10, 1 To feld)
For iCol = 1 To 10
For iRow = 1 To feld
Range("a1").Offset(iRow, iCol - 1).Select
ArrFarbeliste2(iCol, iRow) = Selection.Interior.ColorIndex
Next iRow
Next iCol
Dim ArrListe2()
ReDim ArrListe2(1 To 10, 1 To feld)
For iCol = 1 To 10
For iRow = 1 To feld
ArrListe2(iCol, iRow) = Range("BK1").Offset(iRow, iCol - 1).Value
Next iRow
Next iCol
ListBox3.Column = ArrListe2
Tabelle6.Activate


Gruß
welga


  

Betrifft: AW: Zelleinfärbung in Listbox von: siegfried
Geschrieben am: 25.01.2010 14:27:50

Hallo Welga,

Deine Codeerweiterung hilft mir leider nicht weiter, dennoch danke für Deine Bemühung. Angesichts der Aussage anderer, dass mein Vorhaben nicht gehe, habe ich mich entschlossen, zunächst einen anderen Weg einzuschlagen (Zeichen statt Farbe).

Gruß Siegfried


  

Betrifft: AW: Zelleinfärbung in Listbox von: Hajo_Zi
Geschrieben am: 25.01.2010 10:23:03

Hallo Siegfried,

meine Antwort bezieht sich auf den Betreff, das hatte ich nicht Explict erwähnt.

Gruß Hajo


Beiträge aus den Excel-Beispielen zum Thema "Zelleinfärbung in Listbox"