Zellen variabel einfärben

Hallo zusammen!
Brauche wiedermal eure Hilfe :-)
ich bin auf der Suche nach einer Möglichkeit die Zellen automatisch einfärbt:
Beispiel:
In der Zelle A1 steht der Wert 3: Die Zellen B1:D1 sollen sich einfärben
In der Zelle A2 steht der Wert 3: Die Zellen D2:F2 sollen sich einfärben
In der Zelle A3 steht der Wert 5: Die Zellen F3:J3 sollen sich einfärben
In der Zelle A4 steht der Wert 4: Die Zellen J4:M4 sollen sich einfärben
In der Zelle A5 steht der Wert 2: Die Zellen M5:N5 sollen sich einfärben
usw.
Die Werte in der Spalte A sind veränderbare Werte und kommen aus einer anderen Tabelle - wenn sich zum Beispiel der Wert in der Zelle A1 ändert müssen sich die eingefärbten Zellen auch ändern
In der Zelle A1 steht der Wert 2: Die Zellen B1:C1 sollen sich einfärben
In der Zelle A2 steht der Wert 3: Die Zellen C2:E2 sollen sich einfärben
In der Zelle A3 steht der Wert 5: Die Zellen E3:I3 sollen sich einfärben
In der Zelle A4 steht der Wert 4: Die Zellen I4:L4 sollen sich einfärben
In der Zelle A5 steht der Wert 2: Die Zellen L5:M5 sollen sich einfärben
https://www.herber.de/bbs/user/154262.xlsx
Hat jemand eine Idee wie ich das realisieren kann?
Vielen Dank für euer Hilfe
Gruß Kurtgu

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Zum Beispiel über einen VBA-Code:
Den kannst du z.b. in ein Modul kopieren und dann fügst du in deinem Sheet ein beliebiges Objekt ein und mit rechtsklick "Makro zuweisen" wählst du Farbe_zuweisen aus.


Sub Farben_zuweisen()
Dim letzteZeile As Long: letzteZeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row 'suche die letzte Zeile in Spalte A
Dim Spaltenindex As Long: Spaltenindex = 2 'setzte Anfangswerk Spalte B
For i = 1 To letzteZeile 'für jede beschriebene Zeile in Spalte A (siehe erstes Dim)
ActiveSheet.Range(ActiveSheet.Cells(i, 2), ActiveSheet.Cells(i, 30)).Interior.Color = xlNone 'lösche alle Farbmarkierungen
k = ActiveSheet.Cells(i, 1).Value 'zwischenspeichere die Zahl aus Spalte A
ActiveSheet.Range(ActiveSheet.Cells(i, Spaltenindex), ActiveSheet.Cells(i, Spaltenindex + k - 1)).Interior.ColorIndex = 6 'Färbe die Zellen: In der Range der aktuellen Zeile (i) von Spaltenindex bis Spaltenindex + Zahl aus Spalte A - 1 weil Mathematik...
Spaltenindex = Spaltenindex + k - 1 'merke die den neuen Spaltenindex für die nächste Zeile
Next i
End Sub

Wenn du jetzt noch Rahmenlinien haben möchtest, dann musst du da mal im Netz suchen, da findest du definitiv etwas.
zur Farbe: Du kannst entweder Excel-Farben nehmen (ColorIndex, siehe Internetz) oder RGB-Werte. Dann statt .Interior.Colorindex = [Zahl] das hier nehmen: .Interior.Color = RGB([Zahl von 0 bis 255],[Zahl von 0 bis 255],[Zahl von 0 bis 255]) -> RGB-Farben siehe auch Internetz

Beliebteste Forumthreads (12 Monate)

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread