title image


Smiley Re: Makro zum Zelleneinfärben
Hallo UweZum Beispiel so:Sub Makro1() Cells.Find(What:="U", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _ xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _ .Activate With Selection.Interior .ColorIndex = 35 .Pattern = xlSolid End With For i = 1 To 10 Cells.FindNext(After:=ActiveCell).Activate With Selection.Interior .ColorIndex = 35 .Pattern = xlSolid End With Next iEnd SubBei der Zeile For i = 1 to 10 musst du abschätzen wieviele U's du maximal in deiner Tabelle hast. Hier sind es 10.Gruss Patrik

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: