04. juli 2022 - 14:17Der er
1 kommentar og 1 løsning
Bliv i A1, hvis tekst ikke findes½
Hej Jeg har denne kode der læser i A1 og hopper til den givne linje, men hvis der ikke findes noget, vil jeg gerne have den bliver i A1, hvordan? Sub Find() Cells.Find(What:=Range("A1").Value, After:=ActiveCell, LookIn:=xlFormulas2, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False).Activate Cells.FindNext(After:=ActiveCell).Activate ActiveCell.Offset(-1, 0).Select End Sub
Den hopper vel en enkelt linje ned til A2 hvis den ikke finder det?
Måske du kunne noget a la sådan her - på ingen måde testet: Sub Find() Cells.Find(What:=Range("A1").Value, After:=ActiveCell, LookIn:=xlFormulas2, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False).Activate Cells.FindNext(After:=ActiveCell).Activate ActiveCell.Offset(-1, 0).Select If activecell.address = range("A2").address then range("A1").activate end if End Sub
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.