Sub test() Dim total As Integer, tal, ræk as Integer total = 0 For ræk = 3 To 12 tal = Mid(Range("B" & ræk), 2) If IsNumeric(tal) = True Then total = total + tal End If Next ræk End Sub
Jeg havde forstået det sådan, at med dit eksempel: B3 = - B4 = A8 B5 = D6 B6 = - B7 = D6
ønskede du summen af 8, 6 og 6. Hvis det du ønsker er, at summere rigtige tal i B3:B12 og se bort fra al tekst, så kan du bare bruge: =SUM.HVIS(B3:B12;"<"&9^9)
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.