Sub ZahlenInSpalteAddieren()
'
'******************************************************************************
' Name : ZahlenInSpalteAddieren / erstellt : 08.10.2014 / 18:59 / Sub
'------------------------------------------------------------------------------
'
' ADDIERE DIE ZAHLEN ALS GANZZAHLEN - INTEGER
' Bereich in ein Datenfeld (Array) - Bereich anpassen !
' durch das Datenfeld iterieren
' reguläre Buchstaben (keine Sonderzeichen) durch Leerzeichen ersetzen
' mehr als 1 Leerzeichen entfernen
' Zahlenfolgen in ein neues Datenfeld
' Datenfeld auszählen
'
'******************************************************************************
'
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
|