Sub
ZahlenInSpalteAddieren()
Dim
myRegexp
Dim
myArr()
Dim
mySubArr()
As
String
Dim
i
As
Integer
, x
As
Integer
, Ergebnis
As
Integer
Set
myRegexp = CreateObject(
"vbscript.regexp"
)
myRegexp.Global =
True
myArr = Range(
"A2:A7"
)
For
i = LBound(myArr)
To
UBound(myArr)
myRegexp.Pattern =
"[A-Za-z]"
myArr(i, 1) = myRegexp.Replace(myArr(i, 1),
" "
)
myRegexp.Pattern =
"\s{2,}"
myArr(i, 1) = myRegexp.Replace(myArr(i, 1),
" "
)
myArr(i, 1) = Trim(myArr(i, 1))
mySubArr = Split(myArr(i, 1),
" "
)
For
x = LBound(mySubArr)
To
UBound(mySubArr)
Ergebnis = Ergebnis +
CInt
(mySubArr(x))
Next
x
Next
i
Set
myRegexp =
Nothing
MsgBox
"Summe der Ziffern = "
& Format(Ergebnis,
"#0"
)
End
Sub