Sub
Irgendwas()
Dim
AbZelle
As
String
Dim
NachSpalte
As
String
AbZelle =
"E1"
NachSpalte =
"H"
Verdoppelt AbZelle, NachSpalte
End
Sub
Sub
Verdoppelt(
ByVal
Start
As
String
,
ByVal
InSpalte
As
String
)
Dim
rngStart
As
Range
Dim
rngSpalte
As
Range
Dim
rngIst
As
Range
Dim
lngNext
As
Long
Set
rngStart = Range(Start)
Set
rngSpalte = Range(rngStart.Offset(1, 0), rngStart.
End
(xlDown))
lngNext = Columns(InSpalte).Column - rngStart.Column
For
Each
rngIst
In
rngSpalte
If
2 * rngIst.Value = WorksheetFunction.Sum(Range(rngStart, rngIst))
Then
rngIst.Offset(0, lngNext).Value = rngIst.Value
Set
rngStart = rngIst.Offset(1, 0)
End
If
Next
rngIst
End
Sub