PDA

Vollständige Version anzeigen : 0 Wert


byronic
10.11.2005, 14:58
Ich hab folgendes Problem.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then

zeilen = Sheets("Zahlungen").Range("F1").Value

For Each rngRow In ActiveSheet.Range("v10:v20").Rows
MsgBox Application.Sum(rngRow)
If Application.Sum(rngRow) = Sheets("Zahlungen").Range("E1").Value Then
rngRow.EntireRow.Hidden = True
Else
rngRow.EntireRow.Hidden = False
End If
Next rngRow

End If
End Sub

Er ermittelt mit von v10-v20 den jeweiligen Wert in der Zelle.
Solang ich den Wert normal in die Zelle eingebe funktioniert dies auch bestens.
Doch wird der Wert durch eine Formel errechnet, so wird mir nur der Wert "0"
zurück gegeben.
Wie kann ich dieses lösen.

Hajo_Zi
10.11.2005, 15:26
Hallo Hans Bärbel,

das Ereignis Worksheet_Change wird nur durch Eingaben ausglöst. Du mußt Worksheet_Calculate benutzen

<img src="http://home.media-n.de/ziplies/images/grusz.gif" align="middle" height="40" alt="Grußformel">
<a href="http://home.media-n.de/ziplies/" target="_blank">
<img border="0" src="http://home.media-n.de/ziplies/images/logo_hajo.gif" align="middle" height="40" alt="Homepage"></a>