title image


Smiley Re: Mehrfach gleiche Texte innerhalb eines Blattes finden und markieren
Hallo,













Sub suchen()

Dim Text As String  

Dim z As Range  



Text = Cells(1, 2)



For Each z In UsedRange    



  If z = Text Then  

  z.Interior.ColorIndex = 35

  z.Offset(0, 1).Interior.ColorIndex = 35

  End If  



Next z



End Sub  







Gruß

Alfons

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: