Addiere 1 in Zeile
10.04.2013 16:24:57
Alex
Ich habe folgenden Code
For z = 1 To Anz_Tat
' For k = 1 To ANZ_MA
If Sheets("QRY").Cells(x, 3).Value = Fz(y, 1) And _
Sheets("QRY").Cells(x, 7).Value = Tat(k, 1) Then
Cells(y + 11, z + 1).Value = Cells(y + 11, z + 1).Value + Sheets(" _
QRY").Cells(x, 10).Value
End If
Der Funktioniert soweit auch. Nun möchte ich immer wen dies durchlaufen wird, dass +1 gerechnet und auf der dazugehörigen Zeile (y) ausgegeben wird. Stehe aber gerade bisschen an.
Kann mir jemand weiterhelefn?
Gruss
Anzeige