Lösche zwei Zellen, wenn Zellenpaar nicht identsch
Patrick
ich beiße mir die Zähne an folgendem VBA Script aus:
Tabelle mit mehreren Daten, aber zuweilen fehlen Angaben.
Beispiel: Ich möchte Temperatur und Preis zueinander in Verbindung setzen.
1.1. 2010 / 5 Grad / 1.1. 2010 / 1
2.1. 2010 / 6 Grad / 3.1. 2010 / 2
3.1. 2010 / 9 Grad /
Im Beispiel wurde am 2.1. kein Preis notiert.
In solchen Fällen möchte ich, dass Excel
2.1. 2010 / 6 Grad
(ergo Zellen A2 und B2) löscht und "3.1. 2010 / 9 Grad /" die Lücke füllt.
Die Tabelle soll anschließend so aussehen, dass nur vollständige Datensätze vorhanden sind:
1.1. 2010 / 5 Grad / 1.1. 2010 / 1
3.1. 2010 / 9 Grad / 3.1. 2010 / 2
Also im Endeffekt:
Checken, ob Ax und Cx gleich
- wenn ja: Ax+1 und Cx+1 prüfen
- wenn nein: Zellen (Ax:Bx) löschen, Werte darunter füllen die Lücke.
-- erneut Ax und Cx prüfen
--- wenn unterschiedlich: Wdh.
--- wenn gleich: Ax+1 und Cx+1 prüfen
Wenn auf leere Zelle in A gestoßen: stop.
Tue mich unglaublich schwer mit dem VBA, experimentiere mit der "match" Funktion aber irgendwie...