im folgenden Code ist ein Fehler in der zweiten If-Anweisung. Irgendwie mag er die Variable Index2 an der Stelle nicht und ich verstehe nicht warum.
Danke und Grüße
Max
Sub calc()
Dim Index As Integer
Dim b As Double
Dim Index2 As Integer
b = 0
For Index = 1 To 256 Step 1
If Sheet3.Cells(4, Index) = "Wert1" Then b = b + Sheet3.Cells(21, Index).Value
Index2 = Index + 1
If Sheet3.Cells(4, Index2) = "" Then b = b + Sheet3.Cells(21, Index2).Value
Next
Cells(6, 2).Value = b
End Sub