Hallöchen,
habe in meinen Excel-Zellen Text drin stehen, wobei die Wörter oft unterschiedliche Farbe haben.
Wie kann ich Anzahl dieser unterschiedlichen Farben zählen?
Danke schon mal für eure Hilfe.
Auch Hallöchen,
Meinst Du in einer Zelle Wörter in unterschiedlichen Farben oder in unterschiedlichen Zellen unterschiedliche Farben? Für letzeres hatten wir glaube schon mal was, suche mal nach Farben zählen ( oder Farbe ...)
Hallo,
ich meine eine Satz wo meinetwegen auch die Buchstaben unterschiedlich bunt sein können. Damit weiß ich nicht wieviele Variablen ich für die einzelne Farben anlegen soll, ich
weiß nicht wie die Buchstaben mit gleicher Farbe zählen soll, kurzum ich bin planlos. Ich wollte hier einen Satz mit bunten Buchstaben posten, habe ich aber leider auch nicht
hinbekommen.
Ziel ist es die Häufigkeit der auftretenden Farben in dem Satz zu zählen.
.
Hallo Lago,
Da muss ich das Thema dieses mal weiter geben. Bin nur am Smartphone und kann da nicht programmieren. Du brauchst ein Makro mit einer Schleife, die Buchstabe für Buchstabe die Farbe zählt.
Hallo Andre,
danke schon mal für deine Bemühungen.
Hallo,
suche mal bei
www.office.loesung.de nach den Stichworten "snb farben zählen". Snb hat am 5. März einen guten Code gepostet.
mfg
Vielen Dank schon mal für eure Hinweise,
den Code von SNB würde ich gerne mal ausprobieren, leider läuft er bei mir nicht.
Code:
Sub M_snb_Lösung2()
'Quelle des Codes:
'http://www.office-loesung.de/p/viewtopic.php?f=166&t=685509&hilit=farbe+z%C3%A4hlen
With CreateObject("Scripting.Dictionary")
For Each cl In Tabelle1.Cells(1).CurrentRegion
.Item(cl.Interior.Color) = .Item(cl.Interior.Color) + 1
Next
For j = 0 To .Count - 1
Tabelle2.Cells(20 + j, 1).Interior.Color = .keys()(j)
Next
Tabelle2.Cells(20, 1).Resize(.Count) = Application.Transpose(.items)
End With
End Sub
Bei folgender Programmzeile
Code:
Tabelle2.Cells(20 + j, 1).Interior.Color = .keys()(j)
meldet mein Compiler, einen Laufzeitfehler: Objekt nicht gefunden. Was mache ich falsch?
Hallöchen,
Manche programmieren mit den Objektbenennungen statt den Blattnamen. Wenn Du im VBA-Editor links im Projektexplorer nachschaust, siehst Du beides. Ich vermute, Du musst entweder Tabelle1.... nehmen oder Sheets("Tabelle1")....
Hallo Lago,
hier mal ein Makro, welches die Schriftfarben der aktiven Zelle zählt:
Sub ZaehleFarben()
Dim i As Long, colAnzahl As New Collection
On Error Resume Next
With ActiveCell
For i = 1 To Len(.Value)
colAnzahl.Add 1, CStr(.Characters(i, 1).Font.ColorIndex)
Next i
End With
MsgBox "Es werden " & colAnzahl.Count & " Variablen für die Farben benötigt."
End Sub
Gruß Uwe