22. juli 2004 - 10:53Der er
12 kommentarer og 1 løsning
cells(1,1).value = værdi
Hej I en forløkke kører jeg en kolonne igennem for værdier i de forskellige rækkerceller, og sammenligner disse værdier med et tal eks For i = 1 to 100 if worksheets("ark1").cells(i,1).value = txttal then msgbox "Her er dit tal " & worksheets("ark1").cells(i,1).address end if next
Problemet ligger i at der også kan være indeholdt strenge i cellerne, og af mystiske grunde bliver disse strenge "sande" i min if sætning.
Txttal kommer fra en formular. Problemet ligger vel i noget mismatch mellem string og integer, eller? Måske skal jeg konvertere min cells(i,1).value om til integer, men det vil vel give en fejl hvis value indeholder en tekststreng.
En formular (tekstboks) returnerer en streng. Hvis txttal en dimmet som var kan du gøre sådan her
txttal = CSng(txttal) With Worksheets("ark1") For i = 1 To 100 If .Cells(i, 1).Value = txttal Then MsgBox "Her er dit tal " & .Cells(i, 1).Address End If Next End With
For i = 1 To 100 If IsNumeric(Worksheets("ark1").Cells(i, 1).Value) Then If Worksheets("ark1").Cells(i, 1).Value = txttal Then MsgBox "Her er dit tal " & Worksheets("ark1").Cells(i, 1).Address End If End If Next
Det modtager jeg da gerne, men for min skyld kan du også godt fordele lidt til de andre for inspirerende forslag - men det bestemmer du jo selv. :0)
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.
Ny bruger
Nybegynder
Opret
Preview
