Sub ZiffernInSpalteAddieren()
'
'******************************************************************************
' Name : ZiffernInSpalteAddieren / erstellt : 08.10.2014 / 16:32 / Sub
'------------------------------------------------------------------------------
'
' ADDIERE DIE ZIFFERN ALS GANZZAHLEN - INTEGER
' Bereich in ein Datenfeld (Array) - Bereich anpassen !
' durch das Datenfeld iterieren
' zeichenweise vergleichen
' Zahlenwert aufaddieren
'
'******************************************************************************
'
Dim myArr()
Dim i As Integer, x As Integer, Ergebnis As Integer
Dim Zeichen As String
myArr = Range("A2:A7")
For i = LBound(myArr) To UBound(myArr)
For x = 1 To Len(myArr(i, 1))
Zeichen = Mid(myArr(i, 1), x, 1)
If Zeichen >= "0" And _
Zeichen <= "9" Then
Ergebnis = Ergebnis + CInt(Zeichen)
End If
Next x
Next i
MsgBox "Summe der Ziffern = " & Format(Ergebnis, "#0")
End Sub
|