Nullsaldenzeilen löschen mittels vba
16.05.2008 20:29:03
James
Ich habe folgdes vba-problem und komme einfach nicht auf die Lösung:
In einer Tabelle stehen untereinander diverse Zahlen, von denen einige (jedoch nicht alle) saldiert 0 ergeben. Diese Zeilen sollen aus der Tabelle entfernt werden. Der Saldo ergibt sich jedoch nicht zwingend aus nur zwei Zeilen.
Am Beispiel einer Tabelle mit 4 Zeilen ergibt sich nach meiner Überlegung folgende "Wenn - del"-Funktion:
wenn(a1+a2=0, del a1+a2)
wenn(a1+a2+a3=0, del a1+a2+a3)
wenn(a1+a2+a3+a4=0, del a1+a2+a3+a4)
wenn(a1+a3=0, del a1+a3)
wenn(a1+a3+a4=0, del a1+a3+a4)
wenn(a1+a4=0, del a1+a4)
wenn(a2+a3=0, del a2+a3)
wenn(a2+a3+a4=0, dell a2+a3+a4)
wenn(a2+a4=0, del A2+a4)
wenn(a3+a4=0, del a3+a4)
Das ganze müsste man doch eigentlich in vba-umsetzen können, allerdings komme ich nicht im entferntesten auf einen ansatz. Ich habe sogar schon versucht, mir einen Programmablaufplan zu entwerfen, bin kläglich gescheitert.
Insbesondere macht mir Probleme, dass sich nicht nur die zu addierenden Zeilennummen verändern, sondern auch die Anzahl der Additionen unterschiedlich ist (mal nur a1+a2, dann a1+a2+a3, dann mit Lücke a1+a3+a4...) Bei einer größeren Zeilenanzahl wird der Term ja unendlich lang.
Außerdem muss ich die Anzahl der Zeilen feststellen, die in der individuellen Tabelle enthalten sind (im Beispiel oben sind das 4, es könnten aber auch hunderte sein. Auch hier habe ich keinen Ansatz gefunden.
Schlussendlich wäre eine Messagebox interessant, die ausgibt wieviele Berechnungen Excel machen musste, diese ist jedoch nur Kür, keine Pflicht...
Kommt irgendjemand auf einen Lösungsvorschlag?
Vielen Dank für jeden Tipp schon im Voraus!