2+1 = 4 ?
15.01.2008 12:56:00
FM
Nach dem 1. Mal ist es 2 , nach dem 2. mal ist der Wert 4... warum? Ist sicher ganz einfach aber ich finde ihn einfach gerade nicht :)
Sub s_check()
Dim Sactfcst
Dim i As Integer
Dim zell As Integer
i = 1
zell = 15
For i = 1 To 12 Step 1
If Not Sheets(1).Cells(16, zell).Value = Empty Then
Sactfcst = Sactfcst + Sheets(1).Cells(16, zell).Value
i = i + 1
zell = zell + 1
Else: Sactfcst = Sactfcst + Sheets(1).Cells(15, zell).Value
i = i + 1
zell = zell + 1
End If
MsgBox i & Chr(13) & zell
Next i
End Sub
Anzeige