so habe ich es verstanden...
19.09.2009 21:36:52
Tino
Hallo,
also in Spalte C bleibt die Formel eine Formel und wird mit =Formel() + Wert aus B erweitert.
Ist es keine Formel, wird der Wert aus B einfach dazu addiert.
Es dürfen aber keine Matrixformeln in C vorhanden sein.
Sub Test()
Dim Bereich As Range
Dim meAr, tempAr()
Dim A As Long, B As Long
With Sheets("Tabelle1") 'Tabellenname anpassen
Set Bereich = .Range("B1", .Cells(.Rows.Count, 2).End(xlUp))
meAr = Bereich
tempAr = Bereich.Offset(0, 1).FormulaLocal
'darf keine Matrixformel sein
For A = 2 To Ubound(meAr)
If meAr(A, 1) > 0 And IsNumeric(meAr(A, 1)) Then
If Left$(tempAr(A, 1), 1) = "=" Then
tempAr(A, 1) = tempAr(A, 1) & "+" & meAr(A, 1) 'ist Formel
Else
tempAr(A, 1) = tempAr(A, 1) + meAr(A, 1) 'ist keine Formel
End If
End If
Next A
'ab wo einfügen
.Range("C1").Resize(Ubound(tempAr)).FormulaLocal = tempAr
End With
End Sub
Gruß Tino