VBA Farbe aus Zelle einer auf dem Blatt befindlichen Tabelle lesen

[alkalio]

Hallo zusammen,

für die Arbeit habe ich ein VBA - Makro geschrieben, welches die Hintergrundfarbe einer Zelle ausliest und die Daten in ihr auf ein anderes Blatt übeträgt. Dies funktioniert soweit gut.
Leider kann ich aus der gewünschten Tabelle (Reiter einfügen -> Tabelle) auf dem Arbeitsmappenblatt die Farbe nicht auslesen. Nach langem überlegen und probieren habe ich bemerkt, das dies nur funktioniert, wenn die Zellen nicht als Tabelle formatiert sind.
Sobald man eine solche Tabelle hat und die Farbe der Zelle über:

Code:

Farbe = Tabelle1.Cells(2, 1).Interior.ColorIndex

versucht auszulesen kommt immer der Farbwert -4142 heraus.

Um den richtigen Farbwert herauszubekommen muss man die schon bunten Zellen noch einmal mit der gleichen Farbe formatieren. Wodurch ich davon ausgehe das die Tabelle wie in einem einzelnen Layer über dem eigentlichen Blatt liegt.


Ist es möglich die Zellen direkt aus der Tabelle zu lesen, da diese selbst einen Namen besitzt?
Oder gibt es eine andere Lösung dafür ohne die Hintergrundfarbe noch einmal nachsetzen zu müssen? Zudem weiß ich nicht ob diese Mitwandert wenn man die Tabelle anders sortiert.
Ist dieses Problem schon einmal aufgetreten?

Ich hoffe ihr habt dafür eine Lösung parat. Vielen Dank.

alkalio

[RPP63]

Moin!
Bitte, bitte:
Lasse den - mit Verlaub - Quatsch mit jeglicher Farbauswertung sein und "begnüge" Dich mit dem, was Excel kann, nämlich Auswertung von Werten.
Um Dir weitergehende Tipps geben zu können, braucht es aber schon eine aussagefähige Beispieldatei, aus der Deine eigentliche Intention hervorgeht.

Gruß Ralf

[Käpt'n Blaubär]

Hallo,

Leider kann ich aus der gewünschten Tabelle (Reiter einfügen -> Tabelle) auf dem Arbeitsmappenblatt die Farbe nicht auslesen

... unlängst hatten wir das Thema schon einmal.
Das Ergebnis dieser Diskussion war, wenn ich mich recht erinnere, daß sich die
Schriftfarbe der Reiter mit VBA weder auslesen noch ändern läßt.

[schauan]

Hallöchen,

Angezeigte Farben auf dem Tabellenblatt kann man per VBA auslesen. Das funktioniert auch bei intelligenten Tabellenfarben
Wähle mal die eine oder andere Zelle und schaue, was Dir das Makro meldet.

Code:

Sub test()
MsgBox ActiveCell.DisplayFormat.Interior.Color
End Sub

[MisterBurns]

@Klaus: 

daß sich die Schriftfarbe der Reiter mit VBA weder auslesen noch ändern läßt.

Versteh ich jetzt was falsch? Mit Reiter ist das Blattregister gemeint, oder?

Code:

Debug.Print ActiveWorkbook.Sheets("Tabelle1").Tab.Color

Oder bin ich jetzt am falschen Dampfer?

[schauan]

Hallo Berni,

ich glaube, alkalio wollte nur beschreiben, wie er eine neue - intelligente - Tabelle eingefügt hat - oben über den "Reiter" Einfügen … und der Käpt'n hat die Frage nach der Farbe auf den Blattreiter bezogen.

[MisterBurns]

Hi André,

da könntest du recht haben, aber dann wäre Klaus' Aussage dennoch nicht korrekt, oder?

[schauan]

Hallo Berni,

da hast Du recht - außer, dass Klaus bei uns Peter gerufen wird Ist aber auch ein Kreuz mit den Reitern, Registern, Ribbons und was sonst noch alles mit R anfängt :15:

[MisterBurns]

außer, dass Klaus bei uns Peter gerufen wird

:33: :33: :33:
I am deeply sorry!