Hallo Zusammen,
ich versuche schon seit gefühlten 100 Jahren ein Problem zu lösen und habe jetzt eingesehen....ich habe keine Ahnung von vba. Ich brauche dringend eure Hilfe.
Es geht um eine Tabelle mit 5 Spalten und ca. 7000 Zeilen, die täglich aktualisiert wird. Ich habe die Aufgabe die Veränderungen sichtbar zu machen. Dazu kopiere ich die Daten z. B. von Montag in eine neue Tabelle ein. Damit sind die Spalten A1:E1 gefüllt. Die Spalten F1:J1 sind mit Formeln hinterlegt. Jetzt kopiere ich in die gleiche Tabelle, in den Spalten K1:O1, die Daten z. B. von Mittwoch. Damit sind, bis auf die Veränderungen von Mittwoch, 2 völlig identische Tabellen nebeneinander auf einem Blatt. Links die alte Version, rechts die Neue.
Jetzt kommt der Horror. Die Formel in F1 prüft, ob die Nummer in Zelle A1 mit der Nummer in Zelle K1 und die Nr. in Zelle B1 mit Zelle L1 übereinstimmen. Wenn ja, dann steht in Zelle F1 ein JA, wenn nicht, dann ein NEIN. Natürlich stimmen diese nicht überall überein, weil Daten neu hinzugekommen sind, oder andere gelöscht wurden.
Ich suche jetzt die 1. Zelle mit NEIN (z.B. gefunden in Zeile 10) und sehe mir die Nummern in Spalte A und B an. Finde ich sie auf der rechten Seite (z. B. in K7:L7) wieder, dann markiere ich die Zellen K7:O7 bis runter zur letzten beschriebenen Zeile (ca. 7000), schneide sie aus und füge sie 3 Zeilen weiter unten wieder ein. Damit stimmen in Reihe 10 die Zellen A10:B10 mit K10:O10 wieder überein. Auf der Rechten Seite sind jetzt 3 Reihen leer (K7 bis K9). Finde ich sie (z. B. in K15:L15), dann muss ich auf der linken Seite die Zellen A10:B10 bis ganz runter zur letzten beschriebenen Zeile markieren , ausschneiden und 5 Zeilen weiter unter wieder einfügen. Auf der linken Seite sind jetzt 5 Zeilen leer. Das kann so bleiben.
Durch das verschieben der Zeilen ergibt sich eine neue Reihenfolge. Die Berechnungen stimmen nicht mehr. Ich muss die Formeln der Spalten F1:J1 bis ganz runter neu kopieren. Damit wird die Tabelle neu berechnet und ich kann jetzt sehen, wo die nächsten Spalten nicht übereinstimmen (NEIN). Das ganze wiederholt sich in der Reihenfolge (Ausrichten, Formel kopieren , Ausrichten, Formel kopieren, usw. ) bis die gesamte Tabelle ausgerichtet ist. Zum Schluss noch einmal die Formeln kopieren ... und fertig...auch mit den Nerven. Wenn alles richtig sortiert ist, dann steht in der Spalte F1 bis F7xxx ein JA. Die Zellen der Spalten G bis J:7xxx zeigen jetzt die tatsächlichen Veränderungen innerhalb der Tabelle an.
Ich möchte gerne, dass ein Makro das sortieren erledigt. Wenn das Makro die Spalte mit der Formel für die Wahrheitsprüfung (F1)zum sortieren nicht braucht, kann sie auch gelöst werden.
Wer kann mir helfen?
Hier ein Beispiel
Tabellen vor der Sortierung
-A----B-----C-----D-----E-----F----G----H-----I-----J----K-----L------M----N-----O
ID1--ID2-Text-Text-Text-For.-For.-For.-For.-For.- ID1--ID2--Text--Text-Text
100--10--bla--bla---bla--Ja---------------------------100--10----bla---bla---bla
100--11--bla--bla---bla--Nein-------------------------200--20----bla---bla---bla
200--20--bla--bla---bla--Nein-------------------------210--21----bla---bla---bla
210--32--bla--bla---bla--Nein-------------------------210--31----bla---bla---bla
210--33--bla--bla---bla--Nein-------------------------210--32----bla---bla---bla
210--34--bla--bla---bla--Nein-------------------------300--100---bla---bla---bla
300-100--bla--bla---bla--Nein-------------------------300--200---bla---bla---bla
300-200--bla--bla---bla--Nein-------------------------400--10----bla---bla---bla
Tabellen nach der Sortierung
-A----B-----C-----D-----E-----F----G----H-----I-----J----K-----L------M----N-----O
ID1--ID2-Text-Text-Text-For.-For.-For.-For.-For.- ID1--ID2--Text--Text-Text
100--10--bla--bla---bla--Ja---------------------------100--10----bla---bla---bla
100--11--bla--bla---bla--Geändert-------------------Zellen bleiben leer
200--20--bla--bla---bla--Ja---------------------------210--20----bla---bla---bla
Zellen bleiben leer------Geändert-------------------210--21----bla---bla---bla
Zellen bleiben leer------Geändert-------------------210--31----bla---bla---bla
210--32--bla--bla---bla--Ja---------------------------210--32----bla---bla---bla
210--33--bla--bla---bla--Geändert-------------------Zellen bleiben leer
210--34--bla--bla---bla--Geändert-------------------Zellen bleiben leer
300-100--bla--bla---bla--Ja---------------------------300--100--bla---bla---bla
300-200--bla--bla---bla--Ja---------------------------400--10----bla---bla---bla
1000 Dank im Voraus
LG Susy