Sub TextNachZahl()
Columns("k:k").TextToColumns Destination:=Range("k1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), DecimalSeparator:=".", ThousandsSeparator:=",", _
TrailingMinusNumbers:=True
End Sub
Sub Aufruf()
Range(ActiveSheet.Cells(Rows.Count, 11).End(xlUp).Address) = DynaSum(Range("K2"))
End Sub
Function DynaSum(Optional rng As Range)
Dim dSum As Double
Dim lRow As Long
Dim iCol As Integer
If rng Is Nothing Then
Set rng = Application.Caller
End If
iCol = rng.Column
lRow = rng.Row
Do Until IsEmpty(Cells(lRow, iCol))
Cells(lRow, iCol) = Cells(lRow, iCol) * 1 / 100
dSum = dSum + Cells(lRow, iCol)
Cells(lRow, iCol).Select
lRow = lRow + 1
If lRow = 1 Then Exit Do
Loop
DynaSum = dSum
End Function
Sub Aufruf()
Range(ActiveSheet.Cells(Rows.Count, 11).End(xlUp).Address).Offset(1, 0) = DynaSum(Range("K2"))
End Sub