auf Hintergrundfarbe zugreifen

Hallo Profis,
ich habe eine riesige ausführliche Tabelle mit Daten im Arbeitsblatt 1.
Um die wichtigsten Daten in einer wesentlich kleineren Tabelle im Arbeitsblatt 2 zusammenzufassen, werden auf die Daten aus Arbeitsblatt zugegriffen.
Das funktioniert nur nicht mit Farben. Es sind mehr als 3 Hintergrundfarben, die ich im Arbeitsblatt 1 eingebe, also nur mit VBA möglich.
Das Schwierige: die Zellenschritte sind nicht identisch, d.h.
im Arbeitsblatt 2 soll sich die Spalte D von jeder einzelnen Zeile (4 bis 46) umfärben lassen von der Spalte G im Arbeitsblatt 1, wo aber die Zeilenschritte unterschiedlich sind: von Zeile 8 bis 206:
Wenn ich die Zelle G8 im Arbeitsblatt 1 färbe, soll sich die Zelle D4 im Arbeitsblatt 2 automatisch mitfärben.
Wenn ich die Zelle G13 im Arbeitsblatt 1 färbe, soll sich die Zelle D5 im Arbeitsblatt 2 automatisch mitfärben.
usw.
die Zellen der Spalte G "springen" 5 Zeilen bis G178 dann
die Zellen der Spalte G "springen" 4 Zeilen bis G202 dann
die Zellen der Spalte G "springen" 2 Zeilen bis G206
So das ist erst die erste Spalte gewesen.
nun müssen noch im Arbeitsblatt 2 die Spalten E bis AI (wieder jede einzelne Zeile (4 bis 46)) auf folgende Spalten des Arbeitsblattes 1 zugreifen: J bis CX (in den selben Sprüngen wie bei Spalte G beschrieben)
d.h.
Spalte E (Arbeitsblatt 2) greift auf Spalte J (Arbeitsblatt 1) zu
Spalte F (Arbeitsblatt 2) greift auf Spalte M (Arbeitsblatt 1) zu
Spalte G (Arbeitsblatt 2) greift auf Spalte P (Arbeitsblatt 1) zu
usw.
Ich hoffe die Beschreibung ist ausführlich genug...
Gruß
Falk

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Falk,
Ich halte nicht sehr viel davon, die Farben im Blatt2 "online" mit jeder Änderung im Blatt1 zu aktualisieren. Es reicht aus das Blatt2 zu aktualisieren, wenn man es aktiviert.
Ich hab mal basierend auf deinen Angaben ein Makro erstellt, dass die Farben der Zellen in Blatt2 entsprechend den Farben in Blatt1 anpasst.
Dieses Makro fügst du am besten in ein allgemeines Modul ein.
Für jede weitere Spalte im Blatt2 die Farben aus Blatt1 übernehmen soll muss du eine weitere Case-Zeile einfügen.
Zusätztlich muss du im VBA-Editor unter dem Blatt2 das Makro einfügen, das automatisch die Farbaktualisiereung startet.
Gruß
Franz


Sub FarbenAbgleichen()
'Aktualisieren der Zellfarben im Blatt2 entsprechend den aktuellen Farben im Blatt 1
Dim WksAlles As Worksheet, wksAuszug As Worksheet
Dim ZeileAlles As Long, ZeileAuszug As Long
Dim SpalteAlles As Long, SpalteAuszug As Long
Dim DeltaZeile As Long
Dim bolFarbeKopieren As Boolean
Set WksAlles = Worksheets("Tab1")      'Tabellenname anpassen!!!
Set wksAuszug = Worksheets("Tab2")     'Tabellenname anpassen!!!
ZeileAlles = 8 'Startzeile im Blatt mit allen Daten
ZeileAuszug = 4 'Startzeile im Blatt mit Daten-Auszug
Do Until ZeileAlles > 206
wksAuszug.Cells(ZeileAuszug, 1).Value = WksAlles.Cells(ZeileAlles, 1).Value 'Testzeile
'Zeilenschrittweite abhängig vom Zeilenwert festlegen
Select Case ZeileAlles
Case Is  Spalte D
Case 10: SpalteAuszug = 5 'Spalte J --> Spalte E
Case 13: SpalteAuszug = 6 'Spalte M --> Spalte F
Case 16: SpalteAuszug = 7 'Spalte P --> Spalte G
'für jede weitere Spaltenpaarung eine zusätzliche Case-Zeile einfügen
Case Else
bolFarbeKopieren = False
End Select
'Farbe von Blatt Alles nach Blatt mit Datenauszug übertragen
If bolFarbeKopieren = True Then
wksAuszug.Cells(ZeileAuszug, SpalteAuszug).Interior.ColorIndex = _
WksAlles.Cells(ZeileAlles, SpalteAlles).Interior.ColorIndex
End If
Next
ZeileAlles = ZeileAlles + DeltaZeile
ZeileAuszug = ZeileAuszug + 1
Loop
End Sub
'Im VBA-Editor unter Blatt2 einfügen
Private Sub Worksheet_Activate()
Call FarbenAbgleichen
End Sub

Private Sub Worksheet_activate() Dim Zellfarbe Zellfarbe = Worksheets("Tab1").Range("G8").Interior.ColorIndex Worksheets("Tab2").Range("D4").Interior.ColorIndex = Zellfarbe Zellfarbe = Worksheets("Tab1").Range("G13").Interior.ColorIndex Worksheets("Tab2").Range("D5").Interior.ColorIndex = Zellfarbe 'usw. End Sub

Beliebteste Forumthreads (12 Monate)

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread