Makro funktioniert nicht richtig
23.03.2006 10:59:41
abi
ich habe ein Makro geschrieben, dass Zeilen versteckt, wenn eine bestimmte Bezugszelle = 0 ist.
Sub Hide()
dim n as integer
for n = 9 to 33
if cells(n,3).value = "0" then
rows(n).entirerow.hidden = true
end if
next
for n as integer
if cells(n,3).value < "0" then
rows(n).entirerow.hidden = false
end if
next
End Sub
as Problem ist nun, dass die letzte Zeile nicht ausgeblendet wird, obwohl die Vorgabe erfüllt ist,
wenn ich die Daten ändere wird immer eine Zeile dazuaddiert, anstatt das alle wieder eingeblendet werden. (Zweites Makro)
www.herber.de/bbs/user/32170xls