Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
408to412
408to412
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Meist verwendete Zellhintergrundfarbe ermitteln

Forumthread: Meist verwendete Zellhintergrundfarbe ermitteln

Meist verwendete Zellhintergrundfarbe ermitteln
Martin
Hallo,
Wenn ich einen Bereich markiere, brauche ich unbedingt die meist verwendete Zellhintergrundfarbe des markierten Bereiches! Was die ganze Sache vielleicht noch einfacher macht: Die markierten Zellen sind immer in einer Zeile nebeneinander. Ich wüßte noch nicht einmal einen Ansatz, wie ich dieses Problem lösen könnte - wenn das überhaupt geht!
Gruß,
Martin
Anzeige
AW: Meist verwendete Zellhintergrundfarbe ermitteln
Matthias
Hallo Martin,
folgender Code schreibt die Häufigkeiten und die Farbindizies in 2 Hilfsspalten (hier 5 und 6).

Sub Hintergrund()
Const Hilfsspalte = 5 'und die nächste (hier 6)
Dim a(57) As Integer, i As Integer, j As Integer
Dim z As Range, f As Long
For Each z In Selection
f = z.Interior.ColorIndex
If f >= 0 Then a(f) = a(f) + 1
Next z
j = 2
Range(Cells(2, Hilfsspalte), Cells(70, Hilfsspalte + 1)).ClearContents
For i = 0 To 57
If a(i) > 0 Then
Cells(j, Hilfsspalte + 1) = i   '1. Hilfsspalte: Farbe
Cells(j, Hilfsspalte) = a(i)    '2. Hilfsspalte: Häufigkeit
j = j + 1
End If
Next i
End Sub

in die erste Zeile kann die Formel für das Maximun:
in E1: =MAX(E2:E60)~f~
in F1: ~f~=SVERWEIS(E1;E2:F160;2;FALSCH)
Dann hast du in F1 den meistgebrauchten Farbindex
Hoffe, das hilft Dir weiter.
Gruß Matthias
Anzeige
AW: Meist verwendete Zellhintergrundfarbe ermitteln
Martin
Hallo Matthias,
vielen Dank für Deine Hilfe. Ich freue mich, dass das so gut funktioniert! Ich habe sogar Probleme den Code zu verstehen, aber Hauptsache es funktioniert! Trotzdem habe ich noch eine Frage bzw. Bitte: Leere Zelle ohne Hintergrundfarbe werden beim Zählen ganz ausgelassen. Ist es auch möglich, dass diese auch gezählt (also als weiß) werden?
Gruß,
Martin
Anzeige
AW: Meist verwendete Zellhintergrundfarbe ermitteln
Matthias
Hallo Martin,
ändere die Schleife folgendermaßen ab:
For Each z In Selection
f = z.Interior.ColorIndex
If f = xlColorIndexNone Then f = 2 'keine Farbe = weiß
If f &gt= 0 Then a(f) = a(f) + 1
Next z
Dann wird keine Farbe (xlColorIndexNone) wie weiß (2) behandelt.
Gruß Matthias
Anzeige
AW: Meist verwendete Zellhintergrundfarbe ermitteln
Martin
Lieber Matthias,
noch einmal vielen Dank! Sicherlich fragst Du Dich, weshalb ich das brauche: Ich schreibe gerade ein Makro, dass mir meine Excel-Tabelle in einen sehr "kleinen" HTML-Code exportiert. Ich möchte, dass dabei die meist verwendete Zellhintergundfarbe in den Zeilenanfang (also tr)zusammengefaßt wird, damit diese Information nicht in jede einzelne Zelle (also td) geschrieben werden muss und so sinnlos Quellcode verbraucht!
Noch eine wirklich allerletzte Frage hätte ich: Ich brauche wirklich nur die meist genutzte Farbe. Kann ich direkt mit VBA abfragen, welche Farbe den größten a(i)-Wert hat?
Anzeige
AW: Meist verwendete Zellhintergrundfarbe ermitteln
Matthias
Hallo Martin,
also ohne Hilfsspalten und so:
Option Explicit

Sub Hintergrund()
Dim a(57) As Integer, i As Integer, max As Integer, max_f As Integer
Dim z As Range, f As Long
For Each z In Selection
f = z.Interior.ColorIndex
If f = xlColorIndexNone Then f = 2 'keine Farbe = weiß
If f >= 0 Then a(f) = a(f) + 1
Next z
max = 0
max_f = 0
For i = 0 To 57
If a(i) > max Then
max = a(i)
max_f = i
End If
Next i
'max_f enthält den Index des am meisten verwendeten Farbe:
MsgBox "Meist verwendet: " & max_f
End Sub

Gruß Matthias
Anzeige
AW: Meist verwendete Zellhintergrundfarbe ermitteln
Martin
VIELEN DANK!!!!
Super, genau das habe ich gebraucht. Jetzt kann ich im HTML-Code die Farbe (RGB als Hexadezimal umgewandelt) im Zeilenanfang angeben und spare ungemein Quellcode in den einzelnen HTML-Tabellenzellen!
Gruß Martin!!!
AW: Danke für die Rückmeldung! - o.T.
02.04.2004 12:41:16
Matthias
:-)
;

Forumthreads zu verwandten Themen

cellen länge mit farbe ermitteln
marco

Hallo
kann man das ende von mehreren farbige cellen ermitteln? Oder geht das nur mit einer schleife?
sowie man das ende der cellen mit werten ermitteln kann.
Code für Werte:
Dim ilastcolumn As Integer
ilastcolumn = Range(Cells(19, 2), Cells(19, Columns.Count)).Find(What:="...
31.01.2011 11:58:05
Thread-ID: 1197853
2 Beiträge
Meist verwendete Zellen-Hintergrundfarbe ermitteln
Martin Springer

Hallo,gibt es eine Möglichkeit, dass ich per Makro die meist verwendete Zellhintergrundfarbe innerhalb einer Markierung ermitteln kann?MfGMartin
02.01.2003 20:20:16
Thread-ID: 198219
12 Beiträge
Anzeige
Zelleneigenschaft Farbe ermitteln und wiedergeben
Henning

hallo,
wie kann ich zellen unterschiedlicher farben zusammenzählen.
Ich möchte ermitteln, wie viele zellen sind rot, blau, ...
Bsp: https://www.herber.de/bbs/user/10975.xls
danke!
Henning
16.09.2004 17:24:27
Thread-ID: 486279
2 Beiträge
Farbe ermitteln
Kurt

Guten Morgen Allerseits, ich wollte hiermit die Farbe der Zelle ermitteln:
Dim farbe As String
ActiveSheet.Range("J1").Select
farbe = Selection.Interior.ColorIndex.Value
MsgBox farbe
leider Fehlgeschlagen, vielleicht kann mir jemand helfen ?
gr Kurt P
18.03.2008 09:30:29
Thread-ID: 961726
6 Beiträge
2 Fragen Farbe ermitteln und..
kurt

Guten Tag,
ich möchte gern die Textfarbe meiner Zelle ermitteln, kann
per Formel oder VB sein.
2. Ich habe eine Tabelle in der die Tage so dargestellt sind
Zelle a5: Mi in B5 01. 01.2020
da der 01.01.2020 ein Feiertag ist
sollte Mi in Rot und 01.01.2020 in Rot darges...
06.05.2020 16:43:15
Thread-ID: 1757206
9 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige