Prøv med denne makro, den farver de celler der opfylder det krav du indtaster.
Sub Søg() Søgstr = InputBox(" Søgestreng") ' Cells.Find(What:=Søgstr, After:=ActiveCell, LookIn:=xlValues, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False).Activate ActiveCell.Interior.ColorIndex = 46 Old = ActiveCell.Address Do Cells.FindNext(After:=ActiveCell).Activate ActiveCell.Interior.ColorIndex = 46 Loop Until Old = ActiveCell.Address End Sub
Tak for kommentar Tobler, men Kabbaks svar er lige den retning jeg skulle bruge. Dog anvender jeg IsNumber i stedet for iserror, men det er hip som hap.
Altså, hvis ordet "Article" findes tekststrengen i celle I21 skrives de 6 chars efter ordet.
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.