29. juli 2002 - 13:11Der er
1 kommentar og 1 løsning
Problem med variabel
Hej derude jeg har lavet følgende makro, der skal erstatte værdien i det valgte område med værdien i variablen kt
Sub erstat dim kt as variant range("h17").select 'indeholder den værdi der skal indsættes kt = activecell.value activecell.offset(0,5).select range(selection, selection.end(xltoright)).select selection.replace what:="+'310000", replacement:="+ & kt", Lookat:=xlPart _ , searchorder:=xlbyrows, Matchcase:=false.
Ligemeget hvad jeg gør vil den ikke køre, så hvor pokker ligger fejlen ? mvh alj
Med version 7 af TeamShare tager Lector næste skridt og bygger en platform for AI-agenter, der i højere grad kan følge medarbejderen gennem hele arbejdsprocessen.
Sub Erstat() Dim kt As Variant kt = Range("H17").Value Range("H17").End(xlToRight).Select Selection.Replace What:="+'310000", Replacement:="+" & kt, _ lookat:=xlPart, searchorder:=xlbyrows, Matchcase:=false End Sub
Noter dig specielt, at kt er kommet ud af "" i Replacement!!
Bingo, det virker, men jeg har indsat en ' efter plusset under replacement. Mange tak, det var 300 linier der skulle køres igennem, så det havde ikke været skægt manuelt - og så i den varme. mvh alj
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.
