Supportnet / Forum / Textverarbeitung

Guten Morgen, ich habe folgendes Problem. Da ich ein Neuling auf dem Gebiet bin, hoffe ich hier Hilfe zu finden. Also ich habe mir ein Makro programmiert, wo ich über ein bestimmtes Feld in Excel Zellen zählen kann mit einem bestimmten Farbinhalt. Jetzt möchte ich aber dazu noch bestimmte Zellen mit einem X versehen, und diese seperat mit der jeweiligen Zellenfarbe zählen. mein Makro: Sub Farbzählen() Dim Zelle As Object Dim rot%, grellgruen%, blau%, blaugruen%, rosa%, tuerkis%, dunkelrot%, gruen%, dunkelblau%, dunkelgelb% ´Bereich markieren [k18:au40].Select ´Variablen auf 0 setzen rot = 0: grellgrün = 0: blau = 0: blaugrün = 0: rosa = 0: türkis = 0: dunkelrot = 0: grün = 0: dunkelblau = 0: dunkelgelb = 0 ´Zählen For Each Zelle In Selection If Zelle.Interior.ColorIndex = 3 Then rot = rot + 1 If Zelle.Interior.ColorIndex = 4 Then grellgruen = grellgruen + 1 If Zelle.Interior.ColorIndex = 5 Then blau = blau + 1 If Zelle.Interior.ColorIndex = 14 Then blaugruen = blaugruen + 1 If Zelle.Interior.ColorIndex = 7 Then rosa = rosa + 1 If Zelle.Interior.ColorIndex = 8 Then tuerkis = tuerkis + 1 If Zelle.Interior.ColorIndex = 9 Then dunkelrot = dunkelrot + 1 If Zelle.Interior.ColorIndex = 10 Then gruen = gruen + 1 If Zelle.Interior.ColorIndex = 11 Then dunkelblau = dunkelblau + 1 If Zelle.Interior.ColorIndex = 12 Then dunkelgelb = dunkelgelb + 1 Next ´Rückgabe der Variablen [aq4].Select ActiveCell.Formula = rot ActiveCell.Offset(0, 1).Select ActiveCell.Formula = grellgruen ActiveCell.Offset(0, 1).Select ActiveCell.Formula = blau ActiveCell.Offset(0, 1).Select ActiveCell.Formula = blaugruen ActiveCell.Offset(0, 1).Select ActiveCell.Formula = rosa ActiveCell.Offset(0, 1).Select ActiveCell.Formula = tuerkis ActiveCell.Offset(0, 1).Select ActiveCell.Formula = dunkelrot ActiveCell.Offset(0, 1).Select ActiveCell.Formula = gruen ActiveCell.Offset(0, 1).Select ActiveCell.Formula = dunkelblau ActiveCell.Offset(0, 1).Select ActiveCell.Formula = dunkelgelb ActiveCell.Offset(0, 1).Select End Sub Nun kann man dieses Programm erweitern, damit die jeweilge Farbe und das X gezählt wird? Danke für eure Hilfe im vorraus

Sorry greenhorn83
... Falsche Gruppe, hier wird Word behandelt (und ich weiß dazu nichts)
Gruß Haans

• Excel : Titelübernahme bei Gültigkeitsprüfung
• wortsuche in excel
• Excel: Zellenfarbe als String in eine andere Zelle schreiben
• Aufzählung kopieren
• Inhalt von Textfeldern nach Excel importieren