zelle aktualisiert sich nicht..
13.07.2007 10:22:00
alex
ich steh vor einem wirklich merkwürdigen problem..
eine zelle besteht aus der summe der werte von anderen zellen. wenn die zelle einen gewissen wert überschreitet, möchte ich einen standardwert setzen. beispiel 999 als maximum
dazu lösche ich vorher die zelle, setze sie auf 0
dann schmeisse ich immer den wert zur zelle dazu also: zelle = zelle + neuer wert
am schluss überprüfe ich, wenn zelle.wert grösser 998, dann zelle = 999
das PROBLEM: irgendwie aktualisiert es mir den max wert nicht. die werte werden RICHTIG aufsummiert,
auch die überprüfung, ob zelle,wert größer als 998 greift (testweise msgbox geschmissen) aber, die zuweisung zelle = 999 funktoniert nicht. wenn ich jedoch eine andere zelle nehme, zb 1,1 und sie mit einem wert belege, funktionierts. der code veranschaulicht das problem:
k = 3
While Not (k = 7)
Workbooks(ThisWorkbook.name).Sheets(zielBlatt).Cells(zeile, k).value = 0
Workbooks(ThisWorkbook.name).Sheets(zielBlatt).Cells(zeile, k).value = 0
k = k + 1
Wend
For i = 0 To size - 1
r = getNameRow(pNames(i)) 'methode sucht mir aus einem array bestimmte werte
If Not (r = -1) Then
k = 3
While Not (k = 7)
Workbooks(ThisWorkbook.name).Sheets(zielBlatt).Cells(zeile, k).value = _
Workbooks(ThisWorkbook.name).Sheets(zielBlatt).Cells(zeile, k).value + _
Workbooks(ThisWorkbook.name).Sheets(zielBlatt).Cells(r, k).value
k = k + 1
Wend
k = 3
While Not (k = 7)
value = Workbooks(ThisWorkbook.name).Sheets(zielBlatt).Cells(r, k).value
If value > 998 Then
Workbooks(ThisWorkbook.name).Sheets(zielBlatt).Cells(1, 1).value = 0 'FUNKTONIERT
Workbooks(ThisWorkbook.name).Sheets(zielBlatt).Cells(r, k).value = 0 'FUNKTONIERT NICHT
End If
k = k + 1
Wend