Hej, jeg har en lang kolonne med tal uden mellemrum eller andet der adskiller dem. Fx. rækker med hhv. 123 eller 1245 eller 135. Hvordan tæller jeg hvor mange 3 taller der er i hele kolonnen? Når jeg bruger funktionen "Tæl.hvis(a2:a160;"*3*") tæller den kun de 3 taller som står alene. :(
Sub tael() Z = 0 For x = 2 To 160 ' 2 = første række, 160= sidste række For y = 1 To Len(Cells(x, 1)) If Mid(Cells(x, 1), y, 1) = 3 Then Z = Z + 1 Next Next Cells(2, 2) = Z ' resultatet skrives i celle B2 End Sub
OK, nu har jeg lavet den så den automatisk kører, hvis du skriver noget i celle B1 (ligegyldigt hvad). Det eneste du skal gøre er at højreklikkke på fanebladet, vælg koder og indsæt makroen, som jeg har skrevet den nedenfor. Og husk at gemme filen som xlsm fil (med makro)
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("B1")) Is Nothing Then Z = 0 For x = 2 To 160 ' 2 = første række, 160= sidste række For y = 1 To Len(Cells(x, 1)) If Mid(Cells(x, 1), y, 1) = 3 Then Z = Z + 1 Next Next Cells(2, 2) = Z ' resultatet skrives i celle B2 End If End Sub
Mange tak. Jeg har op til 20 tal jeg skal søge efter i samme kolonne. Vil det betyde at jeg skal indtaste ovenstående på ny og erstatte 3 tallet for hver gang?
#7 det er pænt af dig. Jeg fandt dog en anden løsning, der var at erstatte tallene med det navn de kodede for, og så virkede tæl.hvis funktionen. Det gav bare mere mening for mig på den måde, selvom det nok tog lidt længere tid.
#3 bare tal i en række, som nævnt fx. 123 i én celle, 1346 i en anden osv.
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.