Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
24.04.2024 17:19:09
Formel mit Index-Funktion
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
520to524
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
520to524
520to524
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Gleiche farbig makieren

Gleiche farbig makieren
19.11.2004 11:15:16
Gerd
Hallo,
wie kann ich alle Übereinstimmungen eines Sheets farbig makieren lassen.
Übereinstimmungen können Zahlen und Wörter sein!!!
In meiner Tabelle1 sind Eintragungen von Spalte A bis AD und
Zeilen von 1 bis 1280.
Es soll z.B. wenn Schmidt mehrfach vorkommt die Zellen mit Inhalt Schmidt
farbig makiert werden.
Kann mir da jemand Helfen?
Gruß Gerd

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Gleiche farbig makieren
ransi
hallo
versuchs mal so:
bedingte formatierung
formel ist =ZÄHLENWENN($A$1:$AD$1230;A1)&gt1
und dann format zuweisen
ransi
AW: Gleiche farbig makieren
19.11.2004 11:40:07
Gerd
Hallo,
mit Bedingte Formatierung wird mir nichts farbig makiert.
Es sind aber 100%ig Übereinstimmungen enthalten.
Ich brauche eine andere Möglichkeit...
Gruß Gerd
AW: Gleiche farbig makieren
ransi


      
Hallo
dann versuchs mal so:
Public Sub mach_rot()
'dauert aber ne weile bis er mit den 38400 zellen durch ist
Dim zelle As Range
Application.ScreenUpdating = False 'bildschirmaktualisierung ausgeschaltet
For Each zelle In Range("a1:AD1280")
      If WorksheetFunction.CountIf(Range("a1:AD1280"), zelle) > 1 Then zelle.Interior.ColorIndex = 3
Next
Application.ScreenUpdating = True
End Sub
ransi 
Anzeige
funktioniert !!
th.heinrich
hallo Gerd,
Tabelle1
  
 AB
1SchmidFORMEL IST
2Schmid=ZÄHLENWENN($A$1:$A$1230;A1)>1
3Schmidt 
4schmied 
 
 Diagramm - Grafik - Excel Tabellen einfach im Web darstellen    Excel Jeanie HTML  3.0    Download  
gruss thomas

                    


                    


    
Anzeige

    

        
                    
            
                
    



            


    
    


            
    
    
    
                    


    
    
    
    
    
    
            


    

        
        Beliebteste Forumthreads (12 Monate)
    

    
    

 

    
    
    


    
Anzeige

    

        
                    
                
    




    
    

    

        

            

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

            

                

                
            

        

    




    
    

    
    
            
 

            
            

                
                
                                    

                        


    

        
        Beliebteste Forumthreads (12 Monate)
    

    
    

 

                    

                                


    
Anzeige

    

        
                    
            
                
    



                


    
Anzeige

    

        
                    
            
                
    



                


    
Anzeige